Help!

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

Hulp bij posten

Recente topics

Auteur Topic: for each vba probleem  (gelezen 2577 keer)

0 leden en 1 gast bekijken dit topic.

Offline glda19

  • Volledig lid
  • **
  • Berichten: 127
for each vba probleem
« Gepost op: 25 februari 2017, 15:20:25 »
hoe kan ik de code die staat na verder:
in een aparte functie gieten. Daar die 2 x word aangesproken.
En een goto toch verhouder is niet ?

For Each elkeCel In Range("I4:I44,R4:R44")
'If cl = nl Then
'xw = wf.CountIf(Range("I7:I47"), cl) + wf.CountIf(Range("R7:R44"), cl)
'If xw > Yw Then Yw = Yw + 1: GoTo verder
'If nl > 51 Then nl = 0

    If elkeCel = RodeLijnTeller Then
        TweeWeken = wf.CountIf(Range("I4:I44"), elkeCel) + wf.CountIf(Range("R4:R44"), elkeCel)
            If TweeWeken > EenWeek Then
                EenWeek = EenWeek + 1
                'GoTo verder
                Zwartelijn (elkeCel)
            End If
        'If RodeLijnTeller > 51 Then RodeLijnTeller = 0
   
        'EenWeek terug zetten op 1
        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 '
    Else
verder:
        elkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
       elkeCel.Offset(, -7).Resize(1, 8).Borders(xlEdgeBottom).Weight = xlThin
       elkeCel.Offset(1, -7).Borders(xlEdgeLeft).ColorIndex = xlAutomatic
       elkeCel.Offset(1, -7).Borders(xlEdgeLeft).Weight = xlThin
       elkeCel.Borders(xlEdgeRight).ColorIndex = xlAutomatic
       elkeCel.Borders(xlEdgeRight).Weight = xlThin
       End If
Next
Application.ScreenUpdating = False

End Sub

End Function

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: for each vba probleem
« Reactie #1 Gepost op: 25 februari 2017, 20:34:19 »
beste glda19,

het moet me toch even van mijn hart... :-[
Je klaagt in een vorig topic over negatieve kritiek.... Ik denk dat dit zeer terecht is  :o

Neem nu dit "Nieuwe" topic (dat gewoon een vervolg is op je vorig topic) en waar je de code van iemand anders in plakt, met een vraag:
hoe kan ik de code die staat na verder: in een aparte functie gieten. Daar die 2 x word aangesproken.
In de code die je meegeeft wordt "verder" zelfs niet gebruikt.
!!! Als je de code zou lezen, dan zou je zien dat er een REM (') staat voor "verder" !!!

En een goto toch verhouder is niet ?
Neen, een GoTo is niet verouderd. Zolang deze code werkt in een macro is deze code nog goed bruikbaar en nuttig om een deel code te herhalen of over te slaan, te ontsnappen uit een conditie, routine.


Vraagje:
Lees je wel wat andere mensen schrijven om jou te helpen? Velen twijfelen er erg sterk aan, ik ook  :(.
Ik ben de eerste om iemand te helpen, maar dan moet jij zelf wel IETS constructief toevoegen aan de probleemoplossing.

Zo ook je schrijfstijl...

- Als je een topic start, getuigd het van beleefdheid om goedendag te zeggen. Een gewoon "Hallo, " is voor ons meer dan voldoende.
- Daarna ga je normaal over naar de vraagstelling, die je goed moet onderbouwen met de nodige voorbeeldbestanden.
- Controleer je berichten vooraleer ze te verzenden.
Net als in Word of andere programma's wordt ook op deze site grammatica gecontroleerd en door een rode onderlijn aangegeven bij schrijf- of -grammaticafouten. Verbeter deze fouten voordat je verzend.
- Plaats code steeds in een code-blok, beschikbaar in de knoppenbalk boven je bericht .
Dat maakt het voor helpers eenvoudiger om te lezen. De tekenreeks "8 + haakje": 8) wordt dan weergegeven als een 8 gevolgd door een haakje, in plaats van de smiley 8)
- Maak de code die je plaatst vrij van oude, door een Remark (') geblokkeerde code.

- En waarom wil je toch steeds wijzigingen aanbrengen in de door de helpers aangegeven code...???
"In den beginne..." vond je teveel "Voorwaardelijke opmaak" storend in het werkblad (van iemand anders), daarna wilde je VBA, maar je kan het niet (goed) lezen of schrijven.
- Nu ga je ook al een paar keer een simpele "GoTo" als verouderd afkeuren...
Als je een GoTo kunt gebruiken of nodig hebt, gebruik die dan. Je gebruikt toch ook " If " en andere "oude" code !!
Als het werkt is het toch goed, niet? Proberen te vereenvoudigen kan je later nog.

- Als je nog een bericht wil verzenden, klik dan eerst eens op de knop ernaast, namelijk de knop "Bekijken".
Dan kan je zelf je bericht zien zoals wij dat zien. Ik hoop dat je ogen dan open gaan, en open blijven.

- Als er iemand antwoord, antwoord dan terug.
Niet antwoorden op aangegeven hulp, en een ander topic starten is zeer onbeleefd.

-En ten slotte, blijf in hetzelfde topic, zolang het over hetzelfde werk gaat ( je kalender in dit geval).
Dit zijn enkele zaken (maar niet alles wat op mijn hart ligt) die ik toch even onder je aandacht wou brengen.

Dank om dit commentaar geduldig te lezen.

:) 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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: for each vba probleem
« Reactie #2 Gepost op: 26 februari 2017, 09:51:18 »
Dat is gesproken, zie  :)

