Dante Amor

Quieres sumar las celdas de la columna M, ¿pero en dónde quieres el resultado de la suma? Puedes poner 2 imágenes, mostrando en la primera imagen cómo están tus datos y en la segunda imagen cómo quieres el resultado.

Pon las siguientes líneas al inicio de tu macro Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Al final de tu macro pon estas líneas: Application.ScreenUpdating = True...

Te anexo la macro para que la pongas en el archivo donde quieres el resumen Cambia "C:\trabajo\libros\" por el nombre de la carpeta donde tienes tus 100 archivos. No comentaste en cuál hoja están los datos, entonces la macro lee la primer hoja de...

Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Héctor Garrote”

Paso a paso. Te respondo en esta pregunta lo de poner solamente archivos de imagen y el hyperlink del archivo para abrir la imagen. Dbes colocar en esta línea de la macro, las extensiones que quieres seleccionar: Case "jpg", "jpeg", "gif" La macro...

Te anexo el código Private Sub ListBox1_Click() 'Por Dante Amor dato = ListBox1.List(ListBox1.ListIndex, 0) Select Case LCase(dato) Case LCase("Día") TextBox1.Value = "sol" Case LCase("Noche") TextBox1.Value = "luna" Case Else TextBox1.Value =...

Te anexo la macro actualizada Sub Borra() Application.ScreenUpdating = False Range("A2").Select i = 2 fin = ActiveSheet.Range("D" & Rows.Count).End(xlUp).Row For i = fin To 2 Step -1 If Cells(i, 9).Text = "33410" And Cells(i, 4).Text = "C018" Then...

En la validación de datos de la celda D5 pon lo siguiente: Tienes pendiente valorar estas respuestas. Crear gráficas con en excel Asignar nombres a mas de 200 celdas en excel Al final de mi respuesta hay un botón para valorar la respuesta: Votar y...

Cambia esto: If Application.CountIf(ActiveSheet.Range("B2:B50000"), txtProd.Value) Then 'Busca en la columna A si existe el contacto Rem Si existe la rutina llega solo al If mensage. si no existe, brinca después de Else para insertar los datos....

Te anexo la macro Cambia en la macro en estas líneas por tus datos Set h1 = Sheets("Hoja1") 'hoja origen Set h2 = Sheets("Hoja2") 'hoja destino col = "C" 'columna con valores a buscar fila = 1 'fila de encabezados valor = "algo" 'valor a buscar La...