Merhaba arkadaşlar,elimdeki excel dosyasında 2 adet sayfa var,bu sayfalar personel listesinin bulunduğu Personel_Listesi ve İzin_Kartı sayfaları. Buna ilave olarak 1 adet UserForm ve form üzerinde 2 adet ComboBox var (Bu ComboBox'lar Personel_Listesi sayfasından bilgi çekiyor.),Visual Basic bölümünde kodları aşağıda yazdığım gibi yazıyorum ve çalıştırıyorum.Makroyu çalıştırdığımda o an eğer Personel_Listesi sayfasında bulunuyorsam yani aktif sayfa Personel_Listesi ise sorun olmadan çalışıyor.Fakat başka bir sayfadaysam "Runtime Error 1004-Range sınıfının Select yöntemi başarısız" hatası veriyor.Yeni bir UserForm üzerinde aynı şeyleri denedim fakat yine aynı şekilde hata verdi.Yardımlarınızı bekliyorum.
Private Sub ComboBox1_Change()
Worksheets("Personel_Listesi").Range("A2:A199").Select
Selection.Find(ComboBox1.Value).Select
txtSicil.Value = ActiveCell.Offset(0, 1).Value
txtKıdem.Value = ActiveCell.Offset(0, 2).Value
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Personel_Listesi!A2:A199"
ComboBox2.RowSource = "Personel_Listesi!E2:E5"
End Sub
Private Sub ComboBox1_Change()
Worksheets("Personel_Listesi").Range("A2:A199").Select
Selection.Find(ComboBox1.Value).Select
txtSicil.Value = ActiveCell.Offset(0, 1).Value
txtKıdem.Value = ActiveCell.Offset(0, 2).Value
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Personel_Listesi!A2:A199"
ComboBox2.RowSource = "Personel_Listesi!E2:E5"
End Sub