Quiero macro que borre las filas que tengan en una celda un valor que se obtendrá de otra celda
Dim Valor As String
Valor = Worksheets("Sharis").Range("C1014").Value
For fila = 3 To 1002
If Cells(fila, 3).Value = Valor Then
Rows(fila).ClearContents
End If
Next fila
ME MARCA este ERROR
If Cells(fila, 3).Value = Valor Then
Se ha producido error '13' en tiempo de ejecución
1 Respuesta
Respuesta de Dante Amor
1
¿Qué más dice el mensaje de error? Dice "no coinciden los tipos"
Si en la celda donde buscas tienes una fórmula, y resultado de la fórmula es un error, entonces, prueba con lo siguiente:
Dim Valor As String
Valor = Worksheets("Sharis").Range("C1014").Value
For fila = 3 To 1002
If Not IsError(Cells(fila, "C")) Then
If Cells(fila, 3).Value = Valor Then
Rows(fila).ClearContents
End If
End If
Next fila.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
