Terima ksh miss atas jwbnYa..
Tp msh blm bs jalan, apa saya salah meletakkan codenya atau saya tidak tepat
dalam meletakkan code itu d barisan code d bawah ini..
Yg saya tanyakan, Saya hrs selipkan kode tersebut d mana miss..?
Sheets("JULI").Protect
Password:="12345",
userinterfaceonly:=True
Option Explicit
' =================================== '
' script by: Miss Jan Raisin '
' Biak, 11 Juli 2013 '
' untuk [email protected] '
' =================================== '
Sub Cari()
Dim sCol As String
Dim rgFind As Range, rgData As Range, rgCell As Range
Dim iCol As Integer
Dim lRow As Long
Dim vCrit As Variant
Range(Range("CS7"), Range("CS7").End(xlToRight).End(xlDown)).ClearContents
sCol = Range("CV2").Value
Set rgFind = Range("B6:K6").Find(sCol, lookat:=xlWhole, MatchCase:=True)
iCol = rgFind.Column
lRow = Range("B6").CurrentRegion.Rows.Count
vCrit = Range("CV3").Value
Set rgData = Range(Cells(3, iCol), Cells(lRow, iCol))
For Each rgCell In rgData
Set rgFind = rgCell.Find(vCrit, lookat:=xlPart, MatchCase:=False)
If Not rgFind Is Nothing Then
Range(Cells(rgCell.Row, 2), Cells(rgCell.Row, 11)).Copy
Cells(Rows.Count, 97).End(xlUp).Offset(1).PasteSpecial
xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End If
Next rgCell
Range("CV3").Select
End Sub
Salam..
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: Jan Raisin <[email protected]>
Sender: [email protected]
Date: Fri, 12 Jul 2013 13:26:10
To: <[email protected]>
Reply-To: [email protected]
Subject: Re: [belajar-excel] Cara Membuat Search Engine
coba proteksinya pakai scrip yang diletakan di baris awal setelah deklarasi
sheets("nama_sheet-nya").protect password:="ini_password-nya",
userinterfaceonly:=true
yang warna merah silakan disesuaikan dengan kondisi aslinya
Salam,
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
[email protected] bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata sehingga tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
اَمِين يَا رَبَّ الْعَالَمِيْن
Pada 12 Juli 2013 13.04, <[email protected]> menulis:
> **
>
>
> ** Salam..
>
> Btw numpang tnya jika sheet d proteksi macronya tidak jalan. Ada tulisan
> runtime errOr '1004'...
>
> Terima kasih
>
>
> Agam
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
> ------------------------------
>
>
