Aradığımız sayının satır numarası

[Mustafa Kabdağlı]

Merhaba arkadaşlar,

Bir sütünda ( örnegin Sayfa2 A sütünu) numaralar mevcur, VBA da TextBox1'e yazdığım numarayı TextBox2'ye satır numarasını yazmasını istiyorum.

Yardımlarınız için teşekkürelr.

 

[Ömer BARAN]

Merhaba.

KAÇINCI (MATCH) işlevini kullanabilirsiniz.

 

[Mustafa Kabdağlı]

Ömer bey - ilginiz için çok teşekkürelr fakat ben bunu VBA'da yapmak istiyorum

 

[Orion1]

Buyurun.

Private Sub TextBox1_Change()
Dim k As Range
On Error Resume Next
TextBox2.Value = ""
Set k = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Find(CDbl(TextBox1.Value), , xlValues, xlWhole)
If Not k Is Nothing Then
        TextBox2.Value = k.Row
End If
End Sub

 

[Mustafa Kabdağlı]

Çok teşekkürler Orion1

 

[Orion1]

Çok teşekkürler Orion1

Rica ederim.
iyi çalışmalar.

 

[Mustafa Kabdağlı]

Rica ederim.
iyi çalışmalar.

Orion1,
kod geçerli sayfada çok güzel çalışıyor fakat veri başka sayfada ise sadece birinci satırı alıyor.

ben kodu şu şekilde denedim:

Set k =Sheets("Sayfa2"). Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Find(CDbl(TextBox1.Value), , xlValues, xlWhole)

problem ne olduğunu birtürlü anlamadım

 

[Orion1]

Orion1,
kod geçerli sayfada çok güzel çalışıyor fakat veri başka sayfada ise sadece birinci satırı alıyor.

ben kodu şu şekilde denedim:

Set k =Sheets("Sayfa2"). Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Find(CDbl(TextBox1.Value), , xlValues, xlWhole)

problem ne olduğunu birtürlü anlamadım

Bu kodda sadece 2nci sayfada a sütununda çalışır.

 

[Orion1]

Aşağıdaki gibi deneyin.

Set k =Sheets("Sayfa2"). Range("A2:A" & [B][COLOR="Blue"]Sheets("Sayfa2").[/COLOR][/B]Cells(Rows.Count, "A").End(xlUp).Row).Find(CDbl(TextBox1.Value), , xlValues, xlWhole)

 

[Mustafa Kabdağlı]

Super oldu - çok teşşekürler Orion1

 

[Orion1]

Super oldu - çok teşşekürler Orion1

Rica ederim.
İyi çalışmalar.