UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Problema al copiar datos a otra hoja el 20/11/13, 12:04 pm

ceusito


Buenas tardes,

Soy nuevo en el mundo de las macros y necesitaría vuestra ayuda, he encontrado una que me coge las celdas rojas y me las copia a otra hoja, necesito sacar el dato de las que están en rojo y la que esta debajo de esas, a la hora de coger las de rojo todo va ok, el problema esta a la hora de coger la de debajo que me lo pone como texto y me escribe la formula en vez de aplicarla, os adjunto el excel para que lo podáis ver mas claramente.

Un saludo y gracias de antemano.
Archivos
CogeRojo.xls
No tienes los permisos para descargar los archivos.
(49 KB)

tyno


Hola ceusito.
El codigo debe quedar asi:

Private Sub CommandButton1_Click()
On Error Resume Next

Dim celda As Range

With Worksheets("Hoja2")

For Each celda In Range("a1:dd30")

If celda.Interior.ColorIndex = 3 Then

rw = .Range("a1:a1000").Find("").Row
.Cells(rw, 1) = celda
.Cells(rw, 2) = celda.Offset(1, 0)

End If

Next celda

.Range("a1:b1000").Sort key1:=.Range("a2"), order1:=xlAscending


End With

End Sub


y si quieres que el resultado se ordene por la columna A de la Hoja 2:

Private Sub CommandButton1_Click()
On Error Resume Next

Dim celda As Range

With Worksheets("Hoja2")

For Each celda In Range("a1:dd30")

If celda.Interior.ColorIndex = 3 Then

rw = .Range("a1:a1000").Find("").Row
.Cells(rw, 1) = celda
.Cells(rw, 2) = celda.Offset(1, 0)

End If

Next celda

End With

End Sub


Saludos

ceusito


Muchísimas gracias Tino, eres un crack!! Wink

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.