Copiar rango con números y pegar en otro libro solo tomando el num siguiente.
PARA DAN...
Hola dan recientemente me has ayudado a copiar el rango de color gris y pegarlo en otro libro... Con el mismo nombre de hoja...
Quisiera saber si me puedes ayudar en lo sig...
Tengo otro rango en mismas columnas..
El cual es:
B338:E357
En el cual solo en la columna B y el rango especificado pongo números consecutivos...
Mismos que al pasar la información a otro libro "AGOSTO.xlsm" (misma hoja)
Debería ser el siguiente numero a donde termino en el libro anterior JULIO..
Ejemplo:
Aquí tengo el rango del mes JULIO este debe considerar el ultimo FOLIO que haya en el rango y copiar el numero siguiente en otro libro nombre AGOSTO en misma "hoja1"
Aquí entra la macro... Que al ejecutar este debe quedar así:
Este ya es el otro libro CON EL NUMERO SIGUIENTE a donde se quedo solamente de FOLIOS. La columna de FECHA no es necesaria ya que se pone manualmente y la otra de REPORTE tampoco ya que es fórmula..
Más que nada solo es la de FOLIO... En caso de que no haya nada de numero en FOLIOS que este en el rango entonces NO PASA NADA.
1 Respuesta
Te anexo la macro, actualiza nombre de libro y de hoja, debes tener los 2 libros abiertos
Sub CopiarFolio()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja4")
Set l2 = Workbooks("Agosto.xlsm")
Set h2 = l2.Sheets("Hoja4")
'
f = 337
Do While h1.Cells(f, "B") <> ""
f = f + 1
Loop
f = f - 1
If f > 337 Then
h2.[B338] = h1.Cells(f, "B") + 1
MsgBox "Folio copiado: " & h2.[B338]
End If
End Sub
¡Gracias!
de verdad!!!
me has facilitado la vida!!! saludos dan
Te faltó valorar la respuesta.
