Aangepaste formule die werkt na 2012

[danny147]

Beste,

Wie kan mij helpen om een formule te zoeken die werkt na 2012.

In mijn bestandje moet de controle van een loopkraan uitgevoerd worden na een bepaalde tijd die telkens weerkeert in weken.
In kolom H staat de startweek van de controle in en in kolom G de startweek van de onderhoud in.
De controle gebeurd altijd 6 weken voor de onderhoud.

Met een formule worden dan de loopkraannummers ingevuld waar de controle plaats vind.

Als ik in cel A5 het jaartal wil veranderen dan wil ik ook dat de loopkraannummers juist ingevuld staan op hun plaats.

Vb. in 2012 voor LK100 start in week 5 de controle en komt terug na 12 weken, in 2013 moet dit
start week 1 zijn. (5, 17, 29, 41, 53 --> 53 wordt 1)

Kan iemand dit voor elkaar krijgen desnoods met extra kolom ?

Groetjes Danny. :thumb:

 

[HSV]

Misschien moet je het beter toelichten Danny.
Ik begrijp helaas niet wat je bedoelt, en naar het aantal keer bekeken van je bestand te zien ben ik gelukkig niet de enigste. :d

Iemand als @WHER en vele anderen moeten daar volgens mij wel een oplossing voor kunnen vinden.

 

[danny147]

Beste HSV,

Toch nog eentje die reageert

In kolom A staan de loopkraannummers.
In kolom F staat de frequentie, wanneer elke loopkraan terug controle moet hebben.
In kolom G staat de startweek van de Onderhoud.
In kolom H staat de startweek van de controle.

In bereik I11:BH36 staan de controles al ingevuld voor 2012 dmv formule.
Het rode gekleurde gebied in al uitgevoerd.
Oranje is deze week en groen is volgende week.

Neem nu loopkraannummer 100, deze heeft een frequentie van 12 en start in week 5 (kolom H --> cel M11)
De controles worden uitgevoerd in week 5, daarna in week 17 (5 + frequentie van 12), daarna week 29, 41 en 53.

Week 53 is namelijk de 1e week van 2013.
Als ik nu het jaartal verander in 2013 (cel A5 met lijst), dan wil ik dat in week 1 --> 100 staat, ook in week 13, 25, 37, 49, 61

Week 61 is dan week 9 in 2014 enz...

Hopelijk is dit een duwtje in de goede richting ?

Bestandje al wat bijgewerkt.

Groetjes Danny.

 

[HSV]

Hallo Danny,

Met andere woorden:
Je veranderd het jaartal in A5 naar 2013.
Kraan 100 heeft als laatste week 41 in 2012.
Je moet daar dan 12 (frequentie) weken bij tellen om in week 1 te komen.

Je formule is afhankelijk van de startweek H11.
Dat wordt denk ik programmeerwerk.
Excel moet weten wat je laatst gevulde cel is, en daar 12 bijtellen.

Heb ik het zo een beetje bij het rechte eind?

 

[danny147]

Beste HSV,

Je hebt het bij het rechte eind :thumb:

Groetjes Danny. :thumb:

 

[HSV]

Test het eens Danny.

 

[danny147]

Beste HSV,

Ziet er goed uit :thumb:

Je kan niet van 2012 naar 2015 gaan en terug naar 2013 !
Als je jaartal per jaartal omhoog gaat dan is dit perfect, maar van 2015 naar 2012 gaan per jaartal dan gaat het fout.

Op zich geen probleem voor mij, want ik alleen beheer het bestandje.

Mocht je hier iets op vinden dan OK anders is het voor mij goed.

Ben nu nog in verlof, pas volgende week kan ik het op mijn werk uitproberen tot zolang zal ik deze topic open laten staan.

Alvast bedankt voor de moeite Harry

Groetjes Danny :thumb:

 

[HSV]

Daarom heb ik de Commandbutton geplaatst, die je alles terugzet in de oude positie, en van daaruit ga je weer naar 2013.
Ik vond dit al lastig genoeg. :d

 

[danny147]

Beste HSV,

Ik vond dit al lastig genoeg. :d

Geen probleem, goed gevonden hoor :thumb:

Groetjes Danny :thumb:

 

[HSV]

Danny,

Test deze versie eens of het goed gaat met de validatielijst terug (per jaar vooruit, per jaar terug).
In je voorbeeldbestandje zat in de formule nog een fout op regel 26 (nr.134), in het vakje onder 32 & 48 zou ook 134 moeten staan (verholpen in deze code).

 

[danny147]

Beste HSV,

Dat ziet er beter uit :thumb:

Heb het bestandje opgevraagd van het werk en probeer deze eens werkende te krijgen.
Hier gaat het nog over 3 items, LK's HO, LK's Sifa en LK's STL.
In totaal zijn het er ongeveer 10 items.

Bestandje werkt zeer goed, maar er mogen geen andere rijen tussenstaan, maar dan werkt het niet.

