cellen kopieeren naar ander werkblad

[hatseflats2]

Hallo,

Ik heb een urenregistratie gemaakt welke d.m.v. een userform in 12 verschillende werkbladen (Jan.t/m Dec.) de gewerkte tijden opslaat nu wil ik op het moment dat ik het userform heb uitgevoerd als laatste handeling een celselectie uit het werkblad waarin opgeslagen is kopieeren naar mijn eerste werkblad ( Voorblad) hoe is dit simpel mogelijk ? is het mogelijk een variabele in het userform te maken welke ik kan parametreren met de naam van het werkblad waaruit de cellen gekopieerd moeten worden ?

alvast bedankt voor ieder goed idee.

 

[SPros]

Beste Hat....2,

Ik werk vaak met Labels en Comboboxen om de inhoud van een variabel te tonen in een userform en te gebruiken in een procedure die in de userform wordt gestart.

Heb je de naam van de werkblad al in een variabele gezet met: bv
NaamActiveWorkbook = ActiveWorkbook.Name
of
NaamActiveSheet = ActiveSheet.Name

Groet,

Paul R

 

[hatseflats2]

bedankt

Beste Paul,

Ik ga het proberen bedankt voor je reactie.

Peter

 

[SPros]

Beste Hatseflats2,

Een aanvulling.

Een label op een userform vul je met informatie mbv ".Caption"
bv
Label1.Caption = NaamActiveWorkbook

Groet,

Paul

 

[hatseflats2]

nog niet helemaal opgelost

hierbij nog wat extra uitleg over mijn vraag,
ik open een userform in het werkblad genoemd " voorblad" vervolgens worden daar een aantal tijden ingevuld welke worden geschreven in de werkbladen " Jan." t/m "Dec." zo kan ik dus van een heel jaar mijn uren bijhouden. Nu wil ik op het moment van schrijven de een aantal cellen uit het blad waar naartoe geschreven wordt kopieeren en deze op het "voorblad " weergeven, caption werkt niet aangezien het userform in het " voorblad" geopend wordt en dit dus de actieve sheet is. D.m.v. een macro opnemen is het wel mogelijk maar volgens mij moet het netter kunnen. de bijgevoegde code is de code van het UserForm.

Iemand nog een goed idee?????

Private Sub ComboBox1_Change()

End Sub




Private Sub CommandButton1_Click()
'wat gaan we opslaan
dagmelding = UserForm1.dag.Value
maandmelding = UserForm1.maand.Value
jaarmelding = UserForm1.jaar.Value
Datum = dagmelding & "-" & maandmelding & "-" & jaarmelding

Datum = Format(Datum, "dd-mm-yyyy")
soort = UserForm1.soort.Value

'dropbox uitlezen en wegschrijven
beginuren = UserForm1.uren_1.Value
beginminuten = UserForm1.minuten_1.Value

einduren = UserForm1.uren_2.Value
eindminuten = UserForm1.minuten_2.Value

'begintijd1 vullen
begintijd1 = beginuren & ":" & beginminuten
'eindtijd1 vullen
eindtijd1 = einduren & ":" & eindminuten

'als veld niet ingevuld dan
If Datum = Empty Or soort = Empty Or beginuren = Empty Or beginminuten = Empty Or einduren = Empty Or eindminuten = Empty Then

    MsgBox "datum ,soort en tijd zijn verplichte velden, gegevens niet weggeschreven naar urenstaat"
    
    Exit Sub
 
 Else
 
   If maandmelding = "1" Then
      If soort = ("normale uren") Then
      Worksheets("Jan.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Jan.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Jan.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Jan.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Jan.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Jan.").Range("n" & (dagmelding + 10)) = eindtijd1
    End If
    End If
   
   If maandmelding = "2" Then
      If soort = ("normale uren") Then
      Worksheets("Feb.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Feb.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Feb.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Feb.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Feb.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Feb.").Range("n" & (dagmelding + 10)) = eindtijd1
    End If
    End If
   
   If maandmelding = "3" Then
      If soort = ("normale uren") Then
      Worksheets("Mrt.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Mrt.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Mrt.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Mrt.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Mrt.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Mrt.").Range("n" & (dagmelding + 10)) = eindtijd1
    End If
    End If
    
   
   If maandmelding = "4" Then
      If soort = ("normale uren") Then
      Worksheets("Apr.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Apr.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Apr.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Apr.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Apr.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Apr.").Range("n" & (dagmelding + 10)) = eindtijd1
    End If
    End If
    
   
   If maandmelding = "5" Then
      If soort = ("normale uren") Then
      Worksheets("Mei.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Mei.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Mei.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Mei.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Mei.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Mei.").Range("n" & (dagmelding + 10)) = eindtijd1
   End If
   End If
   
   If maandmelding = "6" Then
      If soort = ("normale uren") Then
      Worksheets("Jun.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Jun.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Jun.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Jun.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Jun.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Jun.").Range("n" & (dagmelding + 10)) = eindtijd1
       End If
       End If
   
   If maandmelding = "7" Then
      If soort = ("normale uren") Then
      Worksheets("Jul.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Jul.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Jul.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Jul.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Jul.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Jul.").Range("n" & (dagmelding + 10)) = eindtijd1
      End If
      End If
      
   
   If maandmelding = "8" Then
      If soort = ("normale uren") Then
      Worksheets("Aug.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Aug.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Aug.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Aug.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Aug.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Aug.").Range("n" & (dagmelding + 10)) = eindtijd1
      End If
      End If
      
   
   If maandmelding = "9" Then
      If soort = ("normale uren") Then
      Worksheets("Sep.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Sep.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Sep.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Sep.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Sep.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Sep.").Range("n" & (dagmelding + 10)) = eindtijd1
      End If
      End If
      
   
   If maandmelding = "10" Then
      If soort = ("normale uren") Then
      Worksheets("Okt.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Okt.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Okt.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Okt.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Okt.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Okt.").Range("n" & (dagmelding + 10)) = eindtijd1
      End If
      End If
      
   
   If maandmelding = "11" Then
      If soort = ("normale uren") Then
      Worksheets("Nov.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Nov.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Nov.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Nov.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Nov.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Nov.").Range("n" & (dagmelding + 10)) = eindtijd1
      End If
      End If
      
   
   If maandmelding = "12" Then
      If soort = ("normale uren") Then
      Worksheets("Dec.").Range("b" & (dagmelding + 10)) = begintijd1
      Worksheets("Dec.").Range("c" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("over uren") Then
       Sheets("Dec.").Range("d" & (dagmelding + 10)) = begintijd1
       Sheets("Dec.").Range("e" & (dagmelding + 10)) = eindtijd1
    End If
    If soort = ("consignatie uren") Then
       Sheets("Dec.").Range("m" & (dagmelding + 10)) = begintijd1
       Sheets("Dec.").Range("n" & (dagmelding + 10)) = eindtijd1
       
    End If
    End If
    
                       
    
    MsgBox "Gegevens weggeschreven naar urenstaat"
    UserForm1.Hide
    End If
    
End Sub




Private Sub UserForm_Click()

End Sub