• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

criteria zoeken en cellen vullen

Status
Niet open voor verdere reacties.
R

remco1987

Gebruiker
Lid geworden
22 jan 2014
Berichten
92
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...
 

Bijlagen

  • demo versie.xlsx
    101,1 KB · Weergaven: 66
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)
 

Bijlagen

  • demo versie.xlsm
    109,9 KB · Weergaven: 67
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.
 
Check het bestand eens
 
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
 
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
 
Ik begrijp de vraag helaas niet, ik denk niet dat ik de enige ben
 
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
 
kan iemand mij vertellen hoe ik mijn vraag kan sluiten. jullie hebben mij goed geholpen, thnx!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan