jagan lupa tambah butt
Yambahkan rumus dibawah ini
untuk lebih jelas rumusnya seperti dibawah
Private Sub TAMBAH_Click()
Dim kosong As Long
Sheet2.Activate
kosong = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(kosong, 6).Value = ComboBox1.Value
With ComboBox1
.AddItem "Tunggal"
.AddItem "Kembar"
End With
ComboBox1.Value = "- Pilih Jenis Lahir -"
angka 6 diatas merupakan kolom di excel ya.. hasil jadinya seperti gambah dibawah jika tersimpan di excel
