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

Te anexo el código: Private Sub CommandButton1_Click() ' 'agregar lo siguiente cuando pasas los datos a la hoja fila = Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & fila).Value = "A" & Format(fila - 1, "000") ' 'aquí debes poner tu código ' '...

Te anexo la macro Sub Eliminar_Fila() 'Por Dante Amor Application.ScreenUpdating = False For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Cells(i, "A").Value = "" Or _ LCase(Cells(i, "A").Value) = LCase("No aplicable") Then...

Pon la siguiente fórmula matricial en la celda C2 =SI.ERROR(INDICE($A$1:$A$10; K.ESIMO.MENOR(SI($B$2:$B$10="Si"; FILA()); FILA()-1));"") Cambia en la fórmula el 10 por el número de la última fila con datos. Para aceptar la fórmula matricial debes...

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 falta copiar la fila y también indicar en dónde la quieres insertar. En el siguiente ejemplo, copio la fila con el nombre "eparedes" y la inserto antes de la fila 9 Sub cpareces() ' Cpareces Macro Range("eparedes"). Copy Rows(9).Insert...

Te anexo la macro con las validaciones Private Sub commandbutton1_click() Dim fila As Long 'VALIDACIONES If TextBox1.Value = "" Then MsgBox "Captura un dato en textbox1", vbExclamation TextBox1.SetFocus Exit Sub End If ' Set b =...

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