Excel - copiar difrentes columna en base a una condición

 
Vista:
sin imagen de perfil

copiar difrentes columna en base a una condición

Publicado por celim (17 intervenciones) el 16/11/2014 00:24:36
Hola amigos,muchas gracias por aceptarme en este extraordinario foro.
escribo para pedirles su apoyo.
tengo un problema y es que con la macro que adjunto solamente puedo copiar un rango especificado de una columna, pero quisera que se copie difrentes rangos de diefrentes columnas y copiarlos en la Hoja "Pm",tal como esta indicado en el documento que adjunto.
es decir por ejemplo: yo quiero que la macro, copie con una sola línea diferentes rangos incluso dicontinuos y copie en determinadas posiciones de la otra hoja,de acuerdo a determinadas condiciones,el detalle esta en el modulo.

Gracias.

Celim
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 JuanC

copiar difrentes columna en base a una condición

Publicado por JuanC (1237 intervenciones) el 16/11/2014 11:22:08
está un poco confuso el código y la explicación del problema...
te lo modifiqué un poco, fijate si te sirve...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub pp()
Dim x&, t&
Application.ScreenUpdating = False
Pi.Select
x = Pi.Range("L4").End(xlDown).Row
 
For i = 5 To x
    t = Mp.Range("A65536").End(xlUp).Row + 1
 
    If Range("Q" & i) = "NR" Then
       Range("K" & i).Copy Mp.Range("A" & t)
       '// Range("K" & i).Offset(0, nCol).Copy ...  '//Copiar otra columna respecto de Ki, 'nCol' columnas a la derecha o izquierda según nCol>0 ó nCol<0...
    End If
Next
 
Application.ScreenUpdating = True
End Sub

Saludos, desde Baires, JuanC
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
sin imagen de perfil

copiar difrentes columna en base a una condición

Publicado por celim (17 intervenciones) el 16/11/2014 16:00:49
Gracias Juan Carlos,en realidad la abreviatura del código línea me ayudó.
Qué la vida siempre te sonria hermano.

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
sin imagen de perfil

copiar difrentes columna en base a una condición

Publicado por celim (17 intervenciones) el 11/12/2014 11:30:36
Este tema ya esta solucionado
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