comboboxlardaki verilerden yatayda ve dikeyde eşleşenleri bulup veri göndermek

[udentr2002]

Merhaba arkadaşlar,

Dosyamın bir örneğini ekli dosyada gönderiyorum.

Ekli dosyada formu açtığınızda, listbox1'e ve listbox2 deki verilere tıkaldığımızda comboboxlara verileri alıyor.

Buarada combobox1 deki veriyi a sütünunda dikeyde bulup, combobox2'de yazan veriyide 9 satırda yatayda bulup iki hücrenin kesiştiği yere kriter gönder butonuna tıkladığımızda textboxlarda ki veriyi alıp alt alta yazacak
bunu nasıl yapabilrim?

Bu konuda yardımcı olursanız sevinirim. Ne kadar uğraştıysam döngüyü doğru kuramadım.

 

[Huseyinkis]

Ekteki kodları denermisiniz.

Private Sub CommandButton1_Click()
Set S1 = Sheets("Revizyon_Son")

bul = S1.Range("A1:A65536").Find(ComboBox1.Value, , xlValues, xlWhole).Row
Bul2 = S1.Range("A9:IV9").Find(ComboBox2.Value, , xlValues, xlWhole).Column
Cells(bul, Bul2).Value = TextBox37
Cells(bul + 1, Bul2).Value = TextBox38
Cells(bul + 2, Bul2).Value = TextBox39
End Sub

 

[asi_kral]

Merhaba arkadaşlar,

Dosyamın bir örneğini ekli dosyada gönderiyorum.

Ekli dosyada formu açtığınızda, listbox1'e ve listbox2 deki verilere tıkaldığımızda comboboxlara verileri alıyor.

Buarada combobox1 deki veriyi a sütünunda dikeyde bulup, combobox2'de yazan veriyide 9 satırda yatayda bulup iki hücrenin kesiştiği yere kriter gönder butonuna tıkladığımızda textboxlarda ki veriyi alıp alt alta yazacak
bunu nasıl yapabilrim?

Bu konuda yardımcı olursanız sevinirim. Ne kadar uğraştıysam döngüyü doğru kuramadım.

Merhaba
Butona atayım dener misiniz_?

Private Sub CommandButton1_Click()
'Konu       :   Combobox'tan Seçileni Kritere Göre Yapıştır
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Long, kral As Long, a As Worksheet
Set a = Sheets("Revizyon_Son")
asi = WorksheetFunction.Match(ComboBox1, a.Range("A:A"), 0)
kral = WorksheetFunction.Match(ComboBox2, a.Rows("9:9"), 0)
a.Cells(asi, kral) = TextBox37
a.Cells(asi + 1, kral) = TextBox38
a.Cells(asi + 2, kral) = TextBox39
End Sub

 

[udentr2002]

Hüseyin hocam teşekkürler ellerine ve emeğine sağlık çalışıyor. Şimdi kendi programıma uygulayacağım.

Asi hocam seninde ellerine sağlık