değişken hücre içeriğini aratmak bulmak için.

[numlock]

Sub Makro1()
Range("K3").Select
Selection.Copy
Sheets("Sirketler").Select
Rows("6:6").Select
Selection.Find(What:="28.02", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
End Sub

"28.02" yazan yer aslında K3 hücresindeki değişken bir değer. makroyu çalıştırdığımda K3 hücresinde farklı bir rakam da yazsa(mesela 15.01) yine "28.02" aratıyor. lütfen yardımcı olurmusunuz.

 

[Necdet]

Merhaba,

Kodu denemedim ama, aranan değer K3 hücresinde ise aşağıdaki değişiklik yeterli. Kırmızı ve Koyu yaptım değişmesi gereken yeri.

Sub Makro1()
Sheets("Sirketler").Select
Rows("6:6").Select
Selection.Find(What:=[B][COLOR=red][K3][/COLOR][/B], After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Application.CutCopyMode = False
End Sub

 

[numlock]

olmuyor. [K3] dediğiniz gibi yapınca sayfa1 de boş olan hücreyi aratıyor.

 

[Necdet]

Sayfa1 de değil Şirketler sayfasının k3 hücresini arar....
daaa bu 28.02 tarih olmasın sakın?

 

[numlock]

necdet bey
çok teşekkür ederim.şimdi oldu.