Sıralı Tab Indexlere sahip TextBoxlara, Kopyala/Yapıştır ile verilerin girilmesi.

[ex912]

selamlar,

Excel çalışma sayfasında bulunan 2*6 boyutlarındaki verileri el ile kopyala / yapıştır metodu kullanarak oluşturduğum userformda yine aynı sayıdaki textboxlara, herbir veri sıradaki textboxa yayılacak şekilde yazdırmak istiyorum. Mevcut durumda çalışma sayfasından kopyaladığım hücrelerin sadece ilk ikisi, userformdaki ilk textboxa yapıştırabiliyorum.
Diğer verileri, tab sırasına göre textboxlara nasıl yayabilirim?
Ekte çalışma dosyam mevcut

şimdiden teşekkürler..

 

[Murat OSMA]

TabIndex'e göre hiç denemedim ama şu kodları bir deneyiniz...

TextBox'ların sıralı şekilde; TextBox1 - TextBox2 şeklinde gitmesi gerek...
Yani mevcut TextBox'ları silip yeniden ekleyiniz..

Private Sub UserForm_Initialize()
    Dim i As Integer, c As Integer
    Dim a As Integer, b As Integer
    a = 16: b = 16
    
    For i = 1 To 6
        Controls("TextBox" & i) = Cells(a, 6)
        a = a + 1
    Next i
    For c = 7 To 12
        Controls("TextBox" & c) = Cells(b, 7)
         b = b + 1
    Next c
End Sub

 

[Orion1]

Textboxların tag özelliklerine göre yaptım.,
Dosyanız ektedir.

Private Sub UserForm_Initialize()
Me.Caption = "evrengizlen@hotmail.com"
Dim txbx As Object
For Each txbx In Me.Controls
    If TypeName(txbx) = "TextBox" Then
        txbx.Value = Range(txbx.Tag).Value
    End If
Next
End Sub

 

[Murat OSMA]

Teşekkürler Evren Bey..

 

[Orion1]

Teşekkürler Evren Bey..

Rica ederim.

 

[ex912]

Fikirleriniz ve yardımlarınız için teşekkürler, fakat amaçladığım şey excel hücrelerini referans göstererek textboxlara veri yazdırmak değil, hücreden mouse ile kopyaladığım hücreleri her hücre ayrı textboxa denk gelecek şekilde yapıştırmaktı. Bir türlü muvaffak olamadım.