Planning per mail versturen excel 2010 - 2013

[Georgyboy]

Hallo ieder op deze zonnige dag,

Ik ben vroeger fantastisch geholpen geweest van "warm Bakkertje" waarvoor dank
sinds nov 2008 gebruiken we een bestand die we na selectie per mail versturen.
dit doen we al jaren zonder problemen.

Nu is het zo dat de persoon die er nu mee werkt om de planning te versturen (werkt met excel 2013)
soms de volledige lijst "tabblad werknemers" verstuurd ipv de selecie interim1 of interim2 of interim3.

Soms lukt dit ook om de selectie te doen soms weer niet.

Bij proberen op mijn computer excel 2010 hebben we geen probleem.

Werking bestand :
Wijzig tabblad "weknemers"
klik in het formulier en kies interim 1, 2 of 3
selectie verschijnt
klik op de knop "mail"

nu word normaal de selectie verstuurd naar de betreffende personen.

P.S.: Kan dit te maken hebben met verschil code in 2013 ?

Alvast bedankt !

 

[Georgyboy]

Verschil VBA code 2013 tov 2013 ?

Even mijn vraag anders gesteld

is er een verschil in VBA excel 2013 tov 2010 ?

Probleem zie vorige vraag

Alvast bedankt

 

[plongske]

werk ook met office 2010.
vba is nog mijn specialiteit niet.
maar als ik enterim 1 selecteer met de buttom enterim kantoor selecteren krijg ik al een foutmelding: fout 9 tijdens de uitvoering.
het subscript valt buiten het bereik.

Sheets(sCriteria).Range("A3:J50").Clear 'gebied waar geplakt moet worden leegmaken

Deze wordt geel als ik de foutcontrole aanstuur.

 

[Georgyboy]

Bedankt voor te kijken plongske,


Bereiken aangepast

formulier

    With ActiveSheet
        .AutoFilterMode = False 'oude autofilters verwijderen
            With .Range("[COLOR="#FF0000"]A1:J100[/COLOR]") 'volledig bereik waarin gezocht moet worden
                    .AutoFilter 'nieuwe atofilter activeren
                    .AutoFilter Field:=2, Criteria1:=sCriteria ' eerste filter op interimkantoor
                    .AutoFilter Field:=4, Criteria1:="<>" 'tweede filter op ingevulde starturen
            End With

Per tabblad

ActiveSheet.Range("[COLOR="#FF0000"]A2:I100[/COLOR]").Select

Dit is een voorbeeld zoals we gebruiken sinds +/- 5 jaar
raar is dat wie er met excel 2010 mee werkt geen probleem heeft en die ene met excel 2013 wel een probleem heeft

die verstuurd het eerste tabblad "alle werknemers" ipv de selectie (interim 1, interim 2, interim 3)

Alvast bedankt

Bekijk bijlage Interimkantoren(2)(1).xlsm