Copiar columnas si cumplen condicion

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

¿Como lo has intentado?

¿Que error te da?

¿Que problema tienes?


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"GR" escribió en el mensaje
news:

Buen dia a todos:

En la hoja 1 en la fila 1 de las columnas B a la AA, yo voy a poner "SI" o
"NO" y quisiera que ayudaran para crear una macro para que me copie las
columnas que digan "SI" a la hoja 2, el rango a copiar es a partir de la
fila
5 a la 100 de de cada columna.

Les agradezco de antemano sus comentarios.

Gracias

Saludos

Gracias por responder

Aqui el detalle es que no encuentro la manera de hacer la macro para que si
la columna diga "SI" me la copie.

Saludos
"julian-vlc-sp" wrote:

> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>
¿Como lo has intentado?

¿Que error te da?

¿Que problema tienes?


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"GR" escribió en el mensaje
news:
> Buen dia a todos:
>
> En la hoja 1 en la fila 1 de las columnas B a la AA, yo voy a poner "SI" o
> "NO" y quisiera que ayudaran para crear una macro para que me copie las
> columnas que digan "SI" a la hoja 2, el rango a copiar es a partir de la
> fila
> 5 a la 100 de de cada columna.
>
> Les agradezco de antemano sus comentarios.
>
> Gracias
>
> Saludos

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

¿Como lo has intentado?

¿Que error te da?

¿Que problema tienes?


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"GR" escribió en el mensaje
news:

Gracias por responder

Aqui el detalle es que no encuentro la manera de hacer la macro para que
si
la columna diga "SI" me la copie.

Saludos
"julian-vlc-sp" wrote:

>> ¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.
>>
¿Como lo has intentado?

¿Que error te da?

¿Que problema tienes?


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"GR" escribió en el mensaje
news:
> Buen dia a todos:
>
> En la hoja 1 en la fila 1 de las columnas B a la AA, yo voy a poner
> "SI" o
> "NO" y quisiera que ayudaran para crear una macro para que me copie las
> columnas que digan "SI" a la hoja 2, el rango a copiar es a partir de
> la
> fila
> 5 a la 100 de de cada columna.
>
> Les agradezco de antemano sus comentarios.
>
> Gracias
>
> Saludos

hola, ?

En la hoja 1 en la fila 1 de las columnas B a la AA, yo voy a poner "SI" o "NO"
y quisiera que ayudaran para crear una macro para que me copie las columnas que digan "SI" a la hoja 2
el rango a copiar es a partir de la fila 5 a la 100 de de cada columna.

si suponemos que de la hoja1 las columnas [B:AA] que digan "SI" en su fila 1...
debieran ser copiadas de manera 'identica' a la hoja2 [filas 5 a 100 en ambas hojas misma columna] -???-

Sub Copiar_columna_SI()
Dim Col As Byte
With Worksheets("hoja1")
For Col = 2 To 27
If .Cells(1, Col) = "si" Then .Cells(1, Col).Offset(4).Resize(96).Copy _
Destination:=Worksheets("hoja2").Cells(5, Col)
Next
End With
End Sub

si suponemos que de la hoja1 las columnas [B:AA] que digan "SI" en su fila 1...
debieran ser copiadas de manera 'discrecional' a la hoja2 [filas 5 a 100 en ambas hojas a partir de la columna 'A'] -???-

Sub Copiar_columna_SI()
Dim Col As Byte, Copiar As Range
For Col = 2 To 27
On Error Resume Next
With Worksheets("hoja1")
If .Cells(1, Col) = "si" Then
Set Copiar = Union(IIf(Copiar Is Nothing, _
.Cells(1, Col).Offset(4).Resize(96), Copiar), _
.Cells(1, Col).Offset(4).Resize(96))
End If
End With
Next
If Not Copiar Is Nothing Then Copiar.Copy _
Destination:=Worksheets("hoja2").Range("a2")
Set Copiar = Nothing
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.