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
Buenas tardes para todos:
Tengo una hoja de Excel donde la celda A1 tiene la fórmula "=1+1", que tiene como resultado el número 2.
A través de VBA, sin usar barra de herramientas, quiero copiar ese valor 2 en la celda B1, pero no la fórmula.
Actualmente, el sistema sí copió lo que hay en la celda A1, pero copió la fórmula, yo necesito que copie el valor.
Ya he leído muchas páginas en Internet, entre ellas, las siguientes:
He probado con los siguientes métodos, que no me han funcionado como lo necesito:
Ya he olvidado todo lo que he probado, pero les muestro lo último que he probado:
Sheets("Hoja1").Range("A1").Select Selection.Copy Sheets("Hoja1").Range("B1").Select ActiveSheet.Paste Application.CutCopyMode = False: SendKeys "{esc}"Gracias por su atención.
Libro1.xlsm