chiedo scusa anticipatamente se mi e' sfuggita qualche netiquette del forum al quale sono appena iscritto.
Vorrei sapere se e possibile mandare tramite macro una selezione di un foglio attivo senza macro. La seguente funziona ma mi invia tutto in foglio mentre io vorrei solo l'area di stampa del workshop attivo:
Sub Macro1()
'DESCRIZIONE: INVIO ORDINE VIA E-MAIL, "ORDINE" E' LO SHEET CON LE MACRO ATTIVE
Dim BROADcast As Range
- With ActiveSheet
.Unprotect
Set BROADcast = .Range("Area_stampa")
BROADcast.Activate
INDIRIZZO = Trim(Range("D11").Value) & "; ordini@altertrade.it"
' IL SEGUENTE IF E' ININFLUENTE
If InStr("AEIOU", Left(Trim(Range("F2").Value), 1)) Then
OGGETTO = "ORDINE AD " & Range("F2").Value & " DA " & Range("C3").Value & " " & Range("B2").Value & " IN DATA " & Trim(Range("C10").Value)
Else
OGGETTO = "ORDINE A " & Range("F2").Value & " DA " & Range("C3").Value & " " & Range("B2").Value & " IN DATA " & Trim(Range("C10").Value)
End If
With ActiveSheet
Application.Dialogs(xlDialogSendMail).Show arg1:=INDIRIZZO, arg2:=OGGETTO, arg3:=True
End With
End With
End Sub
il testo in grassetto sottolineato, credo sia la chiave di volta del problema
Grazie anticipatamente in ogni caso