TextBoxlarla birlikte ComboBoxları da kaydetsin

[kelkitli]

Değerli Dostlar Selamlar,

UserForm1("TextBox1,TextBox2,TextBox3,ComboBox1").Copy
Sayfa1.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
For a = 0 To 9
ActiveCell.Offset(0, a).Value =[COLOR="Red"] UserForm1.Controls("Textbox" & a + 1).Value[/COLOR]
Next a
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
MsgBox "KAYIT TAMAMLANDI"

Yukarıdaki kodlarla TextBox lardaki bilgiyi aktarıyorum, ComboBox taki bilgiyi aktaramıyorum. Nasıl bir değişiklik yapılması gerekir.
Saygılar.

 

[Korhan Ayhan]

Selamlar,

Hangi ComboBoxtaki bilgi hangi hücreye aktarılacak?

 

[Orion1]

Tag özelliklerini kullanın.
Taglara sütun numaralarını verin ve döngüye girerek taglardaki sütun numaralarına ait nesneleri ilgili sütunlara yazdırın.

 

[kelkitli]

Sayın Korhan Hocam,
Sayın Evren Hocam,
Öncelikle cevap verdiğiniz için ayrı ayrı teşekkürlerimi iletiyorum. Olayı anlatmak daha karmaşık olacağını düşündüğüm için dosyayı eklemek daha anlaşılır olur sanıyorum. Dosyayı ekliyorum.

 

[kelkitli]

Değerli Ustalarım,

ActiveCell.Offset(0, a).Value = UserForm1.Controls("Textbox" & a + 1).Value

Bu kodda TextBox yazılı olunca Textboxları görüyor.
ComboBox yazınca Comboboxları görüyor. Peki ikisini de görmesini sağlıyamazmıyız.
UserForm1.Controls("Textbox+ComboBox" & a + 1).Value benzeri birşey olabilirmi

 

[kelkitli]

Değerli Dostlar Selamlar,

Sub kaydet()
'K A Y D E T
On Error Resume Next
If TextBox2.Text = "" Then
MsgBox ("LÜTFEN ADINI YAZIN"), vbCritical, ("AD BÖLÜMÜ BOŞ")
Exit Sub
ElseIf TextBox3.Text = "" Then
MsgBox ("LÜTFEN SOYADINI YAZIN"), vbCritical, ("SOYADI BÖLÜMÜ BOŞ")
Exit Sub
ElseIf TextBox5.Text = "" Then
MsgBox ("LÜTFEN KART NUMARASINI YAZIN"), vbCritical, ("KART NO BÖLÜMÜ BOŞ")
Exit Sub
ElseIf ComboBox1.Text = "" Then
MsgBox ("LÜTFEN KART TİPİNİ YAZIN"), vbCritical, ("KART TİPİ NO BÖLÜMÜ BOŞ")
Exit Sub
End If
Set bul = Sayfa1.[B:B].Find(TextBox1) ' And Sayfa1.[C:C].Find(TextBox2)
If Not bul Is Nothing Then
If bul.Offset(0, 1).Value = TextBox2.Text Then
MsgBox "MÜKERRER KAYIT !", vbCritical, "DİKKAT !"
Exit Sub
End If
End If
UserForm1("TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,ComboBox1").Copy
Sayfa1.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
For a = 0 To 5
ActiveCell.Offset(0, a).Value = UserForm1.Controls("Textbox" & a + 1).Value
Next a
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
ActiveCell.Offset(0, 5).Value = UserForm1.ComboBox1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
MsgBox "KAYIT TAMAMLANDI"
End Sub

Şu şekilde bir çözüm yaptım. Umarım hata oluşmaz. Herkese Saygılar.