Borrar contenido de ciertas columnas mediante una condición
Publicado por Hugo (1 intervención) el 22/07/2021 08:18:33
Me encuentro trabajando un archivo en el cual necesito borrar el contenido de columnas específicas tras cumplirse una condición
Ya logre seleccionar la fila tras cumplirse la condición pero no encuentro el modo de borrar el contenido de las columnas necesarias tomando en cuenta que en los renglones que le anteceden y los que le suceden también hay información
Lo que llevo hasta el momento es
Dim Fila As Integer
Dim Columna As Integer
Columna = 2
For Fila = 2 To 13
If ActiveSheet.Cells(Fila, Columna) = "En cedis" Then
ActiveSheet.Cells(Fila, Columna).Select
Selection.EntireRow.Select
Ya también hice que lo copie y pegue en una hoja para almacenar la información de dicha fila y al volver a la hoja necesito borrar el contenido de las columnas 8,7,6,5
Ya logre seleccionar la fila tras cumplirse la condición pero no encuentro el modo de borrar el contenido de las columnas necesarias tomando en cuenta que en los renglones que le anteceden y los que le suceden también hay información
Lo que llevo hasta el momento es
Dim Fila As Integer
Dim Columna As Integer
Columna = 2
For Fila = 2 To 13
If ActiveSheet.Cells(Fila, Columna) = "En cedis" Then
ActiveSheet.Cells(Fila, Columna).Select
Selection.EntireRow.Select
Ya también hice que lo copie y pegue en una hoja para almacenar la información de dicha fila y al volver a la hoja necesito borrar el contenido de las columnas 8,7,6,5
Valora esta pregunta
0