seçenek düğmesi hakkında

[hurkanpisirici]

merhabalar eklediğim dosyada a1 ve b1 hücresinde borç yada alacak bakiyem var işaret düğmesini tıklayınca hangi hücrede rakam varsa onun silkinmeisni istiyorum teşekkürler.

 

[hurkanpisirici]

tabi sayfada bunun gibi alt alta çok sayıda satır ver sadece karşısındaki hücreye hükmetmeli

 

[Ferhat Pazarçevirdi]

Aşağıdakileri, Sayfa1'in modul sayfasına kopyalayınız.

Private Sub OptionButton1_MouseDown(ByVal Button As Integer, _
                                    ByVal Shift As Integer, _
                                    ByVal X As Single, _
                                    ByVal Y As Single)
    Dim rg As Range
    Set rg = Range(Cells(Selection.Cells.Row, 1), _
                   Cells(Selection.Cells.Row + Selection.Cells.Rows.Count - 1, 2))
    rg.ClearContents
    Set rg = Nothing
End Sub
'-------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rg As Range
    If Target.Cells.Count > 1 Then
        Set rg = Cells(Target.Cells.Row, 1)
    Else
        Set rg = Target
    End If
    With OptionButton1
        .Top = rg.Top
        .Height = rg.Height
    End With
    Set rg = Nothing
End Sub

 

[hurkanpisirici]

çok teşekkür edeirm sağolun