Macro delete rows

  • Thread starter Thread starter ianripping
  • Start date Start date
I

ianripping

I have a row number entered in A1.

I want to create a Macro what will delete the range o
($A$rownumber:$T$rownumber).

(rownumber is the number entered in A1!
 
Hi
try
sub delete_rownumber()
dim rng as range
dim row_number
row_number = activesheet.range("A1").value

set rng = range(cells(row_number,"A"),cells(row_number,"T"))
rng.clearcontents
end sub
 
no luck, asks to debug on line set rng
range(cells(row_number,"A"),cells(row_number,"T")
 
Hi
this works perfectly for me. what have you entered in cell A1. cell A1
has to contain a number. So you may try the following

Sub delete_rownumber()
Dim rng As Range
Dim row_number
row_number = ActiveSheet.Range("A1").Value
If IsNumeric(row_number) Then
Set rng = Range(Cells(row_number, "A"), Cells(row_number, "T"))
rng.ClearContents
Else
MsgBox "Enter a number in cell A1"
End If
End Sub
 
Back
Top