Sayfadan UserForm'a veri gönderme

[bordo6181]

Merhaba

Benim bir UserFormum var ona şimdi bir buton ekleyip bir yerden veri geçmek istiyorum ama beceremedim.

Mesela buraya 1 yazdığımda ve G tuşuna bastığımda

Birinci satır olarak algılasın durumu




1 satırın birinci sütunun Firma Adı yazan yere 2. Sütünunu ise Proje adı yazan yere yazsın

Bu dosya da aynı excelde kayit isimli bir sayfada

Private Sub getir1_Click()
UserForm1.proje.Value = kayit.Cells(sonn,1)
End Sub

tarzı bir kod yazdım ama olmadı

 

[Ömer]

Merhaba,

Aşağıdaki gibi bir yapı kurabilirsiniz. Textbox numaralarını kendi dosyanıza göre uyarlarsınız.

Private Sub getir1_Click()
    g_text_degeri = TextBox3.Text
    TextBox1.Text = Sheets("kayit").Cells(g_text_degeri + 1, "A")
    TextBox2.Text = Sheets("kayit").Cells(g_text_degeri + 1, "B")
End Sub

 

[bordo6181]

Teşekkür ederim oldu şuan.