Macro para eliminar fila para dante

Dante al eliminar la fils del rgistro ne cesito que el cursor se posicione e la columna A de fecha y que borre borre el 0,00 que queda en la columna G

1 Respuesta

Respuesta
1

Macro para eliminar fila

Sub EliminarFila()
'Por.Dante Amor
    f = ActiveCell.Row
    If f > 13 Then
        Range("A" & f & ":" & "G" & f).Clear
        Range("G" & f).Clear
    End If
End Sub

La macro queda mejor así

Sub EliminarFila()
'Por.Dante Amor
    f = ActiveCell.Row
    If f > 13 Then
        Range("A" & f & ":" & "G" & f).ClearContents
        Range("G" & f).Clear
        Range("A14").Select
    End If
End Sub

Si quieres que se posicione en la columna A en la misma fila que borraste:

Sub EliminarFila()
'Por.Dante Amor
    f = ActiveCell.Row
    If f > 13 Then
        Range("A" & f & ":" & "G" & f).ClearContents
        Range("G" & f).Clear
        Range("A" & f).Select
    End If
End Sub

¡Gracias! Dante ahora todo ok lo único cuando borro un registro se tiene que posicionar en la columna A del registro borrado o sea si borro A19:g19 se posiciona al borrarlo en a19 no en A17 abrazzzooo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas