Borrar APOSTROFE en cada celda seleccionada y filtrada

Además de usar el excel, yo utilizo un programa hecho a medida de gestion. Este exporta mucha informacion a EXCEL y en las tablas extraidas, las fechas las pone con un apostrofe delante, supongo que es algo de la programacion del sistema mio. Pero me hice un codigo en VBA:

Sub BorrarApostrofe()
'Por.DAM
For Each celda In Selection
    celda.Select
    SendKeys "{F2}", True
    DoEvents
    SendKeys "{HOME}", True
    DoEvents
    SendKeys "{DEL}", True
    DoEvents
    SendKeys "{F2}", True
    DoEvents
    SendKeys "{DOWN}", True
    DoEvents
Next
End Sub

Pero tengo un error, yo filtro para que me queden solo las fechas y poder aplicar esto, cuando selecciono solo las fechas filtradas, hay filas filtradas en las cuales se aplica y no quiero porque me borra el primer indice.

Respuesta
1
Sub BorrarApostrofO()
'Por.DAM
For Each celda In Selection
If celda.Height > 0 Then
    celda.Select
    SendKeys "{F2}", True
    DoEvents
    SendKeys "{HOME}", True
    DoEvents
    SendKeys "{DEL}", True
    DoEvents
    SendKeys "{F2}", True
    DoEvents
    SendKeys "{DOWN}", True
    DoEvents
End If
Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas