Gegevens van Userform kopieren naar cellen

[Jerry22]

Heren,

Ik ben nog niet zo heel lang bezig met excel vba dus heb een probleempje waar ik niet uitkom.

Ik heb in de bijlage een voorbeeld bestand. Ik zou het fijn vinden als iemand me hiermee kan helpen.

Wat wil ik bereiken:

Ik heb een userform aangemaakt (als je de knop invul druk komt die te voorschijn). In de userform is een monthview te zien en 4 invulboxen. Het is de bedoeling dat men eerst een datum aanclickt in de monthview en de productie per lijn in vult. zodra dit gedaan is druk je op de knop opslaan. Aan de hand van de aangeclickte datum moeten de aantallen gekopieerd worden bij de juiste lijnen en de juiste datum.

Ik hoop dat ik het een beetje duidelijk heb uitgelegd.

 

[Warme bakkertje]

Post dan allereerst eens een voorbeeldbestand met een werkende Userform, want met dit zijn we niks.

 

[Niels28]

Zorg er voor dat je textboxen de juiste naam hebben.
Je mist nu textbox2.

Ik ben het met warme bakkertje eens post een werkend voorbeeld met de juiste tabbladen.

Private Sub CommandButton1_Click()

With Sheets("blad2").Range("A:A").SpecialCells(2)
    Set c = .Find(MonthView1.Value)
    ReDim sq(3)
    For i = 1 To 4
        sq(i - 1) = Controls("textbox" & i).Value
    Next
    If Not c Is Nothing Then
    c.Offset(0, 1).Resize(1, 4).Value = sq
    Else
    MsgBox "datum niet gevonden"
    End If
End With

Unload Me
End Sub

Niels

 

[Jerry22]

Oeps sorry heren. Dat was niet mijn bedoeling. Ik was vergeten om de codes eruit te halen. Was zelf dingen aan het proberen vandaar dat ik de code vergeten eruit te halen. Mijn excuses. De userform is balnco gemaakt. Hoop dat ik het nu wel goed heb.

 

[Niels28]

Ja en heb je mijn voorbeeld al getest?

Niels

 

[Jerry22]

Niels ik heb drie woorden voor jou.

JIJ BENT GENIAAL!!!!!!!

Hartstikke bedankt

 

[Niels28]

Zet je de vraag dan op opgelost.


Niels

 

[Jerry22]

Hey Niels,

Voordat k de vraag op opgelost zet nog een klein vraagje.

Ik heb nu de kolomen op blad2 naast elkaar (lijn1 t/m lijn4). Zou je aub de code kunnen aanpassen zodat ik kolomen kan toe wijzenen die niet naast elkaar staan?

Alvast bedankt

 

[Niels28]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
With Sheets("blad2").Range("A:A").SpecialCells(2)
    Set c = .Find(MonthView1.Value)

    If Not c Is Nothing Then
    For i = 1 To 4
    c.Offset(0, 1).Value = Controls("textbox" & i).Value
        c.Offset(0, 3).Value = Controls("textbox" & i).Value
            c.Offset(0, 5).Value = Controls("textbox" & i).Value
                c.Offset(0, 7).Value = Controls("textbox" & i).Value
    Next
    Else
    MsgBox "datum niet gevonden"
    End If
End With
Application.ScreenUpdating = True
Unload Me
End Sub

Niels

 

[snb]

of

Private Sub CommandButton1_Click()
   on error resume next

   Sheets("blad2").columns(1).Find(MonthView1.Value,,xlvalues,1).offset(,1).resize(,7)=array(textbox1.Text,,textbox2.text,,textbox3.text,,textbox4.text)

   Hide
End Sub

 

[Jerry22]

Heren mijn dank is groot