usefomdaki değerleri excele aktarma

[emrebengul]

merhaba arkadaşlar

yaptığım userform üzerinde anlamadığım noktalar var.
öncelikle bugünün tarihini excele aktarmak istiyorum. label şeklinde yazdığım için biraz kafamı karıştırdı.
userformu açtığınızda ComboBox1'de şıklardan hangisini seçtiiğimde excelde şık sütuna ismini yazsın istiyorum ama yapamadım bir türlü.
örneğin şıklar kısmında A şıkkını seçtiğimde şıklar sütununda A yazsın ve A sütununa 1 konulsun istiyorum.

yardımcı olur musunuz? çok önemli benim için. Şimdiden çok teşekkür ederim iyi bayramlar diliyorum

 

[emrebengul]

Arkadaşlar yardımcı olacak olan var mı

 

[Muzaffer Ali]

Merhaba.
İyi bayramlar.
Dosyanız ekte.

 

[emrebengul]

çok teşekkür ederim sağ olun.
Peki a yada b yi seçtiğimde örneğin matematik yazsın bunu nasıl yapabilirim yardımcı olur musunuz?

 

[Muzaffer Ali]

a'yı b'yi nerede seçeceksiniz?
Matematik nereye yazsın?

 

[kemal turan]

sn.dalgalıkur müsadenizle,
kodları aşağıdaki gibi değiştirin.

Private Sub btnKaydet_Click()
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row + 1

    Cells(Say, "A") = txtAd.Text
    Cells(Say, "B") = txtSoyad.Text
    Cells(Say, "C") = txtSinif.Text
    Cells(Say, "D") = txtNo.Text
    If cbSik.Text = "a" Or cbSik.Text = "b" Then
    Cells(Say, "E") = "Matematik"
    Else
    Cells(Say, "E") = cbSik.Text
    End If
    Cells(Say, "F") = lblTarih.Caption
    Cells(Say, "G") = txtOgretmen.Text
    Cells(Say, 9 + cbSik.ListIndex) = 1
End Sub