Döngü hk.

[chakistes]

Okul için hazırladığım programda sınıf oturma planı vardır. Ortalama 40 a yakın texbox kutusu ekleyeceğim öğrenci numaralarını yazdığımda textbox1 a1 hücresine texbox2 a3 hücresine gibi döngüye sokmak istiyorum. örnek program ektedir. Yardımlarınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları inceleyiniz.

Private Sub CommandButton1_Click()

'    Application.ScreenUpdating = False
'    On Error Resume Next
'        Set Alan = Range("A1")
'        For Each resimm In ActiveSheet.Pictures
'        If Not Intersect(resimm.TopLeftCell, Alan) Is Nothing Then
'        resimm.Delete
'        End If
'        Next
'        Set Alan = Nothing
'    Dim Resimyolu As Variant
'    Dim resim As Object
'    resimadı = TextBox1
'    Resimyolu = "C:\resim\" & resimadı & ".jpg"
'    Set resim = ActiveSheet.Pictures.Insert(Resimyolu)
'    With Range("A1")
'    resim.Top = .Top
'    resim.Left = .Left
'    resim.Height = .Height
'    resim.Width = .Width
'    End With
'    Application.ScreenUpdating = True

    Dim tb  As Control
    Dim i   As Integer
    i = 1
    
    For Each tb In Me.Controls
    
        If TypeName(tb) = "TextBox" Then
            i = i + 1
            Cells(i, "A") = tb.Value
        End If
        
    Next tb
    
End Sub

 

[chakistes]

döngü hk

Kodları denetim ama textbox 2 -3 ve 4 e numara yazdığımda gelmedi

 

[Necdet]

Bende neden çalışıyor?

 

[chakistes]

kodları kopyaladım resim aktarmıyor sadece sayfada 1 -2-3-4 yazıyor

 

[Necdet]

kodları kopyaladım resim aktarmıyor sadece sayfada 1 -2-3-4 yazıyor

Ha bu şekilde söylersen olur.
Ben benim yazdığım kodları denemek için sizin yazdığınız resimle ilgili kodları açıklama haline getirdim, dikkat ederseniz her satırda tek tırnak işareti var, onları kaldırın sorun çözülür.

 

[chakistes]

kardeş programı ekte gönderdim tırnakları kaldırdığım halde düzelmedi.