Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » MACRO PARA BORRAR CELDAS

Excel - MACRO PARA BORRAR CELDAS

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 8
Ha aumentado su posición en 2 puestos en Excel (en relación al último mes)
Gráfica de Excel

MACRO PARA BORRAR CELDAS

Publicado por JOSE MARIA MARTINEZ (5 intervenciones) el 17/09/2020 09:52:17
Necesito vuestra ayuda para crear una macro que borre ciertas celdas de un rango.
en concreto en la columna fin, borre las celdas cuya fecha es igual a hoy, y ademas borre la celda que esta a su izquierda, la de la columna comienzo, de manera que queden vacias, todas las celdas del rango B6:C45, cuando se cumpla la condición, pero no se cambie el formato.
Gracias,
Subo archivo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

MACRO PARA BORRAR CELDAS

Publicado por Antoni Masana (2477 intervenciones) el 17/09/2020 19:41:22
Entiendo que lo que quieres hacer es una macro que recorra las filas de la 6 a la 45 y si la fecha de la columna C (fin) es igual a hoy borre toda la fila.

1
2
3
4
5
6
7
8
9
10
11
Sub BorrarCeldas()
    Dim Fila As Integer
 
    For Fila = 6 To 45
        If Cells(Fila, "C") = Date Then
            Range("B" & Fila & ":C" & Fila).Select
            Selection.ClearContents
        End If
    Next
    Range("C6").Select
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar