Hijskabels vervangen !

danny147 · 7 feb 2011

Beste oeldere en HSV,

Bedankt voor jullie reacties.

@ oeldere, je formule wil ik in mijn bestandje plaatsen mits wat aanpassingen maar het gaat fout. (zie cel rood gekleurd in het bestandje)

@ HSV, je formule ziet er goed uit, enkel 1 probleem je kan het niet slepen naar de volgende regel zonder de formule te moeten aanpassen, hetgeen bij oeldere wel gaat.

Het gaat hier wel om +/- 220 items

Groetjes Danny. :thumb:

danny147 · 7 feb 2011

Beste HSV,

HSV zei:
Tja, wat moet ik hier op antwoorden Oeldere.

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.

Je hebt gelijk HSV, het is maar een voorbeeldje en het klopt dat de laatste ingegeven datum steeds de grootste moet zijn

Groetjes Danny. :thumb:

oeldere · 7 feb 2011

Beste Harry,

Niet geschreven als kritiek, maar waarschijnlijk weet je dit wel.

Laten we even kijken, wat Danny van mijn formule vind.

Hij is wel lang, maar flexibel.

Los van het bereik (nu aangegeven als 20) kan deze formule gewoon worden gekopieerd zonder aanpassingen.

HSV · 7 feb 2011

Formule van Oeldere aangepast.
Denk om de nul in =VERGELIJKEN functie, en nog wat andere aanpassingen.
Als je criteriumtype_getal weglaat, wordt uitgegaan van de waarde 1.

Code:

=ALS(ISFOUT(GROOTSTE(INDIRECT(ADRES(7;VERGELIJKEN($B8;loopkranen;0)+1;;;"Vervangingen van kabels")&":"&ADRES(20;VERGELIJKEN($B8;loopkranen;0)+1;;));10-KOLOM()));"";GROOTSTE(INDIRECT(ADRES(7;VERGELIJKEN($B8;loopkranen;0)+1;;;"Vervangingen van kabels")&":"&ADRES(20;VERGELIJKEN($B8;loopkranen;0)+1;;));10-KOLOM()))

HSV · 7 feb 2011

oeldere zei:
Beste Harry,

Niet geschreven als kritiek, maar waarschijnlijk weet je dit wel.

Weet ik wel. :thumb:

oeldere · 7 feb 2011

Beste Danny,

het gaat fout omdat er spaties in de tabblad omschrijving staan.

even kijken hoe we dit goed kunnen oplossen.

ik heb hier op het forum wel oplossingen voor voorbij zien komen.

oeldere · 7 feb 2011

Ik zie dat Harry, de oplossing al heeft gegeven.

Code:

=ALS(ISFOUT(GROOTSTE(INDIRECT(ADRES(7;VERGELIJKEN($B8;loopkranen;0)+1;;;"Vervangingen van kabels")&":"&ADRES(20;VERGELIJKEN($B8;loopkranen;0)+1;;[COLOR="darkorange"];"Vervangingen van kabels"[/COLOR]));10-KOLOM()));"";GROOTSTE(INDIRECT(ADRES(7;VERGELIJKEN($B8;loopkranen;0)+1;;;"Vervangingen van kabels")&":"&ADRES(20;VERGELIJKEN($B8;loopkranen;0)+1;;));10-KOLOM()))

@Harry,

door het tabblad in de adresformule te zetten, ben je ook verlost van het "!"
hier had ik mee zitten worstelen en kwam daar niet uit, dus heb ik mijn "oude" formule aangepast. Zeer mooie oplossing :thumb:

A) Is het niet nodig om de oranje tekst in de formule in te vullen?

B) $B8;loopkranen;0)+1
Waarom is de oranje 1 toegevoegd?

danny147 · 7 feb 2011

Beste oeldere en HSV,

Bij 3 items doet hij het niet nl:

LK 27 HY1
LK 29 HY1
LK 1422 HY2

Wat is hier de oorzaak dat hij #WAARDE! weergeeft ?

Groetjes Danny. :thumb:

HSV · 7 feb 2011

Hallo Oeldere,

