Terimakasih Suster Haps,

Sepertinya bisa saya pakai resep anda.
Ini juga sampai dibantu Ibu yang satu itu posting japri reply dari sampeyan juga
Mungkin berhubung pak posnya lagi makan siang sama sholat jumat jadinya email 
baru diterima.

Sekali lagi terimakasih para suster cantik..

________________________________
From: [email protected] [mailto:[email protected]] On 
Behalf Of Haps
Sent: Friday, July 08, 2011 11:35 AM
To: [email protected]
Subject: Re: [belajar-excel] Formula/Makro untuk me-Replace dengan referensi 
sel lain.



Saya bukan pakar, tetapi hanya meniru apa yg sudah dicontohkan

Agar makro mudah dijalankan, dibuat tombol (activeX control) Commandbutton1
makronya sendiri dituils di module sheet dimana commandbutton tergambar
(module sheet 1 )

Private Sub CommandButton1_Click()
   Dim Rng As Range, r As Long
   Set Rng = Cells(1).CurrentRegion
   For r = 1 To Rng.Rows.Count
   If Rng(r, 5) = "Yes" Then
   If Rng(r - 1, 1) = 2 Then Rng(r, 5) = "Shift Malam"
   End If
   Next
End Sub

Mudah mudahan, "jalan"

Penggunakan  method  Find menurut saya yg masih awam, tidak menguntungkan
karena ada syarat berupa nilai cell lain pada jarak tertentu dari found-cellsnya


wassalam,
hapsari.-



2011/7/8 <[email protected]<mailto:[email protected]>>
Para Excellers,
Mohon bantuannya,
Formula atau makro apa yang dipakai untuk mereplace suatu kata di kolom E
berdasar nilai yang ada di kolom A,row diatasnya.

2       20:13   5:19    0       No
                        0       Shift Malam
1       20:13   5:19    0       No
                        0       Yes
2       20:13   5:19    0       No
                        0       Yes
2       20:13   5:19    0       No
                        0       Yes


Saya ingin mengganti / Replace semua kata "Yes"
yang ada di kolom E kata "Shift Malam"
Bila di kolom A di row sebelumnya bernilai "2"

Apa formulanya untuk dipasang didalam "Replace with" pada pop up windows 
Replace)?
Bagaimana bunyi makronya?

Untuk lebih jelas ada dalam lampiran.

Terimakasih sebelumnya.

Salam
Agung Widodo



Kirim email ke