Dante Amor

Revisa los siguientes ejemplos: Envío de emal por Outlook desde excel Macro envío de libro excel por correo con firma

Te anexo la macro Private Sub btncalc_Click() 'Por Dante Amor For i = 3 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A").Value = 1 Then fila = i Else Cells(i, "S").Value = Cells(i, "E").Value * Cells(fila, "T").Value End If Next MsgBox "Fin"...

Revisa el siguiente artículo, ahí explico cómo consolidar archivos. https://www.gerencie.com/importar-datos-de-varios-libros-de-excel-en-la-hoja-resumen.html Sub Importar_Datos() ' ' Por.Dante Amor ' ' Set l1 = ThisWorkbook Set h1 =...

Te anexo la macro actualizada En la hoja "Datos a Buscar" los datos deberán estar en la columna "A" y empezar en la fila 2. El resultado te lo pondrá en la columna "B" Sub Buscar_Palabras() 'Act Por Dante Amor Set h1 = Sheets("Datos a Buscar") Set h2...

¿Y qué dice el mensaje de error? Qué dato tienes en las celdas D8, D9, D10 y L10 En esta línea tienes una coma (, ) tal vez debe ser un guión: Nom4 = "," También dime qué nombre tiene el archivo en tu directorio

Te anexo la macro. Sub Macro1() With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row) .Formula = "=IF(ISTEXT(R[-1]C[1]),1,IF(MONTH(R[-1]C[1])=MONTH(RC[1]),R[-1]C+1,1))" .Value = .Value End With End Sub [Sal u dos

Puedes explicar un ejemplo con datos reales, utilizando imágenes de lo que tienes en el userform, qué tienes en la hoja y qué resultado esperas. Procura que se vean las filas y las columnas de la hoja de excel.

Te anexo el código para que adaptes tu macro Sub Buscar_Letra() Set b = Columns("A").Find("a", lookat:=xlWhole, LookIn:=xlValues) If Not b Is Nothing Then ' 'inicio de tu macro 'aquí debe ir el código de tu macro ' ' 'FIN DE TU MACRO Else MsgBox "No...

Puedes poner un par de imágenes explicando cómo están tus datos y qué resultado esperas después de la macro. Procura que en las imágenes se vean las filas y las columnas de excel.

Así quedaría tu macro: Sub mimacro() n = Sheets.Count If ActiveSheet.Index = n Then Sheets(1).Select Else ActiveSheet.Next.Select End If Range("A1").Select Call programarmacro End Sub '.[Sal u dos. No olvides valorar la respuesta.