Formule probleem

[ExcelAmateur]

Beste helpers,

Ik wil met een formule voor elkaar zien te krijgen om 4 gegevens onder elkaar te zetten.
Met de formule Vert.Zoeken lukt dit niet.

Ik dacht aan een Matrixformule maar dat wil niet lukken. (heb er geen kaas van gegeten)
Heb ook gezocht in "Helpmij" zonder resultaat, volgens mij is zoiets al eens behandeld.

Zie het voorbeeldje.

 

[MarcelBeug]

Inderdaad, een matrixformule. In G3, bevestigen met Ctrl+Shift+Enter en kopiëren naar beneden:

=ALS(RIJEN(G$3:G3)>$F$1;"";INDEX($A$1:$A$30;KLEINSTE(ALS($A$1:$A$30<>"";RIJ($A$1:$A$30)-RIJ($A$1)+1);RIJEN(G$3:G3))))

Opmerkingen:
1. Het deel ALS(RIJEN(G$3:G3)>$F$1;""; is bedoeld om de formule verder naar beneden te kunnen doortrekken voor eventuele extra ingevulde waarden.
Als dat niet nodig is, dan kun je dat weglaten.
2. Het deel RIJ($A$1:$A$30)-RIJ($A$1)+1 kan korter tot RIJ($A$1:$A$30), maar ik houd zelf altijd vast aan de lange versie.
Dan werkt het nog steeds, mocht je regels boven regel 1 invoegen.

De verkorte versie is dan:

=INDEX($A$1:$A$30;KLEINSTE(ALS($A$1:$A$30<>"";RIJ($A$1:$A$30));RIJEN(G$3:G3)))

 

[Cobbe]

Kun je hier mee leven?

Sub cobbe()
i = 3
For Each cl In Range("A1:A60").SpecialCells(xlConstants)
     Cells(i, "G") = cl: i = i + 1
Next
End Sub

 

[ExcelAmateur]

@MarcelBeug,
Je formule werkt maar als er in de lege cellen iets staat dan geeft hij niet wat ik wil zien.
Dat is natuurlijk mijn fout ik had het voorbeeld gelijk goed moeten doen. (sorry)

@Cobbe,
Ook deze macro werkt perfect en eigenlijk het zelfde verhaal als hier boven.

In de lege cellen staan de datums die in die week vallen.
Hij moet dus alleen de cellen met "Week "& "*" eruit halen Als dit mogelijk is.

Het is voor mijn zoon om zijn gewerkte uren bij te houden.
Soms werkt hij aan meerdere orders per dag en komen er dus regels tussen. (Week staat dus niet altijd in de zelfde cel)
Met Vert.Zoeken lukt dit niet.
Ik gebruik deze formule =$A$2 & " tot " & RECHTS($V$6;2) om tot dit Week 51 tot 2 te komen
A2 = Week 51 - V6 = Week 2

Dus eigenlijk is het belangrijkste dat ik het laatste week nummer kan gebruiken.
Het is een heel verhaal en hoop dat ik het goed heb uitgelegd, sorry voor de verkeerde informatie.

Dit levert hij per Email in met als bestandsnaam zijn naam en Week 51 tot 2 (dit veranderd dus om de 4 weken)

 

[HSV]

Omdat het zo mooi constant is.

=INDIRECT("A"&(RIJ()-RIJ($A$3))*7+RIJ($A$1))

Of:
=INDEX(A:A;RIJ()*7-20)

 

[Cobbe]

Of je filtert de datums eruit in de macro:

Sub cobbe()
i = 3
For Each cl In Range("A1:A60").SpecialCells(xlConstants)
  If Not IsDate(cl) Then
     Cells(i, "G") = cl: i = i + 1
  End If
Next
End Sub

 

[ExcelAmateur]

@Cobbe,
De macro werkt uit stekend, hartelijk bedankt.:thumb:
Ik zal de vraag als opgelost zetten.

 

[snb]

@Cobbe

Wat dacht je van .specialcells(2,1) zonder isdate() ?

Sub M_snb()
  For Each cl In Range("A1:A60").SpecialCells(2,1)
     cells(rows.count,6).end(xlup).offset(1)=cl
  Next
End Sub

 

[HSV]

De vraag is 'formule probleem', worden er formules geplaatst, wordt er niets mee gedaan.
Beetje vreemd toch?

 

[snb]

Voor sommigen is er geen verschil tussen formule en code

 

[HSV]

Inderdaad, ook de berichten worden vaak niet goed bekeken of de moeite genomen ze te lezen.
Als er een bestand bij is geplaatst is men tevreden.

 

[Cobbe]

Frustraties??

 

[snb]

@HSV

Zorg ervoor dat in je 'oplossing' minstens 1 typefout staat: blijft men wakker.

 

[HSV]

Nee hoor @Cobbe.
Ik wil er niet mijn probleem van maken.

 

[Cobbe]

Fijn te lezen.
Maar deze : SpecialCells(2,1) is toch goed gevonden of?

 

[HSV]

Ha, ha, die ga ik maar eens invoeren @snb. :thumb:

 

[ExcelAmateur]

@HSV & @snb,

Ben even weggeweest en zie net de discussie.

De code van Cobbe laat mij precies zien wat ik wil. (de tekst die in de cel staat)
De code van snb en de formule van HSV tonen een getal in plaats van de tekst.

Dus heb ik de code van Cobbe gebruikt.

Allen een prettige kerst en een voorspoedig 2016

 

[HSV]

Ik zie nergens getallen.