Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: voorwaardelijke opmaak en keuzelijst.  (gelezen 35019 keer)

0 leden en 2 gasten bekijken dit topic.

Offline plongske

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #90 Gepost op: 29 januari 2017, 13:43:02 »
En ben je al wat verder gekomen met mijn suggesties? Ik kan helaas niet helpen met wat VBA betreft.
Groeten plongske

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #91 Gepost op: 29 januari 2017, 16:03:01 »
tuurlijk het werkt.
maar kun je de laatste versie nog eens posten.
Daar ik ze niet direkt terug vind.
Misschien is het tijd om vba te leren.
Zo vree moeilijk is dat nu ook niet.


Offline plongske

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #92 Gepost op: 30 januari 2017, 08:08:15 »
Het bestandje staat nog steeds in post #43.( pagina 3)

Ik weet het dat het tijd wordt om VBA te leren. Heb reeds een boek klaar liggen maar het ontbreekt mij aan tijd om er mee te beginnen.
Groeten plongske

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #93 Gepost op: 22 februari 2017, 20:59:09 »
bedankt al voor elke hulp
Heb de code een beetje leesbaarder gemaakt. De variabelen een duidelijkere naam gegeven.
JeanPaul er is niks mis mee met uw code totaal niet.
Maar ik hou niet zo van goto verder

Heb nu geprobeerd de regels waar jeanPaul met goto verder naar stringt  in een functie te gieten maar dan gaat het fout. Ik stuur wel degelijk de waarde van elkeCel mee als variable.
Opbject niet gekent
Kom er niet uit wat ik moet aan passen ander verder doen met de werkende code van jeanPaul


Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #94 Gepost op: 11 april 2017, 21:46:43 »
Bedankt al vast voor de prachtige oplssing indertijd

Na een tijdje niet meer naar de code te hebben gekeken ik vandaag nog eens gekeken
Waarom staat er een + tussen de 2 wf.countilf functies en geen or
For Each ElkeCel In Range("I4:I44,R4:R44")


    If ElkeCel = RodeLijnTeller Then
         TweeWeken = wf.CountIf(Range("I4:I44"), ElkeCel) + wf.CountIf(Range("R4:R44"), ElkeCel)
       
            If TweeWeken > EenWeek Then
                EenWeek = EenWeek + 1
                Call ZwartelijnLinksRechts(ElkeCel)
            Else
                'De EenWeek terug op 1 zetten
                 EenWeek = 1
                ' De onderstelijn dik rood kleuren
                ElkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = 3
                ElkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThick
                ' De lijn aan de linkerkant naar onder dik rood zetten
                ElkeCel.Offset(1, -7).Borders(xlEdgeLeft).ColorIndex = 3
                ElkeCel.Offset(1, -7).Borders(xlEdgeLeft).Weight = xlThick
                ' De lijn aan de rechterkant  naar boven dik rood zetten
                ElkeCel.Borders(xlEdgeRight).ColorIndex = 3
                ElkeCel.Borders(xlEdgeRight).Weight = xlThick
                RodeLijnTeller = RodeLijnTeller + 4 '
            End If

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #95 Gepost op: 11 april 2017, 22:34:05 »
Hallo glda19,

je heb die opmerking nog al eens gemaakt: "ik hou zo niet van GoTo...."

Nu, begrijp me niet verkeerd, maar is het soms niet dat je de functie GoTo niet helemaal begrijpt?
Want volgens mij is dat een prachtige functie. En soms kan je er moeilijk omheen om ze niet te gebruiken.

Als de code van JeanPaul zo goed werkt als je zelf zegt, waarom wil je ze dan veranderen, neem misschien wat tijd om ze beter te leren kennen...

Just my 2 cents....  8)

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #96 Gepost op: 12 april 2017, 16:41:04 »
De vraag is gewoon waar een + en geen or daar ofwel het eerste deel of de deel 0 geeft hangt af van in welk bereik je werkt
         TweeWeken = wf.CountIf(Range("I4:I44"), ElkeCel) + wf.CountIf(Range("R4:R44"), ElkeCel)

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: voorwaardelijke opmaak en keuzelijst.
« Reactie #97 Gepost op: 12 april 2017, 17:40:49 »
De vraag is gewoon waar een + en geen or daar ofwel het eerste deel of de deel 0 geeft hangt af van in welk bereik je werkt
         TweeWeken = wf.CountIf(Range("I4:I44"), ElkeCel) + wf.CountIf(Range("R4:R44"), ElkeCel)
Sorry, ik snap je redenering en/of je vraag niet. Waarschijnlijk ben ik te dom...
De variabele TweeWeken wordt hier ingesteld als zijnde twee Ranges, namelijk Range I4:I44 EN R4:R44
Dat lijkt me ook logisch als ik je werkblad bekijk, maar ik heb het hele topic niet gevolgd, en ken ook niet de werking van de macro.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

 


www.combell.com