Problemilla con excel
Hola! Tengo una macro hecha que lo que hace es comparar una hoja con otra si los resultados se encuentran se pintan en verde, pero si no los encuentra no los pinta en nada. Quiero crearme otra macro que lo que haga es recoger todas las filas de aquellos que no estén pintados en verdes y pasarlos a otra hoja y copiarlos en la nueva hoja.
Mi problema es que no se como se crea una nueva hoja y se copian los registros no pintados en verdes a esa nueva hoja.
Seguro que me puedes ayudar porque es una cosa muy sencilla solo que es la primera vez que veo macros y no tengo ni idea je je.
Muchas gracias de antemano!
1 Saludo.
Mi problema es que no se como se crea una nueva hoja y se copian los registros no pintados en verdes a esa nueva hoja.
Seguro que me puedes ayudar porque es una cosa muy sencilla solo que es la primera vez que veo macros y no tengo ni idea je je.
Muchas gracias de antemano!
1 Saludo.
1 respuesta
Respuesta de tavopz
1
Se me ocurre que una macro como esta podría servirte:
Sub MacroDatosSinColor()
Dim w As Workbook
Dim c As Range
Set w = ThisWorkbook
Workbooks.Add
x = 1
For Each c In w.Sheets("Hoja1").Range("A1:A100")
If c.Interior.ColorIndex = xlNone Then
Range("A" & x).Value = c
x = x + 1
End If
Next c
End Sub
Esta debes pegarla en un módulo. Ten en cuenta que debes cambiar la información como el nombre de la hoja (de Hoja1 por el nombre de la hoja donde están los datos con o sin color) y el rango "A1:A100" por el rango de datos que deseas revisar en esa hoja.
Sub MacroDatosSinColor()
Dim w As Workbook
Dim c As Range
Set w = ThisWorkbook
Workbooks.Add
x = 1
For Each c In w.Sheets("Hoja1").Range("A1:A100")
If c.Interior.ColorIndex = xlNone Then
Range("A" & x).Value = c
x = x + 1
End If
Next c
End Sub
Esta debes pegarla en un módulo. Ten en cuenta que debes cambiar la información como el nombre de la hoja (de Hoja1 por el nombre de la hoja donde están los datos con o sin color) y el rango "A1:A100" por el rango de datos que deseas revisar en esa hoja.
