Elsa Matilde

La función indicada por Ignacio es apropiada. Y como tienes la macro para ajustar los espacios, la coloqué allí mismo para el reemplazo de las letras al estilo Nombre Propio. La instrucción sería: celda.Value =...

Observa en la imagen cómo se escribe el Userform en la macro... sin el número.

Te dejo una macro donde tendrás que 'ajustar' todas las referencias que utilicé como ejemplo. Supondré que : - La lista está en col A de Hoja1 - El textbox se llama TextBox1 Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'x...

Te dejo el ajuste considerando que el libro Registro ya estará abierto junto con el de las hojas. Set wbR = Workbooks("REGISTROS.xlsx") 'ajusta nombre y extensión ultimaFila = wbR.Sheets("Registros").Range("B" & Rows.Count).End(xlUp).Row Y del mismo...

Considerando que no podrás utilizar un libro con macros desde un celular, mi sugerencia es que tengas un formato solo para carga de datos. El usuario llenará lo que necesite y luego la tarea es capturar esa información y pasarla al libro que tenga...

Leyendo tu consulta (...Como saber por medio de una Macro ...) me parece que el evento no sería Change (cambios en celda) sino SelectionChange (selección de celda) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target,...

Tengo 2 videos con ejemplos de este tema... no sé si estará tu caso pero puede darte una idea. https://www.youtube.com/playlist?list=PLrhlyizWZzOERwRMxIIy-BTP-CyXh_K5N Los videos son el 1 y el 3. También podrás descargar el libro con los ejemplos...

TE dejo la macro que necesitas. Se coloca en un módulo y se ejecuta desde allí mismo o desde la hoja, menú Macros. Otros modos de ejecutarlas los tengo explicados en la sección Macros de mi sitio que dejo al pie. Sub resumiendo() 'x Elsamatilde 'se...

Te recomiendo utilizar el evento Exit en lugar del que estás utilizando. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'si la celda se limpia o queda vacía el proceso continúa If TextBox1 = "" Then Exit Sub Dim Nombre As String Dim...

Entra al Editor de macros (con atajo ALT+F11) Inserta un módulo y allí copia el siguiente código: Sub diasLab() 'x Elsamatilde 'recorre col A de hoja activa hasta celda sin dato 'fila inicio y fin x = 2: y = Range("A" & Rows.Count).End(xlUp).Row...