checkbox işaretli değilse

[arda896]

Private Sub CheckBox2_Click()
Dim i
Range("A1") = "Deneme"
sonsatir = Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 2 To sonsatir
If CheckBox2 = True Then
Cells(i, 1) = Label1
Else
Cells(Rows.Count, "A").End (xlUp) . Clear

End If

Next i
End Sub

If CheckBox2 = True Then
Cells(i, 1) = Label1
Else
Cells(Rows.Count, "A").End (xlUp).Clear

End If

burda checbox işaretlenince doğru çalışıyor fakat işaretten çıkınca son eklenen değeri silmesini istiyorum

 

[arda896]

Cells(Rows.Count, "A").End (xlUp).Clear


tüm sütunu siliyor

 

[Ziynettin]

range("A" & Cells(Rows.Count, "A").End (xlUp)).clear

Bu şekilde düzeltip deneyiniz.

 

[arda896]

 

[Ziynettin]

Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Clear

 

[arda896]

Range("A" & Cells(Rows.Count, "A").End(xlUp).Row).Clear

Komple stunu sildi

 

[RBozkurt]

....
    Else
        Dim lastRow As Long
        lastRow = Cells(Rows.Count, "A").End(xlUp).Row
        Cells(lastRow, "A").ClearContents
    End If
.......