Nochtans, beste SoftAid, twijfel ik eraan of deze wel klopt :
daarna wilde je VBA, maar je kan het niet (goed) lezen of schrijven
want uit een reactie van TS aan niemand minder dan plongske :
Misschien is het tijd om vba te leren.
Zo vree moeilijk is dat nu ook niet.
:D :D :D

Maar, omdat het misschien op een zondag ook wat luchtiger mag wezen,
en vooral met een hele dikke  ;) :
Verbeter deze fouten voordat je verzend.
moet in het Nederlands eigenlijk zijn :
Verbeter deze fouten voordat je verzendt.  ;) ;) ;) ;) ;) ;) ;)

Groetjes,
pitufo
P.S.: 't is omdat het net in deze zin stond dat het sterker werd dan mezelf, sorry  ;D
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: for each vba probleem
« Reactie #3 Gepost op: 26 februari 2017, 10:18:32 »
'tis toch waar, hé...  :'( :'( :'(

't is omdat het net in deze zin stond dat het sterker werd dan mezelf, sorry  ;D
mogelijk is er ook een schrijffout in jou tekst geslopen. Moet het niet zijn:

'dtis omdadt het nedt in dteze zin stondt dtat het sterker werdt dtan mezelf, sorry ;Dt   0:-) ;D ;D ;D

Groeten,

:) 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 plongske

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: for each vba probleem
« Reactie #4 Gepost op: 26 februari 2017, 14:25:27 »
Is het hier niet de bedoeling om op het forum iedereen te helpen?
En ja dat TS er beter aan zou doen om telkens antwoorden en op de topic te blijven .
Maar als het over VBA kan ik niet verder helpen(te weinig tijd om mij erin te verdiepen)
Groeten plongske

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: for each vba probleem
« Reactie #5 Gepost op: 26 februari 2017, 19:24:00 »
Hallo plongske,

Is het hier niet de bedoeling om op het forum iedereen te helpen?
Dat doen we ook, dat proberen we ook.

Echt!

:) 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: for each vba probleem
« Reactie #6 Gepost op: 26 februari 2017, 19:30:11 »
verwijten geven kunnen ze hier genoeg. En vreesde al dat het weer op het zelfde liedje ging uit draaien.
Daarom op een ander forum het gepost en daar is het zonder verwijten het probleem opgelost.

 

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: for each vba probleem
« Reactie #7 Gepost op: 26 februari 2017, 19:45:02 »
Hallo glda,

op die andere forums haalde je hiervoor ook je antwoorden, en je hebt die antwoorden dan hier gepost als vraag, zogezegd je eigen vraag.

Niemand hier heeft iets tegen jou persoonlijk, wel de manier hoe je met de helpers (hier en op andere fora) omgaat.

Je hebt op ons forum een heel pak topics gestart, waarvan minstens 5 topics nog wachten op een antwoord of reactie van jou.
Geen enkele wordt beantwoord. Je begint, alsof het de normaalste zaak van de wereld is een nieuw topic over schijfletter-toewijzing !!

Ben je dan verwonderd dat je negatieve reacties krijgt? Blijkbaar niet, want je zag de bui reeds aankomen, schrijf je.

Maar toch neem je geen actie, maar je post je vraag maar op een ander forum.
Wel, ik kan je verzekeren dat ze je op dat ander forum ook "moe" gaan worden.

Ga gerust verder op dat andere forum. Ik hoop dat je problemen opgelost geraken.

Ik persoonlijk hou het voor gezien.

Groeten,

:) 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