userformdan veri aktarmak

[mtbi00]

Merhaba,

Yapmış olduğum programda userform ile veri girişi yapıldıktan sonra ordaki bilgileri sayfaya yazdırmak istiyorum. Userformda cls1, cls2, cls3 gibi 10 tane veri var. Bunları sayfaya yazdırmak istediğimde tek tek giriş yapmak (s1.cells(1,"a")=anaform.cls1) gibi on tane satır yazmaktansa for next döngüsü ile yaptırmak istiyorum ama formulü bir türlü oluşturamadım. Yapmış olduğum for next döngüsünün örnegi aşağıda ki gibidir. Ama ne yaptımsa cls sonuna rakamları getiremiyorum. Yardımcı olursanız sevinirim.

For i = 1 To 10
cx = "cls" & i
s1.Cells(i, "a") = anamenu.cx : Burada hata veriyor
Next

For i = 1 To 10
s1.Cells(i, "a") = anamenu.cls & i : Burada hata veriyor
Next

 

[hamitcan]

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
    For Each Ctrl In UserForm1.Controls
        If TypeName(Ctrl) = "TextBox" Then
            i = i + 1
            Cells(i, 1) = Ctrl.Value
        End If
    Next
End Sub

 

[mtbi00]

Bu şekilde deneyiniz.

Private Sub CommandButton1_Click()
    For Each Ctrl In UserForm1.Controls
        If TypeName(Ctrl) = "TextBox" Then
            i = i + 1
            Cells(i, 1) = Ctrl.Value
        End If
    Next
End Sub

Merhaba,
İlginizden dolayı çok teşekkür ederim. Ama sanırım eksik anlattım. Userform üzerinde tek bir bilgi yok. Bir çok veri giriş yeri var ve ben sadece cls1, cls2, cls3... cls10 daki lerini almak istiyorum. Sizin gönderdiğiniz formul sanırım userform üzerindeki bütün bilgileri çekiyor. Sadece cls deki bilgileri nasıl alabilirim. Yardımlarınız için teşekkürler.

 

[Orion1]

Şöyle deneyin.

For i = 1 To 10
s1.Cells(i, "a").Value = Me.Controls("cls" & i)
Next

 

[mtbi00]

s1.Cells(i, "a").Value = Me.Controls("cls" & i)

Hocam merhaba,

Tamamdır. Çok teşekkür ederim. İyi çalışmalar.

 

[Orion1]

Hocam merhaba,

Tamamdır. Çok teşekkür ederim. İyi çalışmalar.

Rica ederim.
İyi çalışmalar.