combobox yanlış yerden veri alıyor

[limanC34]

Selam Arkadaşlar
Siteden bulduğum dosyalarla bir çalıma yapmak istiyorum.Ama personel detaylı bilgiler userformundaki combobox veri sayfasından bilgi alıyor,oysa personel detay sayfasından alması gerekiyor.Yardım ederseniz sevinirim.
Teşekkürler.

 

[limanC34]

Şİfre :123

 

[Skorpiyon]

Sayın limanc34,

Personeldetay formunuzun Initialize kodunu aşağıdaki şekilde değiştiriniz.

Private Sub UserForm_Activate()
ComboBox1.RowSource = "PERSONELDETAY!B2:B" & WorksheetFunction.CountA(Worksheets("PERSONELDETAY").Range("B1:B65536"))
End Sub

 

[Orion1]

İnitialize olayınandaki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "PERSONELDETAY!b2:b5000"
End Sub

 

[limanC34]

Sayın Evren Gizlen

Private Sub ComboBox1_Change()
Set s1 = Sheets("PERSONELDETAY")


sat = s1.Columns(1).Find(ComboBox1.Value).Row


TextBox1.Value = s1.Cells(sat, 2).Value
TextBox2.Value = s1.Cells(sat, 3).Value
TextBox3.Value = s1.Cells(sat, 4).Value
TextBox4.Value = s1.Cells(sat, 5).Value
TextBox5.Value = s1.Cells(sat, 6).Value

İsim seçince yukarıdaki mesaj geliyor.
…………………………………………………………………………………………………

Sayın Şaban Sertkaya


Private Sub UserForm_Activate()


ComboBox1.RowSource = "PERSONELDETAY!B2:B" & WorksheetFunction.CountA(Worksheets("PERSONELDETAY ").Range("B1:B65536"))


End Sub


Personel detaylı formunun butonuna tıklayınca yukarıdaki mesaj geliyor.

 

[Orion1]

Aşağıdaki kodu deneyiniz.
Ayrıca bu kodları change olayına değilde exit olayına yazarsanız dağa doğru olacaktır.
Veya bir butona atamanız dağa doğru olacaktır.

Private Sub ComboBox1_Change()
Set s1 = Sheets("PERSONELDETAY")


set sat = s1.Columns(1).Find(ComboBox1.Value).Row
if not sat is nothing then
     TextBox1.Value = s1.Cells(sat, 2).Value
     TextBox2.Value = s1.Cells(sat, 3).Value
     TextBox3.Value = s1.Cells(sat, 4).Value
      TextBox4.Value = s1.Cells(sat, 5).Value
      TextBox5.Value = s1.Cells(sat, 6).Value
end if

 

[limanC34]

Yapamadım yine sayın hocam yine hata mesajı.

 

[limanC34]

Dosyanın son hali.

 

[Orion1]

Dosyanız ekte.:coo:

 

[limanC34]

Sayın Evren Gizlen
Değerli çözümüz ve sabrınıza teşekkürler.
Saygılarımla.

 

[memettt]

KÖprÜ Eklİyoda KÖprÜ FormÜlÜ GÖzÜÜkÜyo HÜcrede Yerİnr Nasil Bİrsey Yazabİlİrİm

 

[memettt]

arkadaslar bilen yokmu

 

[Orion1]

Sayın Evren Gizlen
Değerli çözümüz ve sabrınıza teşekkürler.
Saygılarımla.

Rica ederim.
İyi çalışmalar.