Hijskabels vervangen !

[danny147]

Beste,

Graag had ik de 5 laatste datums op Blad1 willen zien staan dmv formule.
Gegevens staan op Blad2.
Het kan soms zijn dat er maar 1 of zelfs 7 datums beschikbaar zijn waarvan ik telkens de laatste 5 wil deze kan soms aangevuld worden.

Op Blad3 staat een Userform in die ik graag werkende zou willen zien.
Wanneer ik de lijst opvraag geeft hij maar 1 item weer.
Heb het bereik dat ik wil zien "loopkranen" genoemd
Ik denk dat hiervoor "Private Sub UserForm_Initialize()" moet gebruiken.
Bij het wegschrijven moet hij de datum schrijven onderaan de datums op Blad2 bij de juiste loopkraan.
De kalender doet het ook niet

Groetjes Danny. :thumb:

 

[oeldere]

de laatste 5 data is op te halen met deze formule (zie bijlage) (de gele cellen)

=GROOTSTE(Blad2!$A$5:$A$11;1)

heb je hier vragen over, laat het gewoon even weten.

 

[Warme bakkertje]

Zie bijlage.

 

[danny147]

Beste Warme bakkertje,

Sorry dat ik zo laat reageer, maar het ziet er goed uit.
Graag zou ik waar vervangingen staat in cel B2 de naam van het werkblad willen zien staan.
In dit geval is dat in cel B2 "Blad2"

Groetjes Danny. :thumb:

 

[danny147]

Beste oeldere,

Kan ik ook de 5 hoogste waardes zoeken via gegeven in cel A4.

Met HORIZ.ZOEKEN ?

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Als UDF met in B2 =SheetName(B2;Onwaar)

Function SheetName(rCell As Range, Optional UseAsRef As Boolean) As String
    Application.Volatile
    SheetName = IIf(UseAsRef = True, "'" & rCell.Parent.Name & "'!", rCell.Parent.Name)
End Function

Als gedefinieerde naam ( Bladnaam) met formule

=SUBSTITUEREN(DOCUMENT.LEZEN(76);"["&DOCUMENT.LEZEN(68)&"]";"")

met in B2 =Bladnaam

Als formule in B2

=DEEL(CEL("filename";B2);VIND.ALLES("]";CEL("filename";B2))+1;255)

 

[cow18]

@Warm Bakkertje,
dat =SUBSTITUEREN(DOCUMENT.LEZEN(76);"["&DOCUMENT.LEZEN(68)&"]";""), dat zijn van die oude macros, heb je daar meer documentatie of gegevens over ?

 

[Warme bakkertje]

@ Bart
Er wordt veel over gesproken, maar weinig over geschreven. Het enige waarop ik indertijd gestuit ben is deze http://xcell05.free.fr/morefunc/english/index.htm#Functions

Dan ook nog 2 downloadable helpfiles, eentje voor XL97 en eentje voor XL2000. Hopelijk heb je wat aan de link.

 

[cow18]

ik heb die link opgeslagen, misschien vind ik er later nog iets nuttigs in.
thanks

 

[oeldere]

grootste / indirect / vergelijken

Beste Danny,

met deze formule lukt je dat (zie bijlage).

=ALS(ISFOUT(GROOTSTE(INDIRECT("blad2"&"!"&ADRES(5;VERGELIJKEN(Blad1!$A4;Loopkranen);;)):INDIRECT("blad2"&"!"&ADRES(20;VERGELIJKEN(Blad1!$A4;Loopkranen);;));KOLOM()-8));"";(GROOTSTE(INDIRECT("blad2"&"!"&ADRES(5;VERGELIJKEN(Blad1!$A4;Loopkranen);;)):INDIRECT("blad2"&"!"&ADRES(20;VERGELIJKEN(Blad1!$A4;Loopkranen);;));KOLOM()-8)))

heb je hier vragen over, laat het gewoon even weten.

 

[HSV]

Hallo Oeldere,

Je kan je verwijzing naar het blad in de functie van =ADRES plaatsen.

Hierbij een stukje uit jouw formule maar dan met de verwijzing die ik bedoel.

INDIRECT(ADRES(20;VERGELIJKEN(Blad1!$A4;Loopkranen);;;"Blad2"))

 

