Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 12 van 12

Onderwerp: criteria zoeken en cellen vullen

  1. #1
    Junior Member
    Geregistreerd
    22 januari 2014
    Vraag is opgelost

    criteria zoeken en cellen vullen

    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...
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    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)
    Bijgevoegde bestanden Bijgevoegde bestanden
    Gr,
    JV

  3. #3
    Junior Member
    Geregistreerd
    22 januari 2014
    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.

  4. #4
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Check het bestand eens
    Gr,
    JV

  5. #5
    Junior Member
    Geregistreerd
    22 januari 2014
    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

  6. #6
    Junior Member
    Geregistreerd
    22 januari 2014
    zie voorbeeld, helaas lukt het niet om de andere regels mee te nemen demo versie2.xlsm

  7. #7
    Junior Member
    Geregistreerd
    22 januari 2014
    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 😁🙈

  8. #8
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Ik begrijp de vraag helaas niet, ik denk niet dat ik de enige ben
    Gr,
    JV

  9. #9
    Giga Senior Haije's avatar
    Geregistreerd
    24 maart 2009
    Locatie
    Oldenzaal
    Haije
    ___________________________________________________

  10. #10
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Niet echt een handige opzet om er een macro voor te maken.
    Probeer het zo maar eens.

    Code:
    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
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  11. #11
    Junior Member
    Geregistreerd
    22 januari 2014
    kan iemand mij vertellen hoe ik mijn vraag kan sluiten. jullie hebben mij goed geholpen, thnx!

  12. #12
    In uw eerste post.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren