Userform, waarde wegschrijven naar juiste cel dmv datum in ander tabblad

Status
Niet open voor verdere reacties.
G

genexxa

Gebruiker
Lid geworden
26 aug 2008
Berichten
70
Hallo,

Ik heb een vraag of iemand mij kan helpen met een probleem bij het wegschrijven van waardes naar een ander tabblad met als voorwaarde een datum.
Ik heb het voor elkaar gekregen om de waardes op te halen naar een UserForm. (rede; ter controle van de waarden en dat ik het achteraf eventueel kan aanpassen indien van toepassing)
Nu zou ik graag willen dat in boven in de UserForm de datum invul en wanneer ik op button; Wegschrijven druk, de waarden dan in tabblad; Werkvoorraad, worden weggeschreven in kolom waar de juiste datum staat.

Voorbeeld;

Datum = 27-04-2017
Werkstroom 1 = 3
Werkstroom 2 = 1
Werkstroom 3 = 4
Werkstroom 4 = 6
Werkstroom 5 = 5
Werkstroom 6 = 8

Deze waardes worden weggeschreven in tabblad: werkvoorraad, in kolom T (datum = 27-04-2017) en de waarden bij de juiste regels (zie werkstromen)

Ik hoop dat ik het een beetje duidelijk omschreven heb.

Kan iemand mij hierbij helpen?

Alvast bedankt!!!
 

Bijlagen

  • dagstart1.xlsm
    63,5 KB · Weergaven: 41
Laatst bewerkt:
Probeer het zo eens.

Code: 
Private Sub Userform_Initialize()
For j = 1 To 6
  Me("Textbox" & j) = Sheets("Aantal Dag").Cells(4, 3).Offset(j)
Next j
End Sub

Code: 
Private Sub CommandButton1_Click()
Dim f As Range
  If IsDate(TextBox7) Then
    Set f = Sheets("Werkvoorraad").Rows(2).Find(CDate(TextBox7))
    If Not f Is Nothing Then f.Offset(1).Resize(6) = Application.Transpose(Array(TextBox1.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, TextBox5.Value, TextBox6.Value))
  End If
End Sub
 
Top het werkt perfect.

Ik heb alleen nog een kleine vraag. is het mogelijk dat er in textbox7 (datum) alleen maar een datum ingevuld kan worden die voldoet aan;
2 cijfers - 2 cijfers - 4 cijfers?
bv: 01-04-2017
en wanneer dit niet het geval is, een melding met bv; datum niet juist?
 
Laatst bewerkt:
Zoek eens op If Then Else

Code: 
Private Sub CommandButton1_Click()
Dim f As Range
  If IsDate(TextBox7) Then
    Set f = Sheets("Werkvoorraad").Rows(2).Find(CDate(TextBox7))
    If Not f Is Nothing Then
      f.Offset(1).Resize(6) = Application.Transpose(Array(TextBox1.Value, TextBox2.Value, TextBox3.Value, TextBox4.Value, TextBox5.Value, TextBox6.Value))
     Else
      MsgBox "datum niet gevonden"
    End If
   Else
   MsgBox "datum niet juist"
  End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan