Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 10 van 10

Onderwerp: Verborgen rijen niet mailen via vba

  1. #1
    Senior Member stefano's avatar
    Geregistreerd
    22 mei 2004
    Locatie
    Oudenaarde - België
    Vraag is niet opgelost

    Verborgen rijen niet mailen via vba

    Ik heb een bestand bestaande uit twee tabbladen. Eerste bevat ruwe data , het tweede is een standaardformulier dat gegevens overneemt vanuit het eerste.

    Het standaardformulier wil ik mailen, niet volledig, een beperkte range enerzijds maar anderzijds mogen de verborgen rijen niet gemaild worden.

    De lege rijen (weliswaar met een formule er in ) verberg ik met een autofilter.

    Code:
    Sub verbergen()
        Columns("B:B").Select
        Application.CutCopyMode = False
        Selection.AutoFilter
        ActiveSheet.Range("$B$1:$B$200").AutoFilter Field:=1, Criteria1:=">0.01"
        Range("a1").Select
    End Sub
    Daarna laat ik de macro send_range uitvoeren

    Code:
    Sub Send_Range()
       
    Application.Run "verbergen"
       
       ActiveSheet.Range("A2:D27").Select
       
       ActiveWorkbook.EnvelopeVisible = True
       
       With ActiveSheet.MailEnvelope
          .Item.To = "geef een geldig mailadres in"
          .Item.Subject = Range("b5")
          .Item.Send
       End With
    End Sub
    Ik krijg een foutmelding 400. Wat zou er fout gaan ?

    mail verborgen rijen.xlsm
    haast je als je tijd hebt, dan heb je tijd als je haast hebt

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Vervang:
    Application.Run "verbergen"

    eens door:
    verbergen
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Gewoon 1 procedure gebruiken.

    Code:
    Sub VenA()
      Columns(2).AutoFilter 1, ">0.01"
      ActiveWorkbook.EnvelopeVisible = True
      With ActiveSheet.MailEnvelope
        .Item.To = "geef een geldig mailadres in"
        .Item.Subject = Range("b5")
        .Item.Send
      End With
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  4. #4
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Dit zal beter werken.
    Code:
    .Item.Subject = sheets("gegevens").Range("b5").value
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    @ HSV, Hoezo?

    Klik op afbeelding voor grotere versie

Naam:  Knipsel.PNG
Bekeken: 13
Grootte:  15,3 KB
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  6. #6
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    In ieder geval
    Code:
    range("b5").value
    Ik bekom een foutmelding zonder.

    In eerste instantie dacht ik dat het kwam doordat b5 verborgen is na filtering.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  7. #7
    Senior Member stefano's avatar
    Geregistreerd
    22 mei 2004
    Locatie
    Oudenaarde - België
    Dames, Heren,

    dank alvast, ik kijk dit na en laat iets weten.
    haast je als je tijd hebt, dan heb je tijd als je haast hebt

  8. #8
    Senior Member stefano's avatar
    Geregistreerd
    22 mei 2004
    Locatie
    Oudenaarde - België
    Het werkt, jammer genoeg valt het eindresultaat in de mail niet mee, zie hieronder. Misschien moet ik eerst op zoek naar tijdelijk overzetten van de selectie , de rijen deleten en dan pas te mailen.








    data 1 15




    data 4 16






    data 8 20






    data 12 1




    data 15 33


    het zou mooier zijn indien onderstaand het resultaat werd:

    data 1 15
    data 4 16
    data 8 20
    data 12 1
    data 15 33
    Laatst aangepast door stefano : 15 oktober 2018 om 15:05 Reden: aanvulling
    haast je als je tijd hebt, dan heb je tijd als je haast hebt

  9. #9
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Bij mij is het resultaat zoals jij het wil hebben.
    Vreemd waarom bij jou niet.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  10. #10
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Bij mij werkt het ook gewoon.

    Alternatief met extra tabje

    Code:
    Sub VenA()
      Application.DisplayAlerts = False
      Columns(2).AutoFilter 1, ">0.01"
      Cells(7, 1).CurrentRegion.Copy Sheets.Add.Cells(1)
      ActiveWorkbook.EnvelopeVisible = True
      With ActiveSheet.MailEnvelope
        .Item.To = "geef een geldig mailadres in"
        .Item.Subject = Sheets("formulier").Range("B5").Value
        .Item.Send
      End With
      ActiveSheet.Delete
    End Sub
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren