Necesito ayuda para realizar un par de acciones
1.-Como puedo, hacer que un número o dato que ingreso en una hoja, se registre en otra (hoja), o sea se grabe en una celda especifica asociada a un código o nombre.
2.- ¿Cómo hacer una autonumeración?, ejemplo; imprimo el comprobante numero 1 y la celda del numero de comprobante automáticamente pase a 2.
De antemano gracias
2.- ¿Cómo hacer una autonumeración?, ejemplo; imprimo el comprobante numero 1 y la celda del numero de comprobante automáticamente pase a 2.
De antemano gracias
Respuesta de gualo
1
Para la primera, lo más simple es que en la "otra hoja" en la celda asociada al nombre, le pongas =hoja1! Celda donde introdujiste el dato (o vas a introducir)
Respecto a la autonumeración, lo más fácil es que hagas una macro, teniendo protegida la celda donde está la numeración (ej H2) tipo:
Sub Imprimir()
'
' Imprimir_Factura Macro
' Macro grabada el 25/11/2002 por Eduardo Marañón
'
'
ActiveSheet.Unprotect
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("H2").Select
factura = ActiveCell.Value
factura = factura + 1
ActiveCell.FormulaR1C1 = factura
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Respecto a la autonumeración, lo más fácil es que hagas una macro, teniendo protegida la celda donde está la numeración (ej H2) tipo:
Sub Imprimir()
'
' Imprimir_Factura Macro
' Macro grabada el 25/11/2002 por Eduardo Marañón
'
'
ActiveSheet.Unprotect
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("H2").Select
factura = ActiveCell.Value
factura = factura + 1
ActiveCell.FormulaR1C1 = factura
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
