Elsa Matilde

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...

Si un control solo presentará un mensaje (es decir que no será modificado por el usuario) es mejor utilizar un Label. En el siguiente ejemplo dejé un label en lugar del Textbox4. Si el contenido de los TextBox 2 y 3 también solo será información...

Te agregué la instrucción para colocar ese texto en esas 2 celdas: Sub Graba_Pendientes() ' ' Graba_Pendientes Macro ' ' Sheets("Pendiente").Select Rows("15:15").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove...

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Sheets("Indice").[H1] = ListBox1.Value End Sub Esto es para un listbox de 1 columna. Te recuerdo que los listbox guardan datos en formato texto por lo que si tu lista tiene datos...

Entra al Editor de macros (con atajo ALT + F11). Selecciona con doble clic la hoja donde tendrás tu tabla. Allí copia el siguiente código. Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'solo se ejecuta en rango B2:J10 If...

Para programar algo así hacen falta todos los detalles: - Cómo indicarle a Excel los libros a utilizar. ¿Están en una misma carpeta o hay que buscarlos? - ¿Cuántas hojas tiene cada archivo y cuántas se van a capturar? - Imagen de los encabezados de...