Farklı sayfalardaki verilerin TextBox'a aktarılması

[ilobilo]

Merhabalar,

Düğme 1 e bastığım zaman
Sayfa1 deki tüm verileri Userformadaki Textbox' a getiriyor.
Sayfa2 deki ve Sayfa 3 deki verileri de,
Sayfa1 deki veriler gibi,
Userformdaki TextBox'a getirmesini istiyorum.

Yardımlarınızı rica eder saygılar sunarım.

 

[mesuttasar]

Selamlar Commandbutton 2 ye aşağıdaki kodları eklerseniz istediğinizi yapmış olursunuz.Saygılarımla ,

Private Sub CommandButton2_Click()
Dim i, j As Integer
Set s1 = Sheets("sayfa2")
i = 129
j = 3
10
Controls("TextBox" & i) = s1.Cells(j, 1)
Controls("TextBox" & i + 1) = s1.Cells(j, 2)
Controls("TextBox" & i + 2) = s1.Cells(j, 3)
Controls("TextBox" & i + 3) = Format(s1.Cells(j, 4), "###,### €")
i = i + 4
j = j + 1
If i > 256 Then GoTo 20
GoTo 10
20
End Sub

Command 3 butonuna da aşağıdaki kodları ekleyiniz.

Private Sub CommandButton3_Click()
Dim i, j As Integer
Set s2 = Sheets("sayfa3")
i = 258
j = 3
10
Controls("TextBox" & i) = s2.Cells(j, 1)
Controls("TextBox" & i + 1) = s2.Cells(j, 2)
Controls("TextBox" & i + 2) = s2.Cells(j, 3)
Controls("TextBox" & i + 3) = Format(s2.Cells(j, 4), "###,### €")
i = i + 4
j = j + 1
If i > 378 Then GoTo 20
GoTo 10
20
End Sub

 

[mesuttasar]

Örnek dosyayı eklemeyi unutmuşum.Dosyanız ektedir. :keyif: