Info uit lijst selecteren en versturen per mail naar diverse adressen

[Georgyboy]

Hallo iedereen,

We werken op ons bedrijf met eigen mensen en diverse interim kantoren.
Daags voordien moeten we de planning doorsturen voor wie werkt en wie niet.
Dit filteren we uit een lijst, per filter kopiëren we dit naar een excel blad met dezelfde hoofding als onze hoofdlijst.

Daar dit iedere dag veel tijd vergt en vergissing mogelijk is willen we dit automatiseren.
De selectie word per mail naar de desbetreffende kantoren gestuurd.

Kunnen we dit via een macro automatiseren?

Alle steun is welkom,
Alvast bedankt, Georgyboy

 

[Wigi]

Hang dat bestandje eens bij in versie 97-2003 aub.

 

[Georgyboy]

Ok Wigi,

 

[Wigi]

Hoe zie je wie werkt en wie niet?

 

[Georgyboy]

Goeie vraag Wigi,

Dit is een lijst die nu op het werk gebruikt word.
er word een begin uur ingevuld, dan selecteren niet lege cellen
kopiëren naar desbetreffende interim kantoor en versturen.

Vandaar dat dit iedere dag omslachtig is.

Georgyboy,

 

[Georgyboy]

Hallo,

We hebben dit geprobeerd via een macro, alles in de hoofdkolom
invullen en via filter selecteren per interimkantoor, kopiëren, plakken per kantoor
en versturen per mail.
Resultaat is dat dit niet werkt.

We blijven verder zoeken!
Groetjes, Georgyboy

 

[Georgyboy]

Voorlopig doen we het nog met kopieren plakken,
tot we een betere oplossing vinden voor het wegschrijven van gegevens.

Groetjes,

 

[Georgyboy]

Nieuw voorbeeld

Groetjes, Georgyboy

 

[Warme bakkertje]

Georgyboy, een eerste poging om tegemoet te komen aan je vraag. Eventuele opmerkingen laat je hier maar achter.

Mvg

Rudi

 

[Warme bakkertje]

GeorgyBoy, 2de poging maar nu met userform om foutmeldingen bij typfouten in de inputbox te voorkomen.

Mvg

Rudi

 

[Georgyboy]

Reuze bedankt Rudi,

Dit is fantastisch !

Graag had ik geweten hoe de macro werkt en het formulier.
Dit vraag ik om aanpassingen te kunnen doen.
Zelf versta ik niet veel van VBA.
de macro die ik vond is

Sub Show_It()
Select_Office.Show
End Sub

En het formulier
zonder de 3 keuze mogelijkheden.

Nogmaals veel dank Rudi,
Ga nu slapen en kom er zaterdag op terug

Groetjes, Georgyboy

 

[Warme bakkertje]

Georgyboy, in VBA-projectvenster rechtsklik je op Select_Office en selecteer je programmacode weergeven. Dit toont de macros achter het formulier.

Mvg

Rudi

 

[Georgyboy]

Gevonden Macro´s,

ik wist niet dat je het formulier ook met een macro kon aansturen.
zal proberen om deze macro te begrijpen.

Groeten, Georgyboy

 

[Georgyboy]

Goeiedag iedereen,

Graag wil ik de VBA code wat rudi heeft gemaakt begrijpen,
zodoende kan ik de aanpassingen zelf maken en mogelijk minder vragen moeten
stellen en proberen andere mensen te helpen ipv steeds hulp te vragen.

Option Explicit

Private Sub CommandButton1_Click()
Dim sCriteria As String, rng As Range
Application.ScreenUpdating = False
On Error Resume Next
Application.DisplayAlerts = False
sCriteria = Me.ListBox1.Value
On Error GoTo 0
Application.DisplayAlerts = True
With ActiveSheet
.AutoFilterMode = False
With .Range("A1:J151")
.AutoFilter
.AutoFilter Field:=2, Criteria1:=sCriteria
.AutoFilter Field:=4, Criteria1:="<>"
End With
End With
Sheets(sCriteria).Range("A3:J50").Clear
Set rng = ActiveSheet.AutoFilter.Range
rng.Offset(1, 0).Copy Destination:=Sheets(sCriteria).Range("A3")
Sheets("Alle werknemers").AutoFilterMode = False
Application.ScreenUpdating = True
Sheets(sCriteria).Activate
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim lRow As Long, ws As Worksheet
Dim l As Long

Set ws = ActiveWorkbook.Worksheets("Alle werknemers")
lRow = ws.Range("Z65536").End(xlUp).Row
'populate listbox
For l = 2 To lRow
Me.ListBox1.AddItem ws.Cells(l, 26)
Next l

End Sub
_______________________________________________________________

Sub Show_It()
Select_Office.Show
End Sub

_______________________________________________________________

Kan dit via een macro opname en opname macro stop ?
of is dit enkel via VBA

Met vriendelijke groeten,
Georgyboy,

 

[Warme bakkertje]

Georgyboy, ik heb bij de macro's een woordje uitleg geplaatst zodat je kan volgen wat er precies gebeurd. Trouwens hulp bieden is toch de bedoeling van dit forum dacht ik dus een vraag meer of minder doet er zeker niet toe

Mvg

Rudi

 

[Georgyboy]

Bedankt voor je geduld en inspanningen Rudi,

Ik zal toch eens een basis van VBA moeten leren hé om het beter te begrijpen.

Groeten,
Georgyboy

 

[Warme bakkertje]

We zijn allemaal bij het begin moeten beginnen. Een goede start is opnemen met de macrorecorder, bestuderen en verfijnen. En natuurlijk de F1-toets.
En de codes op dit forum proberen te ontleden

Mvg

Rudi

 

[Georgyboy]

Bedankt voor Uw steun Rudi,

Het lijkt zo moeilijk hé,
kan je wat je gemaakt hebt in VBA (interim 2) via de macrorecorder maken?

Zo ja wat zij de te ondernemen stappen ?

Groetjes,
Georges,