Luis Mondelo

Este sería el procedimiento: Te limitarás a ejecutar la macro: busca_hoja y ella sola llamará a la macro acto para ejecutar un código si existe la hoja u otro si no existe. (En su lugar he colocado unos msgbox) Public control Sub busca_hoja() control...

Te mando la solución: Mediante esta macro, que está vinculada a aun botón del formulario, contaremos los valores que hay en la primera columna del listbox1 y después lo anotaremos en el textbox1 Private Sub CommandButton1_Click() For x = 0 To...

Te mando mi solución, esta sería la macro para el botón: Con esta macro estoy buscando el archivo que está tecleado en el textbox1 (incluida extensión) en el path: C:\Users\Luis\carpeta\ Para adaptarlo a ti tendrás que cambiar el entrecomillado de la...

Smifer se puede hacer directamente sin necesidad de macros: -Pulsa ALT F11 para ir al editor de visual basic -En la parte izquierda aparecerá la estructura en árbol de tus hojas, dale un click a la hoja que quieres que afecte esto. -En la parte de...

Veamos: la celda la tienes así: 1(Espacio)guión(espacio)hombre y apellidos Es decir, pregunto: ¿Solo hay un espacio entre el 1 y el guión y solo hay un espacio entre el guión y el nombre?

Esta sería la macro: Sub ejemplo() 'por luismondelo On Error GoTo salida uno = ActiveWorkbook.Name archivo = Application.GetOpenFilename If archivo = False Then Exit Sub Workbooks.Open archivo dos = ActiveWorkbook.Name Sheets("hoja2").Select...

En el siguiente link dejo el archivo con mi solución propuesta, tanto con formulación como con macros: http://es.tbox.ws/2AkP1p No olvides finalizar la consulta

Después de que tienes creada la lista validada en la celda D1, escribe esta fórmula en la celda E1: =buscarv(d1;a1:c3;2;falso) y escribe esta fórmula en la celda F1: =buscarv(d1:a1:c3;3;falso) No olvides finalizar la consulta

Te mando un ejemplo: Suponemos que tenemos en la hoja1 una tabla en el rango A1:J21 (en la fila 1 está en el encabezado) -Queremos copiar las 10 últimas filas a la hoja2. -Ejecuta esta macro y todo listo! Sub ejemplo() 'por luismondelo...

Creo que el evento no es el apropiado sería mejor el evento CHANGE. Si el rango B2:B8 son celdas en las que se introducen datos lo pondría así: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b2:b8")) Is Nothing...