ingevoerde gegevens wegschrijven op ander werkblad

[regf]

Hoi, zie bijlage.
in dit bestand kan ik uren optellen en aftrekken.
graag wil ik de snipperuren, adv uren, naam en groep die ik invul wegschrijven op tabblad 2. zo creer ik een overzicht.
bij voorkeur ook nog met een datum die ik kan toevoegen.
alvast bedankt voor de moeite.
RegBekijk bijlage snipperurenregistratie.xls

 

[Niels28]

Leg even duidelijk uit wat de bedoeling is.
Geef ook in het voorbeeld aan wat waar naar toe moet en hoe je aan de gegevens komt.

Niels

 

[regf]

Hoi Niels,

als je nieuwe medewerker invoert dan registreer je hem in de lijst op blad 1
met urensaldo aanpassen kun je uren af halen van het totaal.
de gegevens in uren aanpassen wil ik laten zoals het is maar daarbij wil ik die gegevens op tabblad 2 wegschrijven, dus niet het rekensommetje maar de ingevulde uren en data. op tabblad 2 staat wat ik wil registreren.
zo kan ik doormiddel van eenvoudig filteren zien wie wanneer heeft gesnipperd of op welke afdeling etc.
Reg

 

[Niels28]

Code achter userform aangevuld.

Private Sub Aanvullen_Click()
Dim FindString As String, Rng As Range
Dim irow As Integer
irow = Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1

    FindString = TextBoxNummer.Value
  With Sheet1.Range("B2:B50")
    Set Rng = .Find(What:=FindString, After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _
      SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
      Rng.Columns(3).Value = Rng.Columns(3).Value + Replace(TextBoxAantal.Value, ".", ",")
Sheets("sheet2").Cells(irow, 1) = TextBoxNummer.Value
Sheets("sheet2").Cells(irow, 2) = TextBoxNaam.Value
Sheets("sheet2").Cells(irow, 3) = TextBoxAantal.Value
Sheets("sheet2").Cells(irow, 4) = TextBox1.Value

Sheets("sheet2").Cells(irow, 6) = Now()

  End With
  TextBoxNummer.Value = ""
  TextBoxNaam.Value = ""
  TextBoxAantal.Value = ""

End Sub

Niels

 

[regf]

Hoi Niels,
het werkt wel maar!!!!
ik kan elk persoon maar een keer invullen, daarna gebeurt er niets.
het is de bedoeling dat elke mutatie toegegveogd wordt.
is dit te verwezenlijken.
alvast bedankt voor je moeite.
Reg

 

[regf]

Hoi Niels,
nog wat gerommeld, het werkt wel met snipperuren maar niet met de ADV uren.
Reg

 

[Niels28]

Wat werkt er dan niet, als ik adv uren invul en ik druk op de bovenste knop (aantal bijwerken) dan wordt ook de adv uren op blad 2 gezet.
Ik begrijp trouwens niet waarom je er 2 knoppen op hebt staan.

Niels

 

[regf]

Hoi Niels
bij mij lukt het niet met de ADV op sheet 2.
of ik doe iets niet goed.
maar goed zie bijlage.

 

[Niels28]

Dag Reg,

Vervang de code achter button aanvullen door:

Private Sub Aanvullen_Click()
Dim FindString As String, Rng As Range
Dim irow As Integer
irow = Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1
    FindString = TextBoxNummer.Value
  With Sheet1.Range("B2:B50")
    Set Rng = .Find(What:=FindString, After:=.Cells(1), LookIn:=xlValues, LookAt:=xlWhole, _
      SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
      If TextBoxAantal.Value <> "" Then Rng.Columns(3).Value = Rng.Columns(3).Value + Replace(TextBoxAantal.Value, ".", ",")
      If TextBox1.Value <> "" Then Rng.Columns(4).Value = Rng.Columns(4).Value + Replace(TextBox1.Value, ".", ",")
Sheets("sheet2").Cells(irow, 1) = TextBoxNummer.Value
Sheets("sheet2").Cells(irow, 2) = TextBoxNaam.Value
Sheets("sheet2").Cells(irow, 3) = TextBoxAantal.Value
Sheets("sheet2").Cells(irow, 4) = TextBox1.Value

Sheets("sheet2").Cells(irow, 6) = Now()

  End With
  TextBoxNummer.Value = ""
  TextBoxNaam.Value = ""
  TextBoxAantal.Value = ""

End Sub

De andere knop mag weg.

zie bijlage Bekijk bijlage snipperurenregistratie(2).xls

Niels

 

[regf]

bijlage vergeten is te groot ik moet het zippen.
Bekijk bijlage snipperurenregistratie.rar

 

[Niels28]

Antwoord heeft jouw aanvulling gekruist.

 

[regf]

perfect het werkt met 1 knop en zowel ADV als snipper.
bedankt
Reg