Combobox hakkında yardım

[Uludere48]

arkadaşlar merhaba.
Bir sınıf listesi hazırlıyorum userform içinde combobox ekledim. yapmak istediğim şey excelde sayfalar oluşturdum (sayfa1 - sayfa2 - sayfa3 ) şeklinde. bunlara isim verdim
10A - 10B - 10C şeklinde. yapmaya çalışıpta beceremediğim şey kayıt butonuna tıkladığımda combobox dan sınıfı seçicem bilgileri girip kayıt dediğimde o sayfaya kaydedecek yardımcı olabilirmisiniz. combobox olmayan kodlarım.

Private Sub CommandButton1_Click()
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
End Sub

 

[Ömer]

Merhaba,

Örnek hazırladım. Bunun üzerinden ilerleyebilirsiniz.

Private Sub CommandButton1_Click()
    
    Dim syf As String, son As Long
      
    On Error GoTo atla
    
    If ComboBox1.Value = "" Then
        MsgBox "Önce Sayfa Seçimi Yapın"
        Exit Sub
    End If

    syf = ComboBox1.Value
    son = Sheets(syf).Cells(Rows.Count, "A").End(xlUp).Row + 1

    Sheets(syf).Cells(son, "A") = TextBox1.Text

    
    Exit Sub
atla:
    MsgBox "Seçilen Sayfayı Bulamadım"
    
End Sub