Seçili Alana Kayıt Yapma...

[unalh]

S.a Arkadaşlar.




Aşağıdaki kodda yapmak istediğim hangi OptionButton seçili ise o satırın en altına kayıt yapsın bu şekliye A-B-ve C sütunlarının altına kayıt yapıyor yani benim belirlediğim sütuna kayıt yapmalı nasıl bir değişiklik yapmalıyım ?





Private Sub CommandButton2_Click()
Sheets("Veri").Select

If OptionButton1.Enabled = True Then
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = TextBox1.Value
End If



If OptionButton2.Enabled = True Then
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = TextBox1.Value
End If

If OptionButton3.Enabled = True Then
Range("C1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = TextBox1.Value
End If



End Sub

 

[unalh]

Örnek Dosya Eklendi.

 

[unalh]

Güncel...........

 

[halit3]

Bunu denermisiniz.?

Private Sub CommandButton2_Click()
Sheets("Veri").Select
sutun = 1
If OptionButton1.Value = True Then
sutun = 1
ElseIf OptionButton2.Value = True Then
sutun = 2
ElseIf OptionButton3.Value = True Then
sutun = 3
Else
MsgBox "saçim yapmadınız"
Exit Sub
End If
sat = Worksheets(ActiveSheet.Name).Cells(65536, sutun).End(xlUp).Row + 1
Cells(sat, sutun).Value = TextBox1.Text
End Sub

 

[unalh]

Halit bey cevabınız için teşekkür ederim.



Hayırlı İşler.