Dante Amor

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Target.Address(False, False) <> "A2" Then Exit Sub Range("A3:A" & Range("A" &...

H o l a : Te anexo la macro Sub Sab_y_Dom() 'Por.Dante Amor Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row + 3).ClearContents elmes = 0 mes = LCase(Range("B2")) For i = 1 To 12 m = LCase(Format(DateSerial(Year(Date), i, 1), "mmmm")) If m = mes...

¿Quieres eliminar la fila del listbox o de la hoja o de ambos? ¿Cómo realizaste la carga en el listbox?

H o l a : Tienes que poner el nombre de la hoja entre comillas, por ejemplo: Sheets("Indice").ScrollArea = "$A$1:$P$31" Para seleccionar una hoja, puede ser así: Sheets("Indice").Select Podría quedar así: Private Sub workbook_open()...

Puedes poner la macro que grabaste para ver en dónde están los datos, dónde están los criterios y en dónde quiere el resultado.

Puedes poner tu macro que filtra y borra. Según la macro If h.[L4] <> 0 Then Si la celda L4 es diferente de 0 la hoja se envía. ¿Ahora también tiene que verificar la celda M4?

H o la: Completa en la macro los nombres de las hojas origen y destino; y también las columnas origen y destino, en esta parte de la macro. Set h1 = Sheets("Hoja1") 'hoja con datos Set h2 = Sheets("Hoja2") 'hoja destino col1 = "A" 'columna con las...

Te anexo la macro actualizada para mover las hojas de la 40 en adelante y dejando la hoja 40 en el libro original. Sub CopiarHojas() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("ALTA...

Te anexo la macro Sub ImportarDatos() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) ruta = "C:\pruebas\" 'ruta donde están los archivo ' arch = Dir(ruta & "*.xls*") Do...

Agrega lo siguiente a tu formulario Private Sub ComboBox2_Change() Call Llena End Sub ' Private Sub ComboBox3_Change() Call Llena End Sub ' Sub Llena() 'Por.Dante Amor If ComboBox3.ListIndex > -1 Then f = ComboBox3.ListIndex + 2 If...