Copiar parte del rango activo
hola como estas
quiero copiar de libro gestión al servido parte del rango de una fila....
como hago para que copie solo de la "a" a la "p"....
en vez de todo la fila en la hoja servido...a partir de la columnna m...
ActiveCell.EntireRow.Copy
Sheets("SERVIDO").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
muchas gracias
1 Respuesta
hola pues no va....
esta es la macro
Sub Botón1_Haga_clic_en()
Rem SACA SERVIDO
Sheets("GESTIÓN").Select
Range("F3:F10000").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = "SERVIDO" Then
ActiveCell.EntireRow.Copy
Sheets("SERVIDO").Range("A65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Sheets("SERVIDO").Select
End Sub
te cuento....tengo en hoja clientes a3:l100 los datos de los clientes(nombre dirección etc)y en la hoja gestión los artículos controlando su desarrollo....y en la hoja servido pretendo hacer un archivo poniendo primero los datos del cliente y después los de el producto gestionado....asi pues con la macro de arriba extrae y borra el registro del articulo y me gustaría poner primero los datos del cliente.....y después los del articulo hoja gestión a3;0100....muchas gracias
Perdona, me equivoqué, tienes que poner la línea así:
Para copiar de A a P
Range(ActiveCell. Offset(0, 0), ActiveCell. Offset(0, 15)). Copy
Prueba la macro con este cambio y me dices.
Para lo siguiente que escribiste, con gusto lo reviso, por favor, cierra esta pregunta y abre una nueva y escribes un ejemplo bien detallado, de qué información quieres, cuál es la condición y en dónde quieres que se ponga.
Saludos. DaM
