Bağlantılı Combobox Hatası

[Bwtunc]

Merhaba Arkadaşlar,

İnternetin altını üstüne getirerek, gerek buranın gerekse Youtube'nin nimetlerinden yararlanarak aşşağıda yer alan makro kodlarını yazdım( Çok iyi bilgim olmadığından düzensiz olabilir. Bilen kişiler şimdiden hor görmesinler lütfen ).

Fakat Userform içinde kullandığım combobox 1. hücreyi (yani rakam olarak tanımladığım) sayfaya yazıyor. Ben ise 2. sütun verilerini yazmak istiyorum. Nasıl yapabilirim?

Dim SonSatır As Variant

Private Sub cbsinemalar2_Change()
personeller2
End Sub
Sub personeller2()

Dim x, y As Integer

Cbpersonel.Clear

y = Sheets("personeller").Range("a100").End(xlUp).Row

For x = 2 To y

If Sheets("Personeller").Range("A" & x).Value = cbsinemalar2.List(cbsinemalar2.ListIndex, 0) Then

Cbpersonel.AddItem Sheets("Personeller").Range("b" & x).Value

End If




Next



End Sub

Private Sub CommandButton1_Click()

If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" And TextBox12 <> "" Then

If IsNumeric(TextBox2.Value) And IsNumeric(TextBox3.Value) And IsNumeric(TextBox4.Value) And IsNumeric(TextBox5.Value) And IsNumeric(TextBox6.Value) Then

SonSatır = WorksheetFunction.CountA(Worksheets("İşletme Verileri").Range("A:A")) + 1


Worksheets("İşletme Verileri").Cells(SonSatır, 3) = TextBox1.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 7) = TextBox2.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 8) = TextBox3.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 9) = TextBox4.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 10) = TextBox5.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 11) = TextBox6.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 1) = TextBox12.Value
Worksheets("İşletme Verileri").Cells(SonSatır, 2) = Cbsinemalar.Value


MsgBox "İşletme Verileri Başarıyla Kaydedildi."

Else

MsgBox "Lütfen sadece rakam giriniz!"
End If

Else

MsgBox "Tanımlı alanlar boş bırakılamaz"

End If

End Sub




Private Sub CommandButton2_Click()
If TextBox7 <> "" And TextBox8 <> "" And TextBox9 <> "" And TextBox10 <> "" And TextBox11 <> "" And TextBox13 <> "" Then

If IsNumeric(TextBox8.Value) And IsNumeric(TextBox9.Value) And IsNumeric(TextBox10.Value) And IsNumeric(TextBox11.Value) Then

SonSatır = WorksheetFunction.CountA(Worksheets("Kişisel Veriler").Range("A:A")) + 1

Worksheets("Kişisel Veriler").Cells(SonSatır, 2) = Cbsinemalar.Value
Worksheets("Kişisel Veriler").Cells(SonSatır, 4) = TextBox7.Value
Worksheets("Kişisel Veriler").Cells(SonSatır, 8) = TextBox8.Value
Worksheets("Kişisel Veriler").Cells(SonSatır, 9) = TextBox9.Value
Worksheets("Kişisel Veriler").Cells(SonSatır, 10) = TextBox10.Value
Worksheets("Kişisel Veriler").Cells(SonSatır, 11) = TextBox11.Value
Worksheets("Kişisel Veriler").Cells(SonSatır, 3) = Cbpersonel.Value
Worksheets("Kişisel Veriler").Cells(SonSatır, 1) = TextBox13.Value

MsgBox "Kişisel Veriler Başarıyla Kaydedildi."

Else

MsgBox "Lütfen sadece rakam giriniz!"
End If

Else

MsgBox "Tanımlı alanlar boş bırakılamaz"

End If

End Sub


Private Sub userform_initialize()
TextBox1 = FormatDateTime(Now, vbLongDate)
TextBox7 = FormatDateTime(Now, vbLongDate)
TextBox12 = "Akdeniz 2"
TextBox13 = "Akdeniz 2"
sinemalar1
Sinemalar2
End Sub

Sub sinemalar1()

Dim x As Byte

x = Sheets("Sinemalar").Range("a100").End(xlUp).Row
Cbsinemalar.ColumnCount = 2
Cbsinemalar.ColumnWidths = "0,60"
Cbsinemalar.RowSource = "sinemalar!a2:b" & x

End Sub

Sub Sinemalar2()
Dim x As Byte

x = Sheets("Sinemalar").Range("a100").End(xlUp).Row
cbsinemalar2.ColumnCount = 2
cbsinemalar2.ColumnWidths = "0,60"
cbsinemalar2.RowSource = "sinemalar!a2:b" & x

End Sub

Sinemalar1 ve Sinemalar 2 olarak tanımladığım yerde hata oluyor.

Destekleriniz için teşekkürler.

 

[ÖmerFaruk]

Hangi ComboBox olduğunu söylememişsiniz. Bu yüzden herhangi bir ComboBox için örnek yapayım

Worksheets("Kişisel Veriler").Cells(SonSatır, 2) = Cbsinemalar.List(ComboBox1.ListIndex, 1)
'Cbsinemalar combosunun seçili satırında, ikinci kolondaki değeri yazar
'ComboBox1.ListIndex : Seçili olan satır, eğer seçim yapılmamışsa hiç değer -1 dir, ilk satır 0, sonrakiler varsa 1-2-3...diyedir

 

[Bwtunc]

Hangi ComboBox olduğunu söylememişsiniz. Bu yüzden herhangi bir ComboBox için örnek yapayım

Worksheets("Kişisel Veriler").Cells(SonSatır, 2) = Cbsinemalar.List(ComboBox1.ListIndex, 1)
'Cbsinemalar combosunun seçili satırında, ikinci kolondaki değeri yazar
'ComboBox1.ListIndex : Seçili olan satır, eğer seçim yapılmamışsa hiç değer -1 dir, ilk satır 0, sonrakiler varsa 1-2-3...diyedir

Teşekkür ederim Ömer Bey. İlk etapta verdiğiniz kodu denedim olmadı. Tam derdimi anlatmak için destan yazmaya başlayacaktım ki "Ya adam yol göstermiş bi uğraş vardır elbet bir bildiği" diye düşünüp hataya neden olan unsuru gördüm ve düzelttim. Emeğinize sağlık.

 

[ÖmerFaruk]

İyi dilekleriniz teşekkür eder, uğraşıp sorunu kendiniz çözdüğünüz için tebrik ederim.