Herkese iyi çalışmalar. commandbutton' yazılı olan bu kodları sitenizden aldım. bu kodların Range(Activecell.Offset(0,1) ile başlayan ve sonuna kadar olan kısmının ne anlama geldiğini öğrenmek istiyorum. bilhassa Address(False,False) &":"& ile xIUp kısımlarını. şimdiden herkese teşekkürler
Private Sub sil_Click()
'VERİLERİ SİLER
On Error Resume Next
Dim say As Integer
Dim i As Integer
Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If TextBox2.Value = "" Or bos = "" Or ActiveCell = "" Then
Exit Sub
End If
Next bos
Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 10).Address(False, False)).Delete Shift:=xlUp
say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To say
Cells(i + 1, 1) = i
Next i
Private Sub sil_Click()
'VERİLERİ SİLER
On Error Resume Next
Dim say As Integer
Dim i As Integer
Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If TextBox2.Value = "" Or bos = "" Or ActiveCell = "" Then
Exit Sub
End If
Next bos
Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 10).Address(False, False)).Delete Shift:=xlUp
say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To say
Cells(i + 1, 1) = i
Next i