Elsa Matilde

Te dejo ejemplo que muestra un mensaje inicial, mediante InputBox. Las 2 macros se colocan en el Editor de macros, objeto Thiswokbook (en panel a tu izquierda). Private Sub Workbook_Open() 'x Elsamatilde Dim idioma 'repite el bucle hasta que ingresen...

TE dejo la rutina completa. La cantidad de columnas del control puede indicarse desde el panel de propiedades teniendo el control seleccionado (Propiedad: ColumnCount), sino lo declaras en este evento. Private Sub UserForm_Initialize() 'x Elsamatilde...

Te dejo la instrucción para resolver lo del ID automático. El resto de los temas tendrás que ir dejando en 1 consulta por cada tema, de paso ayudamos al Buscador. Imaginarás que realizar 1 proyecto completo contiene muchos detalles a resolver. Quita...

Hay macros (y muchas) para envío de correo desde Excel. Como tu consulta no tiene casi referencias, descargá el índice de contenidos de mis Guías Temáticas desde aquí. El cap 4 está dedicado al tema Correos. Elegi de allí el tema que más se parece a...

No encontré función que lo haga así que te desarrollé una personal. La tenés que copiar en el Editor de macros, insertando un módulo. Luego la llamás como a cualquier otra función de Excel. Function contaMerge(celda) As Integer dire = celda.Address...

Podés utilizar Formato Condicional con fórmulas. Debes seleccionar todo el rango a partir de C2 (en mi ej solo llega hasta G10) Desde menú Formato, Nueva regla, Utilizar fórmula... Y en el campo escribí la primer fórmula, prestando atención a los...

Te dejo las fórmulas para las distintas col: C2: =SI(VALOR(A2)>999;EXTRAE(A2;1;1);0) D2: =SI(VALOR(A2)>999;EXTRAE(A2;2;1);EXTRAE(A2;1;1)) E2: =SI(VALOR(A2)>999;EXTRAE(A2;3;1);EXTRAE(A2;2;1)) F2: =SI(VALOR(A2)>999;EXTRAE(A2;4;1);EXTRAE(A2;3;1)) Esta...

En la misma macro que te dejé para Filtrar en rango auxiliar está la instrucción para ordenarla. With ActiveWorkbook.Worksheets("Datos").Sort .SetRange Range("AA2:AB" & Range("AA" & Rows.Count).End(xlUp).Row) .Header = xlNo .MatchCase = False...

Intentalo de este modo. Estoy imaginando que la 'palabra' se encuentra en celda F1 y el rango en col B: =CONTAR.SI.CONJUNTO(B1:B100;"*" & F1 & "*") Sdos Elsa

Si necesitas saber hasta qué fila llegan los datos, esta sería 1 instrucción: cant1 = Range("A" & Rows.Count).End(xlUp).Row Si necesitas saber cuántas filas 'no vacías' hay hasta la última con datos, podría ser de este modo: cant2 =...