Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim LR3 As Long, i3 As Long
- With Sheets("Productos")
- LR3 = Range("A" & Rows.Count).End(xlUp).Row
- For i3 = LR3 To 2 Step -1
- If IsNumeric(Sheets("Productos").Range("A" & i3).Value) Then
- Else
- Rows(i3).Delete
- End If
- Next i3
- End With
- Sub Sample()
- Dim LR3 As Long, i3 As Long
- With Sheets("Productos")
- LR3 = .Range("A" & .Rows.Count).End(xlUp).Row
- For i3 = LR3 To 2 Step -1
- If Not IsNumeric(.Range("A" & i3).Value) Then .Rows(i3).Delete
- Next i3
- End With
- End Sub
- Sub Sample()
- Dim LR3 As Long, i3 As Long
- With Sheets("Productos")
- LR3 = .Range("A" & .Rows.Count).End(xlUp).Row
- For i3 = LR3 To 2 Step -1
- If Not IsNumeric(.Range("A" & i3).Value) Or _
- .Range("A" & i3).Value = "" Then .Rows(i3).Delete
- Next i3
- End With
- End Sub
- Dim LR3 As Long, i3 As Long
- With Sheets("Productos")
- LR3 = .Range("A" & .Rows.Count).End(xlUp).Row
- For i3 = LR3 To 2 Step -1
- If IsNumeric(.Range("A" & i3).Value) And _
- len(.Range("A" & i3).Value) > 0 Then
- Else
- .Rows(i3).Delete
- End If
- Next i3
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement