Gegevens per leverancier en per maand verzamelen.

[Geep]

Hoi experts,

Ondanks dat ik al veel oplossingen gevonden heb op dit bijzonder
mooie forum,heb ik toch een voorbeeld bestand geplaatst met een vraag.

Loes

 

[VenA]

Ik begrijp niet zoveel van deze vraag. Er staat nergens een status en er staat nergens een factuurnummer. Van jouw gegevens heb ik een tabel gemaakt. Op Sheet1 staat een draaitabel waarmee jij kan filteren. Mogelijk dat jij zoiets bedoelt?

 

[HSV]

Of geen draaitabel.

Private Sub CommandButton1_Click()
Dim sn, i As Long, j As Long, n As Long
sn = Sheets("gegevens").Cells(1).CurrentRegion
ReDim arr(1 To UBound(sn), 1 To UBound(sn, 2))
For i = 2 To UBound(sn)
  If sn(i, 4) = Sheets("status").Cells(1, 14) And Application.Text(sn(i, 6), "[$-413]mmmm") = Sheets("status").Cells(2, 14) Then
    n = n + 1
    For j = 1 To UBound(sn, 2) - 1
      arr(n, j) = sn(i, j)
    Next j
    n = n + 1
    arr(n, 1) = sn(i, UBound(sn, 2))
   End If
Next i
If n > 0 Then Sheets("status").Cells(15, 3).Resize(n, UBound(sn, 2)) = arr
End Sub

 

[Geep]

Beste HSV,

Zo das geweldig dat is knap gedaan.
maar het liefst zou ik dit met formules willen hebben.
En 'factuur' als dat kan op een nieuwe regel.
Het gaat uiteindelijk om een lijst van zo'n 5000 producten
en deze gegevens zijn maar een fractie van de werkelijke gegevens.
Erg bedankt dat je me wil helpen.

Loes

 

[HSV]

De factuur/rekening had ik al aangepast in mijn vorig schrijven.
Als het per se met formules moet verneem ik het wel.

 

[Geep]

Graag met formules Harry, Heel erg bedankt
Wat je gemaakt hebt met VBA is precies wat ik bedoel

Loes

 

[HSV]

Ik zal nog eens kijken of het onder elkaar kan.

 

[Geep]

Beste HSV,

Ik ben er heel erg blij mee.
graag onder het 10 cijferig nummer 2 lege regels, en als 2342a bestaat (laatste 4 cijfers van het 10 cijferig nummer en een 'a' ) dan een derde lege regel.

Loes

 

[HSV]

Al die wensen gaat helaas niet met formules Loes.
Hier zijn heel wat knappe koppen op dit forum, en je mag je vraag zolang je wenst laten staan, maar het zal hoofdpijn opleveren en dan ben ik bang dat het nog niet lukt.

 

[Geep]

Beste HSV,

En met VBA zou het wel lukken ? Als dat zo is graag met VBA, ik zou dan wel
graag wat uitleg willen over de programering van VBA wat je gemaakt hebt.

Het laatste bestand wat je gepost hebt is goed, het enige dat bij ieder 10 cijferig nummer 2 lege regels zou moet zijn,
en als 2342a bestaat een derde lege regel, en daarna weer het volgende 10 cijferig nummer.

Groetjes Loes

 

[HSV]

Maar dan hoeft factuur/rekening er niet meer onder?
Maak even een bestandje met hoe het moet worden.

 

[Geep]

Beste HSV,

Op het tabblad 'status' staat een voorbeeld van hoe het zou moeten worden.

Loes Bekijk bijlage hsv-for.xlsm

 

[snb]

Daarvoor heeft MS advancedfilter uitgevonden.

 

[Geep]

Beste HSV,


Is het mogelijk om bij ieder record 3 lege regels (zonder voor waarden) te realiseren ?
1234567890 enz. enz.
altijd 1 lege regel
altijd 2 lege regels
altijd 3 lege regels
2345678901 enz. enz.
altijd 1 lege regel
altijd 2 lege regels
altijd 3 lege regels

Loes, dan zou ik het kunnen maken. dank je wel

Ik gebruik nu het bestand in #7

 

[HSV]

Ik heb even gewacht op een reactie van jou richting @snb.

 

[Geep]

Ja, je mag ook het bestand van snb gebruiken als dat makkelijker is.
dat ziet er overigings ook geweldig uit. Top

snb jij ook erg bedankt het is in een woord geweldig !!!!!!!!!!!


Loes

 

[rebmog]

Uitwerking met formules met telkens 3 lege rijen tussen de records:

 

[Geep]

Beste helpers,

Ik kan weer vooruit, ik dank jullie voor alle hulp.
Het is echt een TOP FORUM ik ben er heel erg blij mee.
DANK DANK DANK


Loes

 

[Geep]

Beste Rebmog, HSV,

Ik heb nog een kleine aanpassing:

=ALS.FOUT(ALS(REST(RIJ()-8;4)=0;INDEX(gegevens!A$2:A$1000;GROOTSTE(ALS(gegevens!$D$2:$D$1000=$N$1;ALS(TEKST(gegevens!$F$2:$F$1000;"mmmm")=$N$2;RIJ(A$1:A$999)));RIJ(A1)-AANTAL.LEGE.CELLEN($C$7:$C7)));"");"")

ALS(VERT.ZOEKEN(D8&"a";'E:\[2016.xls]Adressen'!$A$2:$AZ$2550;1;0)=D8&"a" (dit wilde ik voor de 1e formule zetten)
als dit waar is dan 4 lege regels,
als dit niet waar is dan 3 lege regels.

ik heb het een en ander geprobeerd, maar krijg iedere keer een foutmelding betreft haakjes

Loes

 

[snb]

Wat is de bedoeling van 3 resp. 4 lege regels ?