criteria zoeken en cellen vullen

[remco1987]

Beste leden,


ik heb in tab; totaal overzicht een aantal cellen gemaakt als voorbeeld.
wat ik wil (lukt mij niet :-p)

als ik in tab "cake en taarten" de tekst naast naam van het gerecht: heb ingevuld, in tab totaal overzicht hij ook de andere cellen automatische invult.
ik heb een voorbeeld ingevuld om te laten zien wat ik bedoel.

het gaat er om dat ik een overzicht heb.

ik hoop dat iemand het snapt haha...

[JVeer]

Ik weet niet hoe je al de andere gegevens gaat ophalen wat bij die specifieke taart hoort maar hier een suggestie. De uitleg is ook vrij karig..

Druk op de knop en het verschijnt op het laatste tabblad. Let op: de cellen L3 en L4 geen samengevoegde cellen meer. (dat vindt vba niet leuk)

[remco1987]

Hoi Jveer,

wat in kolom b Naam van het gerecht voor komt: een tekst staat in kolom C dan moet hij die tekst overnemen naar totaal overzicht en dan de gegevens mee nemen zoals in het voorbeeld staat aangegeven.

[JVeer]

Check het bestand eens

[remco1987]

dankjewel, maar dit is niet helemaal wat het moet zijn, stel ik voeg een product toe en ik druk op de knop. zie ik dat hij alleen de amandel taart toevoegt en niet de nieuwe regels

[remco1987]

zie voorbeeld, helaas lukt het niet om de andere regels mee te nemen demo versie2.xlsm

[remco1987]

wat bedoel je hier mee ?

lr = .Cells(1, 1).End(xlDown).Offset(1).Row
.Cells(lr, 1).Resize(, 10)

wellicht dat hij daarom alleen die regel mee neemt en niet over het gehele blad zoekt?

mijn kennis voor vba is 0 namelijk 😁🙈

[JVeer]

Ik begrijp de vraag helaas niet, ik denk niet dat ik de enige ben

[Haije]

remco,

is dit dezelfde vraag?
https://www.oplossing.be/excel/tekst...ld-is/new/#new

[VenA]

Niet echt een handige opzet om er een macro voor te maken.
Probeer het zo maar eens.

Sub VenA()
Dim a(9)
  ar = Sheets("cake en taarten").UsedRange
  Set d = CreateObject("Scripting.Dictionary")
  For j = 1 To UBound(ar)
    If ar(j, 2) = "Naam van het gerecht:" Then
      a(0) = ar(j + 1, 3)
      a(1) = ar(j, 3)
    End If
    If ar(j, 2) = "Aantal personen:" Then a(3) = ar(j, 3)
    If ar(j, 2) = "Totale inslag" Then
      a(2) = CDbl(ar(j, 8))
      a(4) = CDbl(ar(j + 1, 8))
      a(5) = CDbl(ar(j + 5, 8))
      a(6) = CDbl(ar(j + 2, 8))
      a(7) = CDbl(ar(j + 3, 8))
      a(8) = CDbl(ar(j + 4, 8))
      a(9) = ar(j + 7, 8)
      If a(1) <> "" Then d(d.Count + 1) = a
    End If
  Next j
  Sheets("totaal overzicht").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(d.Count, 10) = Application.Index(d.items, 0)
End Sub

[remco1987]

kan iemand mij vertellen hoe ik mijn vraag kan sluiten. jullie hebben mij goed geholpen, thnx!

[emields]

In uw eerste post.