Buenos días, EL procedimiento que haría con el formulario sería lo siguiente,
1. - capturar por ejemplo en fecha 22/10/2025 capturar el ID "2" ( numero de registro),
-Seleccionar categoría "Otros",
-Ir a donde dice “Cuenta“ la cual me gustaría que se enlace en automático con la hoja de nombre “CATALOGO”, para poder buscar y seleccionar por ejemplo código "1000-00-00-0000-00 ” y al seleccionarlo que me devuelva el nombre en automático por ejemplo “ACTIVO” , posteriormente capturar el monto por ejemplo 952,094.53,
- Seleccionar DÉBITO
-Nuevamente Ir a donde dice "Cuenta" seleccionar “2218-02-01-0001-00” y al seleccionarlo que me devuelva en automático el nombre de “ALVARADO MIRANDA AURORA”, capturar el monto por ejemplo 952,094.53, Seleccionar, CREDITO,
6.-Capturar en la Sección de Observaciones por ejemplo el siguiente Texto “, Registro de Ajuste de Retenciones en garantía omitido en 2023 Factura A-180”
Al final La suma deben ser iguales CREDITO Y DEBITO en este ejemplo los 952,094.53
Una vez terminado todo, exportarlo a la hoja “AJUSTES Y RECLASIFICACIONES” para poder expórtalos a la hoja de “AJUSTES Y RECLASIFICACIONES “donde llevando el control de cada registro, estaré al pendiente para cualquier duda
La finalidad de todo esto registrar operaciones que fueron omitidas en su momento o realizar registros de correcciones para poder reflejar saldos correctos de los proveedores
Por
CECILIO, · publicado
tengo un libro con varias pestañas , en una hoja recojo los datos de cada una de las pestañas
he grabado una macro Y quiero ver si me podéis decir como la repito.
Esto es para la primera linea .
la segunda linea debe recoger el dato de la pestaña siguiente
y dejar el dato en Range siguiente( G3, H3..) y así hasta el fin de las pestañas.
como hacer que la macro se ejecute recogiendo de la pestaña siguiente y deposite en la fila siguiente .
¿podeis ayudarme?
ActiveCell.FormulaR1C1 = "='HHC5'!R[10]C[-2]"
Range("G2").Select
ActiveCell.FormulaR1C1 = "='HHC5'!R[28]C[-3]"
Range("H2").Select
ActiveCell.FormulaR1C1 = "='HHC5'!R[27]C[-5]"
Range("I2").Select
ActiveCell.FormulaR1C1 = "='HHC5'!R[32]C[-6]"
Range("J2").Select
ActiveCell.FormulaR1C1 = "='HHC5'!R[33]C[-7]"
Range("K2").Select
ActiveCell.FormulaR1C1 = "='HHC5'!R[34]C[-8]"
Range("L2").Select
ActiveCell.FormulaR1C1 = "='HHC5'!R[38]C[-9]"
Range("M2").Select
ActiveCell.FormulaR1C1 = "='HHC5'!R[42]C[-10]"
Range("M2").Select
End Sub