Hola, a todos

Espero que esten bien.

En el trabajo me han puesto a mejorar hojas de calculo, las cuales se estaban introduciéndose los datos manualmente una y otra vez..., lo que yo soy novel en el tema y busco ayuda, estoy visualizando vídeos y leyendo blogs pero aún así es complicado.

  

Necesito crear numero de lote automático.

Si tengo en un archivo excel ejer1/hoja1/A1 el lote numero 2450

en el archivo excel ejer2/hoja1/H124 me tendría que salir automático 2451

    ='J:\carp1\20200318_Datos\[lotes.xlsx]Hoja1'!$A$2+1 (conseguido).

en esa misma hoja necesito mas lotes H160 es igual a la H124+1,... (ok)

Si el ultimo lote introducido es en H360 y es 2650, (ok)

como puedo hacer para que quede guardado en el ejer1 para cuando vuelva abrir

el ejer2 el lote ya este automático en la celda H124 ¿?

Espero haberme explicado bien.

Gracias de antemano

 

 

 

 

Private Sub Workbook_Open()

 

respuesta = MsgBox("¿Desea autoincrementar?", vbYesNo)

 

If respuesta = vbYes Then

Range("B9").Value = Range("B9").Value + 1

End If

 

ThisWorkbook.Save

 

End Sub