Atau gunakan Find dan FindNextSub GantiKata()
Dim awal, daerah As Range
With Range("e1:e12")
Set daerah = .Find(What:="Yes", LookAt:=xlWhole,
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)
End With
If daerah Is Nothing Then
GoTo labeltakketemu
End If
Set awal = daerah
Do
If daerah.Offset(1, -4) = 2 Then MsgBox "Ambil Tindakan juga"
With Range("e1:e12")
Set daerah = .FindNext(daerah)
End With
Loop While daerah.Address <> awal.Address
labeltakketemu:
End Sub
To: [email protected]
From: [email protected]
Date: Fri, 8 Jul 2011 15:32:51 +0900
Subject: RE: [belajar-excel] Formula/Makro untuk me-Replace dengan referensi
sel lain.
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
NextEnd
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]>
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
