aranan en son kayıt

[emrexcel123]

arkadaşlar ve üstadlar ii akşamlar öncelikle sorum şu >>
örneğin bir tablomuz olsun ve bu tabloda aranan bir veri olsun :
yalnız aranan veri bu tablonun içinde olması lazım yani örneğin b sütununda aktif hücreye "A" değeri yazılsın ve yalnız bu değer kendinden önceki hücreler içinde aransın yani şu şekilde >>
- "b6" hücresine "A" yazılsın ve bir butona basıldığı zaman aransın ve arama tablosu "b1:b5" hücresi olsun.yani kendisi hariç kendinden önceki hücrelerde ve hücre adresi msgbox ile bildirilebilir mi?
ii çalışmalar...

 

[xxcell]

Olabilir fakat bunu VBA ile yapmana hiç gerek yok.

fonksiyonlarla çok rahat yapabilirsin.

KAYDIR() fonksiyonunu incele ama hiç uğraşmak istemiyosan HÜCRE ERİMİ koyacağın yere DOLAYLI("B1:B"& SATIR() - 1) koyman yeterli
bu fonksiyon b1 ile aktif satırın (formülü girdiğimiz satırın) bir önceki satırı arasını alacaktır.

Yani b6 hücresine "A" yazarsan ve c6 hücresine de şu formülü girersen dediğin olur.
= KAÇINCI( B6 ; DOLAYLI("B1:B"& SATIR() - 1) ; 0 )

 

[Orion1]

Merhaba.
Aşağıdaki kodlar işinizi görür sanırım.
Aktif hücre dışında B sütunun da Aktif hücrenin değerinin bulunduğu satırı bulur ve adresini verir.

Sub ara()
Dim i As Long
For i = 1 To Cells(65536, "B").End(xlUp).Row
    If Cells(i, "B").Address <> ActiveCell.Address Then
        If WorksheetFunction.Proper(Cells(i, "B").Value) = WorksheetFunction.Proper(ActiveCell.Value) Then
            MsgBox "[ " & ActiveCell.Value & " ] Bilgisi.." & vbLf & "[ " & Cells(i, "B").Address & " ] Adresindedir.", vbOKOnly
            Exit For
        End If
    End If
Next
End Sub