Veri getirme

[TİKOS]

Arkadaşlar,
ekteki dosyada rapor butonunu tıkladığımda çıkan userformda firma ve proje adını seçtiğimde tablo sheetinde olan verileri getirsin istiyorum. Bu konuda yardımcı olursanız sevinirim.

Teşekkürler,

 

[dEdE]

Merhaba,
Aşağıdaki kodları kullanabilirsiniz.

Private Sub ComboBox2_Change()
Application.Goto Reference:=Range(Range("C:C").Find(What:=ComboBox2.Value, LookAt:=xlWhole).Address)
    txttarih.Value = Format(Cells(ActiveCell.Row, 4).Value, "dd.mm.yyyy")
    txtdirekt.Value = Format(Cells(ActiveCell.Row, 5).Value, "#,##0")
    txtsabit.Value = Format(Cells(ActiveCell.Row, 6).Value, "#,##0")
   '-------diğerlerini yukarıdaki satırlara bakarak yapabilirsiniz.------
End Sub

 

[TİKOS]

Hocam teşekkür ederim.
Ama uyguladığımda hata verdi. ekte dosyayı gönderiyorum.
Firma ve proje adının ikisinide seçip ona göre arama yaptırmam gerekiyor.
İlgilendiğiniz için tekrar teşekkürler

 

[dEdE]

Merhaba,
İkimiz de dikkatsiz davranmışız.
Kodun ikinci satırına aşağıdaki kırmızı satırı ekleyiniz. Bu benim dikkatsizliğim.

Private Sub ComboBox2_Change()
[COLOR="Red"]    Sheets("tablo").Select[/COLOR]
Application.Goto Reference:=Range(Range("C:C").Find(What:=ComboBox2.Value, LookAt:=xlWhole).Address)

Sizin dikkatsizliğinize gelince; Kodlarda adı geçen
Txtfon, txtkpr, Txtnk, txtpnl, txtpref nesneleri UserForm üzerinde yok. Userform üzerindeki nesnelerin adı başka.(TextBox1,.......TextBox5)
Sonuç; Kodlar ile UserForm üzerindeki nesnelerin adları aynı olmalı.
Kolay gelsin.

 

[TİKOS]

Teşekkürler,
ellerinize sağlık.