Dante Amor

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.

H o l a: Para hacer la macro, me puedes decir lo siguiente: Nombre de la hoja que contiene los datosNombre de la hoja destinoFila de encabezadosColumna de documentosColumna de nombresColumna donde empiezan los teléfonos

Te anexo la macro con las actualizaciones Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets Dim attBook$ attBook...

H o l a: Quita esta línea de tu macro hm.UsedRange.Borders.LineStyle = xlContinuous Pon las siguiente líneas después del Next u = hm.Range("A" & Rows.Count).End(xlUp).Row hm.Range("A1:I" & u).Borders.LineStyle = xlContinuous'S aludos. Dante Amor....

En las macros tienes que delimitar el rango de cada tabla, por ejemplo, en la siguiente macro mi tabla1 abarca desde la celda A1 hasta la D7, la tabla2 A12:D18, si pones ese rango en cada línea de la macro, el filtro no borrará los datos de las...

H o l a: Te anexo la macro para poner los subtotales Sub GenerarCorreos() 'Por.Dante Amor Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("BASE DATOS") Set h2 = l1.Sheets("Temp") Call BorrarHojas ' If h1.AutoFilterMode...

H o l a: Tengo algunas dudas. ¿La palabra "banco" está en la celdas de la columna "P"?Si encuentro la palabra "banco" en la columna "P", ¿debo copiar las celdas de las columnas "N" y "O"?¿La palabra "efectivo" está en la celdas de la columna "S"?Si...

H o l a: Puedes enviarme un correo nuevo con lo siguiente: Un archivo con 4 hojas.La primer hoja con las columnas originales..En las hojas 2, 3 y 4, tienes que poner ejemplos de cómo quieres los resultados, en estas hojas deberás poner los datos que...

Prueba con lo siguiente: Sub Extraerdatos() 'Act.Por.Dante Amor Dim MiPc, Carpeta, Archivos, Archivo Dim Fila ' Application.DisplayAlerts = False Application.ScreenUpdating = False Set MiPc = CreateObject("Scripting.FileSystemObject") Set Carpeta =...

H o l a: Te anexo la macro. Cada vez que escribas algo en la columna B en automático te pondrá la lista de validación en la columna D. La lista de datos deberá estar en la hoja "índice" en la columna Q. También la lista se actualizará en automático....