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
If OptionButton1.Value = True Then
Cells(kosong, 7).Value = "Laki-Laki"
Else
If OptionButton2.Value = True Then
Cells(kosong, 7).Value = "Perempuan"
End If
End If
OptionButton1 = ""
OptionButton2 = ""
angka 7 diatas merupakan kolom di excel ya.. hasil jadinya seperti gambah dibawah jika tersimpan di excel
