düşey arama

[limanC34]

Selam Arkadaşlar
Düşey ara ile sütunlar arası veri almak istiyorum.Yardım ederseniz sevinirim.
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub TextBox1_Change()
Dim SV As Worksheet
Dim SUT As Integer
If TextBox1 = "" Then: TextBox2 = ""
Set SV = Sheets("VERİ")
For SUT = 1 To SV.Cells(65536, "A").End(3).Row
If SV.Cells(SUT, "A") = TextBox1 Then
TextBox2 = SV.Cells(SUT, "A").Offset(0, 1).Value
End If
Next
End Sub
Private Sub TextBox2_Change()
Dim SV As Worksheet
Dim SUT As Integer
If TextBox2 = "" Then: TextBox1 = ""
Set SV = Sheets("VERİ")
For SUT = 1 To SV.Cells(65536, "B").End(3).Row
If SV.Cells(SUT, "B") = TextBox2 Then
TextBox1 = SV.Cells(SUT, "B").Offset(0, -1).Value
End If
Next
End Sub

 

[limanC34]

düşey ara

Sayın vba
SÜPER çözümünüz için çok teşekkür ederim.Formülünüzü vba olarakta uyguladım ve harika oldu.Sadece ufak harf yazınca aramıyor.Bu harf duyarlılığını kaldırabilirmiyiz?Bu ayrıntıyı renkli olarak yazabilirmisiniz?Hani siz ustalar yazıyorsunuzya kırmızı yada yeşil renkli.
Saygılarımla.

 

[yes107yes107yes107]

yardım etmek sevaptıp

umarım işini görürü