VBA zichtbare (gefilterde) cellen kopiëren naar nieuw bestand en vervolgens mailen

[serpent xx]

Heren/Dames,

wie kan mij aan een VBA helpen die enkel de zichtbare cellen kopieert naar een nieuw (tijdelijk) bestand en dit bestand verzend via email en vervolgens verwijderd?

De zichtbare cellen zijn het resultaat van een uitgefilterde lijst met 1 verborgen kolom.

Alvast bedankt!
confused:

 

[edmoor]

En de gegevens moeten we zelf verzinnen? Zonder voorbeeld documentje gaat dat niet werken.

 

[HSV]

Ik kan er enigszins in grote lijnen onderstaande code van maken.

Sub hsv()
Sheets(1).Cells(1).CurrentRegion.SpecialCells(12).Copy
Workbooks.Add
With ActiveWorkbook
  .Sheets(1).Cells(1).PasteSpecial xlPasteAll
  .SaveAs Environ$("Temp") & "\" & Date, 52
  .Close False
 End With
 
    With CreateObject("Outlook.Application").CreateItem(0)
       .to = "nietnaarmij[EMAIL="nietnaarmij@gmail.com"]@gmail.com[/EMAIL]"
       .Subject = "blabla"
       .attachments.Add Environ$("Temp") & "\" & Date & ".xlsm"
       .display 'or send
    End With
  Kill Environ$("Temp") & "\" & Date & ".xlsm"
End Sub

 

[serpent xx]

Ik kan er enigszins in grote lijnen onderstaande code van maken.

Sub hsv()
Sheets(1).Cells(1).CurrentRegion.SpecialCells(12).Copy
Workbooks.Add
With ActiveWorkbook
  .Sheets(1).Cells(1).PasteSpecial xlPasteAll
  .SaveAs Environ$("Temp") & "\" & Date, 52
  .Close False
 End With
 
    With CreateObject("Outlook.Application").CreateItem(0)
       .to = "nietnaarmij[EMAIL="nietnaarmij@gmail.com"]@gmail.com[/EMAIL]"
       .Subject = "blabla"
       .attachments.Add Environ$("Temp") & "\" & Date & ".xlsm"
       .display 'or send
    End With
  Kill Environ$("Temp") & "\" & Date & ".xlsm"
End Sub

Ondanks mijn beperkte info werkt deze perfect:thumb::thumb::thumb:
Harry, bedankt!