A: Is niet nodig.
Zet de cursor in de formulebalk op de =Indirect functie en druk ƒx, en haal dan de blad verwijzing eens weg bij =adres functie
Nu zie je daar staan bv. B7:B20, dus eenmaal verwijzen naar het blad wordt:
=vervangingen van kabels!B7:B20.

B:
Je gedefiniëerde naam begint in de tweede kolom.

Code:

='Vervangingen van kabels'!$B$6:$DA$6

Had je daar

Code:

='Vervangingen van kabels'!$[COLOR="red"]A[/COLOR]$6:$DA$6

van gemaakt was de +1 overbodig.

Ik hoop dat het een beetje duidelijker is geworden.

HSV · 7 feb 2011

danny147 zei:
Beste oeldere en HSV,

Bij 3 items doet hij het niet nl:

LK 27 HY1
LK 29 HY1
LK 1422 HY2

Wat is hier de oorzaak dat hij #WAARDE! weergeeft ?

Groetjes Danny. :thumb:

Er staat een spatie achter in tabblad 'alle loopkranen' bij LK 27 HY1

oeldere · 7 feb 2011

die hoop is helemaal terecht.

perfecte toelichting, voor beide vragen, dank je wel. :thumb::thumb::thumb:

oeldere · 7 feb 2011

Danny,

Code:

Er staat een spatie achter in tabblad 'alle loopkranen' bij LK 27 HY1

dit kun je oplossen met een datavalidatie:

excel 2007 => gegevens => gegevensvalidatie => (toestaan) lijst => (bron) loopkranen

danny147 · 7 feb 2011

Beste oeldere en HSV,

Probleem opgelost.

Bedankt voor jullie mooie oplossing.

Hier kan ik mee verder de rest hoor je nog wel van mij.

Groetjes Danny. :thumb:

danny147 · 11 feb 2011

Beste,

Krijg volgende foutmelding (zie bijlage) bij het gebruiken van volgende code.

Code:

Sub tst()
'With Sheets("HO")
With ActiveSheet
    For Each cl In Union(.[Q9:W9], .[Q13:W13], .[Q17:W17], .[Q21:W21], .[Q25:W25], .[Q29:W29], .[Q33:W33], .[Q37:W37], .[Q41:W41], .[Q45:W45], .[Q49:W49], .[Q53:W53], .[Q57:W57], .[Q61:W61], .[Q65:W65], .[Q69:W69], .[Q73:W73], .[Q77:W77], .[Q81:W81], .[Q85:W85], .[Q89:W89], .[Q93:W93], .[Q97:W97], .[Q101:W101], .[Q105:W105], .[Q109:W109], .[Q113:W113], .[Q117:W117], .[Q121:W121], .[Q125:W125], .[Q129:W129], .[Q133:W133], .[Q137:W137], .[Q141:W141], .[Q145:W145], .[Q149:W149], .[Q153:W153], .[Q157:W157], .[Q161:W161], .[Q165:W165], .[Q169:W169], .[Q173:W173], .[Q177:W177], .[Q181:W181], .[Q185:W185], .[Q189:W189], .[Q193:W193], .[Q197:W197], .[Q203:W203], .[Q207:W207], .[Q211:W211], .[Q215:W215], .[Q217:W217], .[Q221:W221], .[Q225:W225], .[Q229:W229], .[Q233:W233], .[Q237:W237], .[Q241:W241], .[Q245:W245], .[Q249:W249], .[Q253:W253], .[Q257:W257], .[Q261:W261], .[Q265:W265], .[Q269:W269], .[Q273:W273], .[Q277:W277], .[Q281:W281], .[Q285:W285], .[Q289:W289], .[Q293:W293])
        If Not IsError(cl) Then
            If Not cl.Value = "" Then
                sq = sq & cl.Value & "|"
            End If
        End If
    Next
.[E500:E800].ClearContents
.[E500].Resize(UBound(Split(sq, "|"))) = Application.Transpose(Split(sq, "|"))
End With
End Sub

Mag men maar een aantal ranges nemen bij Union ?

Groetjes Danny. :thumb:

Warme bakkertje · 12 feb 2011

