Userform Sorgu Hk.

[hilmitaranci]

Merhabalar,

Userformlar ile yapmaya çalıştığım bir olayda maalesef çözüm üretemedim.

Userform3 adlı formumda kişilere ait verilerin girilip, alındığı, düzeltildiği bir ekranım var. Buraya girip düzelttiğim ve kaydettiğim tüm veriler "sicil" adlı bir sayfada işlem yapıyor.

Birde Userform4 adlı bir form yapmak istedim.
Buraya da verilerin egitim adlı bir sayfadan, userform3 de hangi personel seçili ise button8 basınca ona ait verileri form4 deki label lara getirmeye çalışıyorum.

Ancak bir türlü bağlantıları sağlayamadım.

Örnek dosyayı ancak akşam hazırlayabilirim. Mevcut dosyamda çok fazla kayıt olduğu için karmaşadan başka birşey yaratmayacaktır.

Ancak formların resimlerini aşağıya ekledim.

Bir yol yordam gösterebilirseniz çok sevinirim.

 

[hilmitaranci]

Merhabalar,

Userformlar ile yapmaya çalıştığım bir olayda maalesef çözüm üretemedim.

Userform3 adlı formumda kişilere ait verilerin girilip, alındığı, düzeltildiği bir ekranım var. Buraya girip düzelttiğim ve kaydettiğim tüm veriler "sicil" adlı bir sayfada işlem yapıyor.

Birde Userform4 adlı bir form yapmak istedim.
Buraya da verilerin egitim adlı bir sayfadan, userform3 de hangi personel seçili ise button8 basınca ona ait verileri form4 deki label lara getirmeye çalışıyorum.

Ancak bir türlü bağlantıları sağlayamadım.

Örnek dosyayı ancak akşam hazırlayabilirim. Mevcut dosyamda çok fazla kayıt olduğu için karmaşadan başka birşey yaratmayacaktır.

Ancak formların resimlerini aşağıya ekledim.

Bir yol yordam gösterebilirseniz çok sevinirim.

Sorunu çözdüm gibi.
Aşağıdaki kodu oluşturabildim ancak.

Sadece eğitim alan kimse yoksa programı durduramıyorum.







Private Sub UserForm_Initialize()

Dim sicil As Worksheet

Set egitim = Sheets("egitim")

ad = UserForm3.TextBox2.Value

Controls("label11") = ad

satir = Sayfa8.Range("b65536").End(3).Row


If WorksheetFunction.CountIf(Sayfa8.Range("B:B"), ad) = 0 Then

MsgBox ad & " Çalışanına Ait Eğitim Kaydı Yok."

Exit Sub

Else

strs = WorksheetFunction.Match(ad, Sayfa8.Range("B:B"), 0)

End If

x = 2
xx = 12
xxx = 32
xxxx = 42
xxxxx = 52
xxxxxx = 62
xxxxxxx = 72


For a = 1 To satir



If egitim.Range("b" & a) = ad Then



UserForm4.Controls("Label" & x).Caption = egitim.Range("c" & strs)
UserForm4.Controls("Label" & xx).Caption = egitim.Range("d" & strs)
UserForm4.Controls("Label" & xxx).Caption = egitim.Range("e" & strs)
UserForm4.Controls("Label" & xxxx).Caption = egitim.Range("f" & strs)
UserForm4.Controls("Label" & xxxxx).Caption = egitim.Range("g" & strs)
UserForm4.Controls("Label" & xxxxxx).Caption = egitim.Range("h" & strs)
UserForm4.Controls("Label" & xxxxxxx).Caption = egitim.Range("I" & strs)

x = x + 1
xx = xx + 1
xxx = xxx + 1
xxxx = xxxx + 1
xxxxx = xxxxx + 1
xxxxxx = xxxxxx + 1
xxxxxxx = xxxxxxx + 1
strs = strs + 1


End If

Next

End Sub