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
Aunque ya existe el método de seleccionar todas las hojas y dar el comando control+b, les comparto esta forma..
podemos crear un botón en nuestra hoja de calculo para no entrar hasta el código.
Sub Macro1()
Dim x As String, Hoja As Worksheet, Nombre As String, msg As String
Nombre = InputBox("Introduce el nombre o dato a buscar:")
For Each Hoja In ThisWorkbook.Worksheets
On Error Resume Next
If Nombre <> "" Then
x = Hoja.Cells.Find(What:=Nombre, _
After:=Hoja.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Address
If Err.Number = 0 Then
If msg = "" Then _
msg = "se ha encontrado el texto buscado en:" _
& Chr(13) & Chr(13)
msg = msg & Hoja.Name & "!" & x & Chr(13)
End If
End If
On Error GoTo 0
Next Hoja
If msg <> "" Then MsgBox msg
End Sub
saludos