Dante Amor

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.

H o l a : Te anexo un ejemplo para enviar un correo por outlook, lo que hace es enviar las celdas A3, B3 y C3 en el cuerpo del correo. Sub Macro1() 'Por.Dante Amor Set dam = CreateObject("outlook.application").createitem(0) dam.To =...

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

H o l a : Para utilizar el nombre del textbox en un ciclo o con una variable, tienes que utilizar la instrucción Controls( ) Por ejemplo si tienes 3 textbox: txt_Cantidad1, txt_Cantidad2, y txt_Cantidad3 entonces el ciclo sería así: For i = 1 To 3...

Puede ser que en alguna de las celdas tengas un error de este tipo : #¿NOMBRE? #¡VALOR! #¡NUM! #¡DIV/0! #¡REF! #¡NULO! #N/A Si es así, corrige el error de la celda modificando la fórmula, o bien, actualiza la macro de esta forma: Dim Celda As Range,...

H o l a : Si necesitas cargar todos los folders en un arreglo, podría ser así. En un arreglo pones los meses, en otro arreglo pones los subfolders. Por último se combnan los 2 arreglos en el arreglo folders() Dim folders() ruta = ThisWorkbook.Path...

H o l a : No entendí muy bien lo que necesitas. Podrías explicar qué requieres.

H o l a : Prueba el siguiente bucle. Nota: El rango de celdas seleccionadas deberá contener números. De lo contrario te enviará un error. Sub Macro1() 'Por.Dante Amor For i = 1 To Selection.Count 'repite el ciclo hasta el número de celdas...