¿Alguna rutina para copiar y pegar?
Hola expertos.
Tenéis alguna rutina para copiar y pegar de una hoja a otra, ¿columnas siempre y cuando se cumpla en la fila una condición? Ejemplo:
A B C
A1 si pp
A2 si pa
A3 no pc
A4 si pd
A5 no pc
A6 si pr
Quisiera un resultado así:
A1 pp
A2 pa
A4 pd
A6 pr
Gracias y un saludo.
Tenéis alguna rutina para copiar y pegar de una hoja a otra, ¿columnas siempre y cuando se cumpla en la fila una condición? Ejemplo:
A B C
A1 si pp
A2 si pa
A3 no pc
A4 si pd
A5 no pc
A6 si pr
Quisiera un resultado así:
A1 pp
A2 pa
A4 pd
A6 pr
Gracias y un saludo.
1 Respuesta
Respuesta de Cadipas spain
1
No entiendo muy bien pero lo he intentado, te copia la columna A y C siempre que en la Columna B=si
Sub Macro1()
Dim n As Integer, nn As Integer
Sheets(1).Select
n = 1
nn = 1
Do While Sheets(1).Cells(n, 2) <> ""
If Sheets(1).Cells(n, 2) = "si" Then
Sheets(2).Cells(nn, 1) = Sheets(1).Cells(n, 1)
Sheets(2).Cells(nn, 2) = Sheets(1).Cells(n, 3)
nn = nn + 1
End If
n = n + 1
Loop
End Sub
Sub Macro1()
Dim n As Integer, nn As Integer
Sheets(1).Select
n = 1
nn = 1
Do While Sheets(1).Cells(n, 2) <> ""
If Sheets(1).Cells(n, 2) = "si" Then
Sheets(2).Cells(nn, 1) = Sheets(1).Cells(n, 1)
Sheets(2).Cells(nn, 2) = Sheets(1).Cells(n, 3)
nn = nn + 1
End If
n = n + 1
Loop
End Sub
No es exactamente lo que buscaba pero creo que me puede servir, en caso de que no consiga mi objetivo te volveré a consultar.
Gracias y un saludo.
Gracias y un saludo.
