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
Buenos dias,
Estoy tratando de crear una macro que me produzca un indice que me linkee ubicaciones diferentes en una misma hoja.
No logro que funcione y en internet encuentro ejemplos pero solo linkeando una misma ubicacion en diferentes hojas.
En base a un ejemplo que crea un indice de diferentes hojas he estado tratando de realizar la macro pero no lo puedo lograr.
El codigo es el siguiente:
Sub Crear_Indice_Hojas()
Fila = 1
For Each Hoja In Worksheets
' Agregar vinculo a cada hoja del mes
If Hoja.Name <> "Indice" Then
With Worksheets("Indice")
.Hyperlinks.Add Anchor:=.Cells(Fila, 1), Address:="", _
SubAddress:=Hoja.Name & "!A1", TextToDisplay:=Hoja.Name
'Agregar vinculo de retorno a la hoja indice
End With
With Worksheets(Hoja.Name)
.Hyperlinks.Add Anchor:=.Cells(1, 2), Address:="", _
SubAddress:="Indice!A1", TextToDisplay:="Indice"
End With
End If
Fila = Fila + 1
Next
End Sub
Gracias por la ayuda.