Gegevens automatisch in juiste cel plaatsen Blad1 -> Blad2

[billyhopper]

Beste,

Ik heb het volgende:

Blad1.
A1 = (uniek nummer) b.v. "123456"
A2 = (datum) "11-02-2013"
A3 = (Product) bijvoorbeeld "Melk"
B3 = (aantal) bijvoorbeeld "5"

Blad2.
Kolom A = (uniek nummer) "123456"
Kolom B = (datum) "11-02-2013"
RIJ 1 !! = Verschillende soorten producten.. waaronder ook Melk in staat..

Wat ik wil is dat wanneer ik in Blad1 de gegevens aangeef.. dat er in Blad2 automatisch de juiste hoeveelheid (in dit geval 5) bij de juiste nummer en datum verschijnt.

Zoiets:

A B C D E F
1) Uniek# Datum SNOEP MELK FRUIT PIZZA
2) 123456 11-02-'13 5
3) etc etc


Dus met de gegevens wat ik in Blad1 invul.. moet in Blad2 de juiste hoeveelheid bij de juiste rij en kolom gezet worden

Sorry dat ik geen voorbeeld excel kan sturen. Ik hoop dat het zo duidelijk is.

Alvast enorm bedankt!!!

 

[Niels28]

Ik zie niet in waarom je geen voorbeeld kunt posten.

Niels

 

[billyhopper]

Uploaden lukte niet.. zit namelijk op werk.. en nu op een andere pc gedaan (gelukt!)

Bij deze een voorbeeld

Bekijk bijlage Voorbeeld.xlsm

 

[billyhopper]

Wanneer ik op knop "Voeg toe" klik.. moetie dus in de juiste cel in Blad2 de hoeveelheid zetten

 

[Niels28]

Sub Toevoegen()
    With Sheets("blad2")
        Lrow = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        Set r = .Range("C1:F1").Find(Sheets("Blad1").Range("E10").Value)
        .Cells(Lrow, 1).Value = Sheets("Blad1").Range("E6").Value
        .Cells(Lrow, 2).Value = Sheets("Blad1").Range("E7").Value
        .Cells(Lrow, r.Column).Value = Sheets("Blad1").Range("f10").Value
    End With
End Sub

Niels

 

[billyhopper]

Geweldig!! het werkt!

Niels is het ook mogelijk wanneer ik met 4 dropdown menu's werk?

dus ik kies..
melk 4x
kaas 2x
eieren 1x

en dan opdezelfde datum?

 

[Niels28]

Met 4 hoef je toch niet meer te kiezen want dan heb je ze allemaal , dus waarom dan nog verschil maken?
Maar vooruit , keuze in E10:E13 , aantal in F10:F13

Sub Toevoegen()
    With Sheets("blad2")
        Lrow = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        
        For i = 1 To 4
            On Error Resume Next
            Set r = .Range("C1:F1").Find(Sheets("Blad1").Range("E" & 9 + i).Value)
             .Cells(Lrow, r.Column).Value = Sheets("Blad1").Range("f" & 9 + i).Value
            On Error GoTo 0
        Next
        
        .Cells(Lrow, 1).Value = Sheets("Blad1").Range("E6").Value
        .Cells(Lrow, 2).Value = Sheets("Blad1").Range("E7").Value
       
    End With
End Sub

Niels

 

[billyhopper]

Dankjewel Niels !