[oeldere]

Bedankt harry voor de tip.

@harry
ik ben nu nog meer over tijd met mijn eigen vraag en dat is toch vreemd voor een man

 

[HSV]

Bedankt harry voor de tip.

@harry
ik ben nu nog meer over tijd

Da’s niet best.
Maar misschien kun je er iets aan verdienen, want je bent vast de eerste. :d

 

[danny147]

Beste oeldere en HSV,

Ziet er goed uit, enkel zou ik het van klein naar groot willen zoals in mijn voorbeeld.

@ Warme bakkertje en Cow18.

Sorry, ik had mijn vraag verkeerd gesteld

Het was op de andere topic dat ik die vraag moest stellen.
Bij tabblad "HO" kan je de lijst weergeven en dan wegschrijven naar tablad "wegschrijven"
Bovenaan dat tabblad (wegschrijven) in cel B2 wil ik HOOGOVEN zien staan hetgeen in cel B2 staat.

Wil ik hetzelfde doen voor tabblad "STL" wil ik daar "STAALFABRIEK" zien staan in cel B2.

Heb bestandje bijgevoegd.

Zal de 2 bestandjes bij elkaar mengen en updaten met gegevens en dan hier plaatsen, kan nog wel een week duren.

Zo kunnen we verder werken op 1 topic.

Het bestaande bestand is al meer dan 1 Mb groot, bijna te groog om nog te zippen tot aan 100Kb.

Ik zal dan een link plaatsen naar mijn website waar je het dan kan downloaden.

Groetjes Danny. :thumb:

 

[HSV]

Hallo Danny,

In B4 en doorvoeren naar rechts.

=INDIRECT("Blad2!A"&SOMPRODUCT(MAX((RIJ(Blad2!$A$5:$A$1000))*(Blad2!$A$5:$A$1000<>"")))+KOLOM()-6)

 

[danny147]

Beste HSV,

En welke formule voor LK 21 HY 1 ?

Groetjes Danny. :thumb:

 

[oeldere]

onder post 10 de formule, zoals je had gevraagd (van nieuw naar oude datum).
(zie formule in I4).

onderstaand de formule, rekening houdend met het type kraan, (van oud naar nieuw).
(zie formule in b4) (zie bijlage)

=ALS(ISFOUT(GROOTSTE(INDIRECT("blad2"&"!"&ADRES(5;VERGELIJKEN(Blad1!$A4;Loopkranen);;)):INDIRECT("blad2"&"!"&ADRES(20;VERGELIJKEN(Blad1!$A4;Loopkranen);;));7-KOLOM()));"";(GROOTSTE(INDIRECT("blad2"&"!"&ADRES(5;VERGELIJKEN(Blad1!$A4;Loopkranen);;)):INDIRECT("blad2"&"!"&ADRES(20;VERGELIJKEN(Blad1!$A4;Loopkranen);;));7-KOLOM())))

heb je hier vragen over, laat het gewoon even weten.

 

[HSV]

Niet getest dus , formule kwam tekort zoals je al door had.
Misschien is dit beter.

 

[oeldere]

@harry,

Danny, vraagt voor de gegevens van oud naar nieuw.

1-1-2009	23-9-2009	17-5-2010	30-12-2010	19-7-2010

bovenstaande gegevens komen uit jouw model (rij 4)

niet alle data staan in de, door Danny, gewenste volgorde.

 

[HSV]

@harry,

Danny, vraagt voor de gegevens van oud naar nieuw.

1-1-2009	23-9-2009	17-5-2010	30-12-2010	19-7-2010

bovenstaande gegevens komen uit jouw model (rij 4)

niet alle data staan in de, door Danny, gewenste volgorde.

Tja, wat moet ik hier op antwoorden Oeldere.

Beste oeldere en HSV,

Ziet er goed uit, enkel zou ik het van klein naar groot willen zoals in mijn voorbeeld.

Groetjes Danny. :thumb:

En dan mag ik aannemen dat de laatste datum in rij een typefout is.
Je kan geen keuringen uitvoeren op een kleiner datum als de vorige datum (groter) al is geweest.
Maar ik ben ook maar een mens.