checkBox sorunu

[c_235]

Arkadaşlar günaydın.....

Userform üzerinde Checkbox elemanlarım var...Bunları işaretlediğimde bana user form üzerinde textbox kutusu eklemesini istiyorum..

Private Sub CommandButton6_Click()
If CheckBox1.Value = True Then
TextBox1.add ...(" böyle bi kod yok galiba")
Else
End If
End
End Sub

herkese kolay gelsin.....

 

[hamitcan]

Private Sub CommandButton6_Click()
Dim Ctrl As Control, i As Integer, x As MSForms.TextBox
    If CheckBox1.Value = True Then
        Set x = UserForm1.Controls.Add("Forms.TextBox.1")
            For Each Ctrl In UserForm1.Controls
                If TypeName(Ctrl) = "TextBox" Then
                    i = i + 1
                End If
            Next Ctrl
             With x
               .Name = "Planting" & (i + 1)
               .Top = 18 + (i * 18)
               .Left = 138
               .Width = 36
               .Height = 15.75
               .Font.Size = 8
               .Font.Name = "Tahoma"
               .BorderStyle = fmBorderStyleSingle
               .SpecialEffect = fmSpecialEffectFlat
            End With
    End If
End Sub

Alıntı:http://en.allexperts.com/q/Excel-1059/2009/4/VBA-cde-add-textbox.htm

 

[c_235]

Çok Teşekkürler hamitcan arkadaşım.....

 

[c_235]

hamitcan arkadaşım,program çalışmıyor ...kodları şimdiii çalıştırdım ekleme yapmıyor ,userform üzerine ,ama görünüşte kodların algoritması doğru gibi ama anlamdadım herhalde bir yerde hata var......

 

[hamitcan]

Eki inceleyin.