User forma bilgi getirme hatasını çözmek

[muhasebeciyiz]

Sayın arkadaşlar ;

Ekte sunmuş olduğum dosyam evvelce düzgün çalışmakta iken bu sefer user formda sorgulama yapığımda bilgiler gelmemektedir.
Edit ve bilgi girişine izin vermemektedir.

Yardımcı olursanız sevinirim.Saygılar

 

[BYSERTTAS]

Bahsettiğin Fornda Adı soyadı (TextBox2) Loked durumu False Olmalı ki yazmaya açılsın Ture Turumunda textbox a yazı yazamasın. fakat bilgilerin gelmesi içinde bir kod bukunmuyor. tam olarak nerede ne yapmak istediğini anlayamadım. Userfor1,Userform2,Userform3 hangi formda neişlem yapmak istiyorsun açıklamalısın. yardım eden olacaktır.

 

[muhasebeciyiz]

Sayın byserttas

Userform1'deki fatura çalıştırıldığında üye nosuna tıklayıp 1 nolu üyeyi seçip bul dediğimde
Alttaki kutucuklara adı soyadı + vergi dairesi + vergi numarası + tarihi ve telefonu otomatikman
geliyordu.Şimdi ise maalesef bu bilgiler gelmemektedir.

 

[BYSERTTAS]

On Error Resume Next

Dim KayıtSatırı As Variant
KayıtSatırı = WorksheetFunction.Match(ComboBox1, Sheets("Sayfa1").Range("b:b"), 0) "b:b Sayfadaki Sutun dur"
If Err.Number > 0 Then
Err.Number = 0
Else

TextBox2= Sheets("Sayfa1").Cells(KayıtSatırı, 3)
TextBox3= Sheets("Sayfa1").Cells(KayıtSatırı, 4)
TextBox4= Sheets("Sayfa1").Cells(KayıtSatırı, 5)
TextBox5= Sheets("Sayfa1").Cells(KayıtSatırı, 6)
End If
bu kodu ComboBox1_Change uygulayacaksın
End Sub

 

[BYSERTTAS]

Dosyanda sayfalar gizli olduğu için acamadım. bende fazla bilgi sahibi değilim. ancak bildiğim kadarıyla yardımcı olmaya çalıştım. ekli dosyamı incelersen sanırım kendine uyarlaya bilirsin Sub Turkcegetır() kodunu incele

 

[muhasebeciyiz]

Sayın BYSERTTAS ;

Üye bilgilerini görüntüle değiştire tıkladığımızda sayfalar gelmektedir.Dosyayı yeniledim.

Bu kodları uyarlayamadım. Lütfen uyarlanmış şekilde yapabilirseniz sevinirim.Teşekkür ederim.

 

[BYSERTTAS]

Üye No seçilince Gerekli Bilgiler Geliyor. Plaka,Tel No eklemedim Gerekenleri Sen Eklersin

 

[muhasebeciyiz]

Teşekkür ederim Eline sağlık.