Max 30. Post anders eens je bestand met alle laatste ontwikkelingen (of een link als het al te groot is

).

danny147 · 12 feb 2011

Beste Warme bakkertje

Zie onderstaande link voor mijn bestandje.

Hijskabels.xls

De union zou nog uitgebreider moeten worden naar Q837:W837
Kan je er ook voor zorgen dat het knopje met lijst weergeven terug werkt.

Groetjes Danny ! :thumb:

HSV · 12 feb 2011

Probeer het zo een Danny.

Code:

Sub tst()
'With Sheets("HO")
With ActiveSheet
    For i = 837 To 9 Step -4
    For Each cl In Range(Cells(i, 17), Cells(i, 23))
        If Not IsError(cl) Then
            If Not cl.Value = "" Then
                sq = sq & cl.Value & "|"
            End If
        End If
    Next cl
    Next i
.[E500:E800].ClearContents
.[E500].Resize(UBound(Split(sq, "|"))) = Application.Transpose(Split(sq, "|"))
End With
End Sub

danny147 · 12 feb 2011

Beste HSV

Op het eerste gezicht zag het er goed uit.
Toen ik de gegevens wou wegschrijven, zag ik dat deze niet overeen komen met de gegevens uit het bestandje.

Hier en daar staan nog geen datums ingevuld, maar het zou dan wel juist moeten zijn tot aan "LK 203 HY O/SL"
(dit op tabblad "alle loopkranen" )

VB. Tabbkad "HO"
Hier wordt "LK 21 HY2" weergegeven als "+ 50% bereikt" terwijl het "0%" moet zijn
en "LK 29 HY1" staat niet op de lijst.
Bij "LK 27 HY1" staat "0%" terwijl het "+ 50% bereikt" moet zijn.

Heb de code aangepast, bij deze:

Code:

Sub tst()
'With Sheets("HO")
With ActiveSheet
    For i = 837 To 9 Step -4
    For Each cl In Range(Cells(i, 17), Cells(i, 23))
        If Not IsError(cl) Then
            If Not cl.Value = "" Then
                sq = sq & cl.Value & "|"
            End If
        End If
    Next cl
    Next i
[COLOR="blue"][B].[E1000:E1250].[/B][/COLOR]ClearContents
[B][COLOR="blue"].[E1000].[/COLOR][/B]Resize(UBound(Split(sq, "|"))) = Application.Transpose(Split(sq, "|"))
End With
End Sub

Op tabblad "Inhoudstabel" werkt het knopje "ingeven van gegevens" ook niet

Groetjes Danny. :thumb:

Warme bakkertje · 12 feb 2011

Danny ik heb het aangepaste bestand naar je privé-mail gestuurd. De lijst op Alle loopkranen werkt nu.
Wat betreft je 2de vraag, op tabblad gegevens staat er niets, wat moet daar komen ?

danny147 · 12 feb 2011

Beste Warme bakkertje

Warme bakkertje zei:
Danny ik heb het aangepaste bestand naar je privé-mail gestuurd. De lijst op Alle loopkranen werkt nu.?

Bedankt, dit werkt nu prima :thumb:

Warme bakkertje zei:
Wat betreft je 2de vraag, op tabblad gegevens staat er niets, wat moet daar komen ?

Het moet deze zijn die in post 38 vermeld stond, die andere aanwijzing was verkeerd.

nl. deze : Op tabblad "Inhoudstabel" werkt het knopje "ingeven van gegevens" ook niet

Groetjes Danny. :thumb:

Hijskabels vervangen !

Terugkerende gebruiker

Bijlagen

Terugkerende gebruiker

Terugkerende gebruiker

Inventaris

Bijlagen

Inventaris

Terugkerende gebruiker

Terugkerende gebruiker

Terugkerende gebruiker

Inventaris

Inventaris

Terugkerende gebruiker

Terugkerende gebruiker

Terugkerende gebruiker

Terugkerende gebruiker

Bijlagen

Meubilair

Terugkerende gebruiker

Inventaris

Terugkerende gebruiker

Meubilair

Terugkerende gebruiker

Wij waarderen jouw privacy