arama yapmak

[asubsubaru]

sayfada alt alta c değerleri var ben bu c değerlerinin arama yaptığımda ilk olarak 1. değeri buluyor ben en son değeri bulmak istiyorum nasıl yapabilirim

 

[uzmanamele]

merhaba
son satırı mı bulmak istiyorsunuz, ilk boş satırı mı bulmak istiyorsunuz, son C nin yazıldığı hücreyi mi?

Sub sonsatır()
MsgBox Range("a65536").End(xlUp).Row
End Sub

 

[halit3]

bunu denermisiniz.

Sub aranan_en_son_deger() 'aranan en son değer
Dim aranan As String
Dim Rng As Range
aranan = InputBox("Aranan kelimeyi yaz")
If Trim(aranan) <> "" Then
With Sheets(ActiveSheet.Name).Range("A2:V65000")
Set Rng = .Find(What:=aranan, After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Sonuç yok"
End If
End With
End If
End Sub

 

[halit3]

yada bunu deneyiniz.

Sub aranan_en_son_deger() 'aranan en son değer
Dim aranan As String
Dim Rng As Range
aranan = InputBox("Aranan kelimeyi yaz")
If Trim(aranan) <> "" Then
With Sheets(ActiveSheet.Name).Range("A2:V65000")
Set Rng = .Find(What:=aranan, After:=.Cells(1), LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Sonuç yok"
End If
End With
End If
End Sub

 

[asubsubaru]

teşekkür ederim yardımlarınız için bunu söyle yapabilirmiyiz arama kutusu açılmadan bir kısa yol tuşu ile sadece girilmiş olan değerin sonuncusunu bulacak şekilde yapabilirmiyiz

 

[asubsubaru]

son c nin altındaki ilk boş hüçreyi bulmak istiyorum