Copy specific Columns to another sheet depending cell value
Hola Necesito una ayuda, estoy tratando de copiar columnas especificas sheet1(G,H,I) a otro sheet2(G,H,I), pero solamente las filas donde en sheet1(W,X,Y) esta elegida la opción "P" seria mas o menos asi
Sheet 1
G H I ................. W X Y
a1 b1 c1 p
a2 b2 c2 o o o
a3 b3 c3 o o o
a4 b4 c4 o p
a5 b5 c5 o o p
a6 b6 c6 o o o
entonces al correr el macro el sheet2 quedaría asi
G H I
a1 b1 c1
a4 b4 c4
a5 b5 c5
Espero su ayuda Por Favor
la hoja dos ya existe.
Gracias Dam !!!!
Te anexo la macro.
Instrucciones
1. Abre tu hoja de excel
2. Presiona Alt + F11, para entrar a MS Vba
3. Elige del menú, Inserta / Módulo
4. En el panel del lado derecho copia la macro
5. Presiona F5 para ejecutar
Sub CopiaCol()
'Por.Dam
'copia columnas si
actual = "hoja1"
destino = "hoja2"
Sheets(actual).Select
ufila = Range("G" & Rows.Count).End(xlUp).Row
j = 1
For i = 1 To ufila
ps = Application.WorksheetFunction.CountIf(Range("W" & i & ":Y" & i), "p")
If ps > 0 Then
ActiveSheet.Range("G" & i & ":I" & i).Copy _
Destination:=Sheets(destino).Range("G" & j)
j = j + 1
End If
Next
End SubSaludos.dam
Si es lo que necesitas.