Indien je van het weekend tijd mocht hebben om er eens naar te kijken aub.

Groetjes Danny. :thumb:

 

[HSV]

Als ik er tijd voor vind zal ik kijken of ik daar wat van kan maken.
Jammer dat je daar niet direct mee komt.
Dat wordt uithuilen en een nieuwe spagetti code bedenken.

Reken maar nergens op, dan kan het alleen maar meevallen.

 

[HSV]

Danny,

Ik ben er toch maar weer een beetje mee begonnen.

Ik heb het alleen nog maar werkende voor de jaartallen omhoog, en de Commandbutton.
Voor de jaartallen terug heb ik helaas nog geen oplossing, maar ik wilde je even laten weten dat ik er weer mee bezig was.

We zijn er nog niet, want dit voorbeeldje zoals in de bijlage is maar voor drie items, en je schreef al over tien items.
Je zult dan de 'Dim A' en 'For x' moeten uitbreiden.

Voor de jaartallen terug gebruikte ik stiekem blad 2 om de gegevens daar naar toe te schrijven en terug te halen.
Ik zal kijken of ik daar een passende oplossing voor kan vinden.
Tot zover.

 

[danny147]

Beste HSV

Mooi dat je al wilde kijken naar het bestandje.
Weet dat het nog niet op punt staat, maar heb volledig vertrouwen in.
Als ik naar jaar 2013 gaat, dan gaat het goed en bij 2014 wordt bereik I42:BH52 niet ingevuld.

De bedoeling is dat ik tegen oktober het bestandje wil gebruiken.
Je hebt nog tijd dus.

Groetjes Danny. :thumb:

 

[HSV]

Danny,

Mooi dat je het goed controleert voor ik verder ga en het klopt niet.
Ik heb onderstaand stuk code veranderd.

Ik verneem het van je.

Dim A(11 To 19, 27 To 34, 42 To 68) As Double
For x = 1 To 3
For i = LBound(A, x) To UBound(A, x)
 On Error Resume Next
   laatstecel = Cells(9, Cells(i, Columns.Count).End(xlToLeft).Column)
     Range(Cells(i, 9), Cells(i, 60)).ClearContents
        waarde = 0
        maxgetal = 52
        mingetal = 8
 If laatstecel + Cells(i, 6) <> maxgetal Then
    restgetal = maxgetal - laatstecel
       waarde = Cells(i, 6) + mingetal - restgetal
 For j = waarde To 60 Step Cells(i, 6)
    Cells(i, j) = Cells(i, 1)
      Next j
    End If
  Next i
  Next x
 End If
  Range("BI11:WVI" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
 Application.EnableEvents = True
 Exit Sub
einde:
 MsgBox "Jaar voor jaar up cq. down ", vbInformation, "Let op"
 Range("A1,A5") = welkjaar
 'End If
Application.EnableEvents = True
End Sub

 

[danny147]

Beste HSV

Heb het voor het eerste item bekeken en ik krijg het volgende:

startweek - moet het worden - is het nu

6 - 18 - 2
34 - 48 - 10
16 - 37 - 6
16 - 49 - 30
24 - 50 - 24
10 - 22 - 6
17 - 37 - 5
14 - 30 - 10
12 - 44 - 24

Hopelijk ben je er iets mee ?

Groetjes Danny. :thumb:

 

[HSV]

Hallo Danny,

Ik heb het gedaan zoals volgens mij was afgesproken.
Laatste week in eerste item = 42
52-42=10
startweek volgende = freq(12) -10 = 2
met a.w. -10 + freq(12) = 2
citaat:

Met andere woorden:
Je veranderd het jaartal in A5 naar 2013.
Kraan 100 heeft als laatste week 41 in 2012.
Je moet daar dan 12 (frequentie) weken bij tellen om in week 1 te komen.

En daar stemde je mee in.

 

[danny147]

Beste HSV,

Weet niet waar ik met mijn gedachten was gisterenavond

Sorry, je hebt volkomen gelijk, het bestandje is juist :thumb:

Doe maar gerust verder.

Groetjes Danny. :thumb:

 

[HSV]

Danny,

Voor ik iets probeer.

Als je bv. naar 2013 gaat, verander je dan de frequentie ook nog, of blijft dit altijd standaard zoals ingesteld.

 

[danny147]

Beste Harry

Dit zou kunnen gebeuren.
Het zou natuurlijk handig zijn mocht dit variabel zijn.
Het verschil tussen onderhoud en controle is 6 weken --> zie cel G5, maar dit verschil wordt berekend in kolom H, hopelijk is dit geen hinderpaal ?

Misschien kan je per kalenderjaar steeds de gegevens wegschrijven naar Blad2, zoals je dat nu hebt gedaan.
Hier bedoel ik mee enkel de gegevens wegschrijven van huidig kalenderjaar en niet het jaartal dat in cel A1 of A5 staat.

Hopelijk kan je verder met mijn uitleg, anders hoor ik het wel.

Groetjes Danny. :thumb: