range selecteren

Stel hier je vraag over een Excel probleem
Plaats reactie
andrevk
Berichten: 14
Lid geworden op: 25 jan 2020 17:23

range selecteren

Bericht door andrevk » 03 jul 2021 17:21

Met behulp van een draaitabel maak ik oa. een lijst met contactinformatie.
Deze lijst wil ik met behulp van een VBA doorsturen.
Bepaalde familienamen kunnen dubbel voorkomen en spijtig genoeg stopt mijn verzendlijst bij de eerste dubbele familienaam.
Hoe kan ik dit oplossen ? Alvast op voorhand bedankt om aandacht te besteden aan mijn probleem.
groetjes
André
Bijlagen
test.xlsm
(29.34 KiB) 68 keer gedownload

de-excel-specialist
Berichten: 10
Lid geworden op: 10 dec 2021 15:42

Re: range selecteren

Bericht door de-excel-specialist » 15 dec 2021 08:07

Hallo Andrevk,

Stel dat in cel A9 Janssens zou komen te staan. Dat zou het probleem toch verhelpen of niet?

Het gaat er dan om dat je dat op een soort automatische manier zou willen vullen toch?

Met vriendelijke groet,

Youri Hazeleger
De Excel Specialist
https://de-excel-specialist.nl/freelanc ... pecialist/

Aldan
Berichten: 8
Lid geworden op: 13 dec 2021 08:47

Re: range selecteren

Bericht door Aldan » 15 dec 2021 12:54

probeer het eens zo.

Code: Selecteer alles

Option Explicit
Sub SendRange2XLSX()
    'option explicit vereist declaratie van alle variabelen
    Dim i As Long
    Dim OutApp As Object
    Dim OutMail As Object
    Dim Bestand As String
    Dim aSht As Worksheet
    
    Set aSht = ActiveSheet
    
    Application.DisplayAlerts = False
    Bestand = Environ("TEMP") & "\" & "Test Range " & aSht.Range("B1").Value & ".xlsx"
    
    i = aSht.Range("B" & Rows.Count).End(xlUp).Row 'bepaal de laatst gevulde rij in kolom B
                                                   'belangrijk is wel dat er onder de laatste voornaam in kolom B niets meer staat
                                                   'en dat alle voornamen zijn ingevuld
    'andere mogelijkheid
'    i = aSht.Range("B4").End(xlDown).Row            'alle voornamen moeten zijn ingevuld
    
    Workbooks.Add
    aSht.Range("A1:B" & i).Copy ActiveSheet.Range("A1")
   
    With ActiveWorkbook
       .SaveAs Bestand, FileFormat:=51
        .Close
   End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .To = aSht.Range("J4").Value
        .Subject = "Test Range : " & aSht.Range("B1").Value
        .body = "In de bijlage de contactgegevens" & vbCrLf & vbCrLf & _
                "Met vriendelijke groet," & vbCrLf & _
                "Ikke"
        
        .Attachments.Add Bestand
        .Display   'of .Send
    End With
    
 Kill Bestand 'verwijder het tijdelijke bestand niet meer nodig
 Set OutMail = Nothing
 Set OutApp = Nothing

End Sub

emiel
Berichten: 309
Lid geworden op: 05 okt 2018 17:55

Re: range selecteren

Bericht door emiel » 15 dec 2021 13:17

of zo?
Bijlagen
test (33).xlsm
(34.42 KiB) 12 keer gedownload

Plaats reactie