Dante Amor

Entonces la primera idea que tengo de mi UseForm es que al "EMPEZAR" a escribir en el TextBox1 el tipo de ID que el cliente tiene, ese espacio de AUTORELLENE en base a las palabras que hay en la tabla2 para así ahorrrar tiempo en su diligenciamiento....

Try this #If VBA7 Or Win64 Then Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal wParam As LongPtr, lParam As Any) As LongPtr #Else Private Declare Function...

Revisa lo siguiente Necesito macro selección hoja activa guardar como foto jpg

De acuerdo a tu información tus datos a revalorizar están en B2 a F8, como se muestra en la siguiente imagen: Funciona de la siguiente manera: 1. Debes tener 2 hojas: Hoja1 con los valores y Hoja2 para guardar los valores originales. 2. En la celda...

Vamos paso a paso. 1. Para que las macros funcionen deben abrir el libro habilitando las macros. Revisa la siguiente respuesta: Macro que ya habilite macros en libro de excel 2. Después de que tu libro tenga lo anterior. Pasamos que no permita...

En VBA no puedes obtener los datos de una imagen y pasarlos a una celda. Tal vez debas buscar ese tipo de herramientas en la red, por ejemplo: https://www.softzone.es/2019/04/24/extraer-texto-imagen-navegador/

¿Tienes el combo en un userform? Pon el siguiente código dentro del userform, prueba si es lo que necesitas. Private Sub ComboBox1_Change() If ComboBox1.Value = "" Then Exit Sub If ComboBox1.ListIndex = -1 Then MsgBox "este cliente no está...

Asumiendo que tienes tus datos iniciando en la celda A1. Los resultados quedarán en las columnas AA y AB, de esa manera puedes tener Temas desde la columna B hasta la Z. El número de ejecutivos puede crecer hacia abajo sin problema. Casos de...

Quieres que la macro verifique las condiciones y ponga el resultado o quieres que la macro ponga la fórmula. Cuál opción quieres, ¿la primera o la segunda?

Aquí otra macro para ti para considerar Sub CambiarFecha() With Range("A2", Range("A" & Rows.Count).End(3)) .Value = Evaluate("=IF({1},(RIGHT(" & .Address & ",2)&""/""&MID(" & .Address & ",5,2)&""/""&LEFT(" & .Address & ",4))+0)") End With End Sub...