userform kayıttan sonra son bilgilerin tekrar gözükmesi

[kokotuna]

arkadaşlar ekte verdiğim dosyada kayıt yapıp userformu tekrar açtığımda bilgilerin tekrar gözükmesini istiyorum bunu nasıl yapabilirim acaba???

 

[zafer]

Merhaba

UserForm_Initialize kısmına aşağıdaki kodları ilave ediniz.
ListBox1_Click kısmınıda siliniz.

For i = 1 To 13
Controls("textbox" & i) = Cells(i, 2)
Next
ComboBox1 = Cells(14, 2)
ComboBox2 = Cells(15, 2)
ListBox1.RowSource = "Bilgiler!A1:B" & Sheets("Bilgiler").Cells(65536, 1).End(xlUp).Row

Ayrıca Textbox ları tek tek ilave için kod yazmayın.

Kaydet butonuna yukarıdaki kodların tam tersini yazın

Private Sub CommandButton1_Click()
For i = 1 To 13
Cells(i, 2)=Controls("textbox" & i)
next
Cells(14, 2)=ComboBox1 
Cells(15, 2)=ComboBox2
    Unload UserForm1
end sub

 

[kokotuna]

teşekkürler zafer bey emeğinize sağlık. İşimi gördü...

 

[zafer]

Merhaba

Rica ederim

Mesajıma ilave yaptım onlarıda göz önünde bulundurun fazla kod yazmamak için faydalı olacaktır.

 

[kokotuna]

zafer bey teşekkür ederim ama bi sorum daha olucak müsadenizle...
Ben bu kutucuklara 3 tane daha ekledim ama bu sefer bu kodlar o 3 ünü etkilemiyor bunun çözümü nasıldır???

 

[kokotuna]

zafer bey ve ya bir başkası lütfen yardım???