userformda textboxlar açılışta sayfadaki veriyi göstersin

[mustafa7691]

sn dostlar,benim yapmaya çalıştığım bir çalışmam var.henüz işin başındayım ve yardımınıza ihtiyacım var.userformdaki textbox ların açılışta sayfadaki veriyi göstermesini istiyorum.bu mümkünse yardımcı olursanız sevinirim saygılarımla.

 

[Orion1]

Dosyanız hazır.

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 6 To 16
    Controls("TextBox" & i - 2).Value = Cells(7, i).Value
Next i
TextBox4.Value = Format(TextBox4.Value, "dd.mm.yyyy")
End Sub

 

[mustafa7691]

sn Evren Gizlen çok teşekkür ederim.Süpersiniz.saygılarımla

 

[Orion1]

sn Evren Gizlen çok teşekkür ederim.Süpersiniz.saygılarımla

Rica ederim.
Sizde süpersiniz.
İyi çalışmalar.

 

[mustafa7691]

Sn Evren Gizlen yine aynı konuda rahatsız edicem sizi eğer müsait olur ve bakabilirseniz sevinirim.sorunu dosya içinde açıklamaya çalıştım saygılarımla.

 

[Orion1]

Sn Evren Gizlen yine aynı konuda rahatsız edicem sizi eğer müsait olur ve bakabilirseniz sevinirim.sorunu dosya içinde açıklamaya çalıştım saygılarımla.

Aşağıdaki kodlar işinizi görür.

Private Sub UserForm_Initialize()
Dim i As Byte, sut As Byte
sut = 35
For i = 4 To 14
    Controls("TextBox" & i).Value = Cells(665, sut).Value
    sut = sut + 1
Next i
TextBox4.Value = Format(TextBox4.Value, "dd.mm.yyyy")
End Sub