• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Data wegschrijven

Status
Niet open voor verdere reacties.
S

SebastiaanNy

Nieuwe gebruiker
Lid geworden
5 aug 2014
Berichten
4
Hallo allemaal,

Ik loop tegen het probleem aan dat ik wel data kan wegschrijven van het werkblad 'Invoer' --> 'Masterdata', onder een nieuwe rij. Echter, er zit nog een voorwaarde aan, is de medewerker al bekend dan hoeft er geen nieuwe rij aangemaakt te worden (de medewerker komt namelijk al voor in het systeem; in het voorbeeld zijn Henk, Piet en Jan al bekend) en moeten enkel de uren voor die maand ingevoerd worden. Is het nu zo dat deze maand Iris is aangenomen, dan moet de macro begrijpen dat die een nieuwe rij moet maken met naam (Iris) + maand + uren.

Foutmelding moet worden weergegeven als naam + maand + uren al reeds in de sheet 'Masterdata' staat ingevuld.

Alvast bedankt voor de hulp!
 

Bijlagen

  • Voorbeeld Excel 1.0.xlsx
    13,9 KB · Weergaven: 29
en waar is de macro die al werkt? je hebt nu een .xlsx bestand geupload en daar zit geen macrocode in

Meest logische lijkt mij om namelijk een knop toe te voegen "nieuwe medewerker" die dan die nieuwe regel even invoegt en daarna gewoon uren invoeren en de standaard macro uitvoeren die je al hebt.
dus kun je de code die je al hebt ook hier neerzetten zodat we kunnen bekijken of die aangepast kan of dat inderdaad een hele aparte code handiger is.
 
Als aanvulling op het berichtje van @roeljongman
De tab 'masterdata' is een resultaatblad. Dit maakt code en analyses van data nodeloos ingewikkeld. Waarom zijn de rijen 2 t/m 4 samengevoegd? Je kan dit toch in 1 rij houden en de rijhoogte aanpassen. Bij dit soort projecten moet je eerst goed nadenken over wat je wilt. Als Henk op 15-05-2019 uit dienst is dan wil je toch Henk niet meer zien bij het invoeren van de uren na mei 2019?
 
Kleine start...
Code: 
[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub Wegschrijven()
  With Blad2
    j = .Range("A3:A100").Find(Blad1.Range("A2")).Row
    jj = .Range("A2:Z2").Find(Blad1.Range("B2")).Column
    .Cells(j, jj) = Blad1.Range("C2").Value
  End With
End Sub[/FONT]
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan