Bir önceki satırdaki hücreyi mesaj kutusunda göstermek

[cavanoos]

Merhaba arkadaşlar;

Sub Makro10()

Range("K1").Select
Selection.Copy
Cells.Find(What:="62/001", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("F698").Select
End Sub



Yukarıdaki örnek kodda K1 hücresindeki değeri,excel sayfasında arıyorum.F699 hücresinde aradığım değeri buluyorum.Ama benim amacım bir önceki satıra geçip oradaki değeri bir mesaj kutusu ile görmek.

Yukarıdaki kod ile her seferinde F698 hücresine gidiliyor."Range("F698").Select" bu komut yerine ne yazmalıyım ki,bir önceki satırdaki değeri görüntüleyim.

Yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub Makro10()
adr=Cells.Find(What:=[k1], After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).address
msgbox Range(adr).offset(-1,0)
End Sub

 

[cavanoos]

Levent Bey,

Teşekkür ederim.Sorunum çözüldü.