Düşeyara makrosu

[hayri tekin]

Merhaba arkadaşlar,
Çalışma kitabım MENÜ ve DATA olmak üzere 2 sayfadan oluşmaktadır.MENÜ sayfamda mevcut Texbox2 ye DATA sayfasından aşağıdaki düşeyara formülünü makro olarak yapmak istiyorum.

=EĞER(EHATALIYSA(DÜŞEYARA($A$2;DATA!$C$2:$D$1000;2;0));"";DÜŞEYARA($A$2;DATA!$C$2:$D$1000;2;0))

 

[hayri tekin]

Belki örnek dosyaya ihtiyaç duyabilirsiniz diye dosya ekledim.

 

[hayri tekin]

Dosyamda değişiklik yaptım;bir yanlışım varsa bildirmenizi rica ediyorum.
İlla ki düşeyara olması şart değil;başka çözüm de olabilir...

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim k As Range
TextBox1.Value = ""
[A2] = ComboBox1.Value
Set k = Sheets("DATA").Range("C2:C" & Sheets("DATA").Cells(65536, "C"). _
End(xlUp).Row).Find(Range("A2").Value, , xlValues, xlWhole)
If Not k Is Nothing Then TextBox1.Value = k.Offset(0, 1).Value
End Sub

 

[İhsan Tank]

Dosyamda değişiklik yaptım;bir yanlışım varsa bildirmenizi rica ediyorum.
İlla ki düşeyara olması şart değil;başka çözüm de olabilir...

merhaba
makroyu bununla değiştirin

Option Explicit
Private Sub ComboBox1_Change()
Dim ts, kaplan
[A2] = ComboBox1.Value
If WorksheetFunction.CountIf(Sheets("DATA").Range("C2:C5"), ComboBox1.Value) > 0 Then
TextBox1 = WorksheetFunction.VLookup(ComboBox1.Value * 1, Sheets("DATA").Range("C2:D5"), 2, 0)
End If
End Sub

 

[hayri tekin]

Merhaba üstadlarım,
Yanıtlarınıza şimdi bakabildim;ilginize çok teşekkür ederim.
Saygılar

 

[İhsan Tank]

Merhaba üstadlarım,
Yanıtlarınıza şimdi bakabildim;ilginize çok teşekkür ederim.
Saygılar

rica ederim
Syn : Orion1 hocam'ada çok teşekkür ederim
:yazici: