Pregunta en
Microsoft Excel
y en 3 temas más
Como generar un libro nuevo con los datos de la seleecion y que este se envie como archivo adjunto en outlook con una macro
Sub EnviarCorreo() 'Por.Dante Amor Application.ScreenUpdating = False f = 5 u = Range("A" & Rows.Count).End(xlUp).Row Do While Cells(f, "B") <> "" If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Range("E2") = Cells(f, "B") Range("A84:R" &...
Sin respuestas
Pregunta en
Microsoft Excel
Saben como arreglar este problema no me selecciona mi rango es una tabla de un Excel
Sub Sendmail() Application.ScreenUpdating = False Dim OutlookOBJ As Object Dim mItem As Object Dim ruta_archivo As String Range("B5").Select Ultimo = Range(Selection, Selection.End(xlDown)).Count cuerpo2 = Selection.Copy For i = 2 To Ultimo...