Dante Amor

H o l a: Supongo que en la variable u tienes la última fila con datos de la hoja hm. Entonces antes de esta línea: With hm.Sort Pon esto: If u <= 3 Then MsgBox "No hay registros" Exit Sub End If Significa que si en la hoja hm hay 3 o menos filas,...

Prueba también con esto, lo que hace es salir del userform una vez que elijas la columna Private Sub ComboBox1_Change() 'Por.Dante Amor Application.CutCopyMode = False If ComboBox1 = -1 Or ComboBox1 = "" Then Exit Sub u = Range("P" &...

Ejecuta la siguiente macro, te va a pedir que selecciones una celda, por defecto, selecciona la celda E2, si quieres la columna E, simplemente presiona enter; si quieres otra columnas, entonces selecciona una celda de la columna que deseas y presiona...

H o l a: El problema puede ser, si en alguna de las 3 celdas J2, M5, M4 tienes alguno de los caracteres no válidos para guardar archivos: "<> * / \ | Revisa el contenido de las celdas, de cada hoja y elimina cualquier caracter que pueda ocasionar el...

H o l a: Te anexo las macros, reemplaza la macro anterior por el siguiente código. Public valor Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor Dim c, h, b, u If Target.Count > 1 Then Exit Sub If Target.Row = 1 Then Exit Sub If...

H o l a: Te anexo una macro. Sub AbrirCsv() 'Por.Dante Amor col = "C" ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("carga") h1.Cells.Clear ruta = l1.Path & "\" arch = Dir(ruta &...

H o l a: Te anexo la macro Sub CopiarFilas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "A") <= Date Then h1.Rows(i).Copy h2.Rows(h2.Range("A" &...

H o l a: Te anexo la macro. Dim rutas As New Collection Sub CopiarArchivosXls() 'Por.Dante Amor 'Copia archivos a una carpeta destino ' Application.ScreenUpdating = False Application.DisplayAlerts = False rutadestino = "C:\trabajo\cartas\" ruta =...

H o l a: Ejecuta esta macro en la hoja que tienes con el filtro. Sub LlenarSerie() 'Por.Dante Amor For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row Cells(i, "B") = i Next End Sub 'S aludos. Dante Amor. Recuerda valorar la...

H o l a: Ya la probé y sí me funciona. ¿Qué error te envía? ¿Qué tienes en la variable q? ¿Qué tienes en la variable d? ¿Existen las 2 hojas en tu libro "Note" y "Rebate"? Revisa los nombres de las hojas no tenga espacios al principio o al final.