AYUDA URGENTE CON MACRO POR FAVOR es importantisimo

Solo una Pregunta cuantas Hojas tiene tu Libro??

Hola y GRACIAS.

Necesito que la macro que estoy haciendo realice lo

siguiente.

Activada la hoja 2 tome el valor que sale en la columna J

(desde j2) y lo

busque en la hoja 3 columna K una vez encontrado tome el

valor que sale en

su columna H y lo anote en la D de la hoja 2, lo que dice

en la I de la hoja

3 lo anote en la E de la hoja 2 y lo que dice en la J de

la hoha 3 en la F

de la hoja 2.una vez realizado seguir con el siguiente

valor de la hoja 2

columna J hasta que la columna no tenga valores.


POR FAVOR ayudenme es importatisimo


FENArro




.

solo tres hojas
escribió en el mensaje
news:162e01c4a96e$44678c30$

Solo una Pregunta cuantas Hojas tiene tu Libro??
>Hola y GRACIAS.
>
>Necesito que la macro que estoy haciendo realice lo
siguiente.
>
>Activada la hoja 2 tome el valor que sale en la columna J
(desde j2) y lo
>busque en la hoja 3 columna K una vez encontrado tome el
valor que sale en
>su columna H y lo anote en la D de la hoja 2, lo que dice
en la I de la hoja
>3 lo anote en la E de la hoja 2 y lo que dice en la J de
la hoha 3 en la F
>de la hoja 2.una vez realizado seguir con el siguiente
valor de la hoja 2
>columna J hasta que la columna no tenga valores.
>
>
>POR FAVOR ayudenme es importatisimo
>
>
>FENArro
>
>
>
>
>.
>

Hola Fernando.

Mira a ver si te sirve la siguiente macro:

Sub analiza()
Dim Fila2 As Long
Dim Fila3 As Long
Fila2 = 2
Fila3 = 2
Do While Not IsEmpty(Worksheets(2).Range("J2").Offset
(Fila2 - 2, 0))
Do While Not IsEmpty(Worksheets(3).Range("K2").Offset
(Fila3 - 2, 0))
If Worksheets(3).Range("K2").Offset(Fila3 - 2,
0).Value = Worksheets(2).Range("J2").Offset(Fila2 - 2,
0).Value Then
Worksheets(3).Range("H" & Fila3 & ":J" &
Fila3).Copy
Worksheets(2).Range("D" & Fila2 & ":F" &
Fila2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
Fila3 = Fila3 + 1
Loop
Fila2 = Fila2 + 1
Fila3 = 2
Loop
End Sub

Un saludo.

Adolfo Aparicio
Visita mi página: www.excelavanzado.com

Hola y GRACIAS.

Necesito que la macro que estoy haciendo realice lo

siguiente.

Activada la hoja 2 tome el valor que sale en la columna

J (desde j2) y lo

busque en la hoja 3 columna K una vez encontrado tome el

valor que sale en

su columna H y lo anote en la D de la hoja 2, lo que

dice en la I de la hoja

3 lo anote en la E de la hoja 2 y lo que dice en la J

de la hoha 3 en la F

de la hoja 2.una vez realizado seguir con el siguiente

valor de la hoja 2

columna J hasta que la columna no tenga valores.


POR FAVOR ayudenme es importatisimo


FENArro




.