hulp nodig met vba vraagtuk

[citroenveter]

hallo,
Ik wil voor me zelf op me werk bij houden hoe me medewerkers zijn (flex en vaste)
gedrag motivatie ziek enz
nu ben ik met knippen en plakken al een heel end gekomen maar krijg het niet rond.
Ik hoop dat iemand mij kan/wil helpen

In Form:
Wil ik naam in vullen en alle andere gevens die je ziet staan
Deze gegevens wil ik terug zien in remarks data en last RECORD
Dit na dat er op de knop save is gedrukt

IN Remarks database wil ik de gegeven kunnen filteren per naam
Dit na dat er op de knop save is gedrukt
Huidig ww vba = leen1964

 

[gast0660]

Hoi,
Als je me een paar dagen tijd geeft dan giet ik e.a in de juiste vorm.

 

[HSV]

Prettige vakantie Philiep. :thumb:

Sub Save()
dim sn
sn = Array(Year(Now), Month(Now), DatePart("ww", Date, 2, 2), Date, Now, [D21], [D23], [D25], [J25], [D27], [J27], [D29])
 Sheets("remarks database").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 12) = sn
 Sheets("Last Record").Cells(Rows.Count, 1).End(xlUp).Resize(, 12) = sn
 Range("D21,D23:M23,D25:E25,J25:M25,D27:E27,J27:M27,D29:M34").ClearContents
 ThisWorkbook.Save
End Sub

 

[citroenveter]

Hoi,
Als je me een paar dagen tijd geeft dan giet ik e.a in de juiste vorm.

 

[citroenveter]

Hallo gast0660

Hoi,
Als je me een paar dagen tijd geeft dan giet ik e.a in de juiste vorm.

Super dat je wil helpen ,Alvast bedankt daarvoor.

 

[gast0660]

Kleine update
Ik ben u nog niet vergeten, er zijn echter een paar onvoorziene zaken tussengekomen.

 

[citroenveter]

Hoi,
Maakt niet uit er zijn nou eenmaal belangrijker dingen in het leven,
ik ben al blij dat je wilt helpen, Geduld is een schone zaak

 

[HSV]

#3 van 23 januari, 18:51 uur over het hoofd gezien?

 

[citroenveter]

hoi

Nee niet over het hoofd gezien, maar persoonlijk kan ik er niks mee.
Maar toch ook bedankt voor jou hulp

 

[Ginger]

@Citroenveter, als je nou bij HSV aangeeft WAAROM je er persoonlijk niets mee kan, kan je verder worden geholpen. Aan een open eind heeft een helper niets en zal afhaken. Laat dus even weten wat er precies niet mee werkt in vergelijk met hetgeen jij voor ogen had... (ook gast0660 kan hier profijt bij hebben als hij iets voor je gaat ontwikkelen )

 

[HSV]

maar persoonlijk kan ik er niks mee.

Ik zie het, je kan alleen met de macrorecorder werken (mijn excuus).
Plaats de code op de plek van jouw code in module 3.
Rechtermuisknop op de save knop, macro toewijzen, en dan zoek je uit de lijst 'Save', en drukt OK.
Daarna druk je op de saveknop en controleert je bladen of er iets is veranderd.

 

[gast0660]

Kijk eens of je hiermee genoeg kan klagen over uw medewerkers.
Volgens mij zijn uw vragen uit postje # 1 getackeld.
Als er vragen zijn hoor ik het wel.