Help!

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

Hulp bij posten

Recente topics

Auteur Topic: VBA en voorwaardelijke opmaak  (gelezen 2124 keer)

0 leden en 1 gast bekijken dit topic.

Offline BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA en voorwaardelijke opmaak
« Reactie #15 Gepost op: 03 april 2021, 18:41:09 »
@SoftAid,

Het was dus over die alinea (met de *edit*) dat ik het had toen ik zei dat ik duidelijk wat verward was.
Het is zo dat er regelmatig nieuwe rijen toegevoegd worden maar nooit volledig lege rijen.
Er word door VBA nieuwe indexeringen uit de drie indexeringstabellen toegevoegd aan de totaal-tabel en die bevatten
dus uiteraard wel gegevens. De eerste 5 cellen en de laatste 2 cellen van elke rij zijn altijd ingevuld...
De overige 11 cellen worden aangevuld naargelang de indexeringen werden uitgevoerd.
En om makkelijker te kunnen zien waar er nog ontbrekende gegevens zijn wou ik dus de complete rijen inkleuren.

Mijn excuses voor de verwarring  :-[

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA en voorwaardelijke opmaak
« Reactie #16 Gepost op: 03 april 2021, 18:49:10 »
Hallo BlackDevil,

Dank voor de verduidelijking.
Als we dus de code van Albert toevoegen aan Sub Geboorten(), en de laatste rij (van dat ogenblik) bepalen aan de hand van rij  A,B,C,D,E, R of Q is alles in orde?

albert, ga je gang  :thumbsup:

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 BlackDevil

  • Ambassadeur
  • *****
  • Berichten: 1.029
  • Geslacht: Vrouw
  • veni vidi vici
Re: VBA en voorwaardelijke opmaak
« Reactie #17 Gepost op: 04 april 2021, 12:26:03 »
Hey SoftAid en Albert,

Heb zelf nog wat verder gepuzzeld en heb uiteindelijk onderstaande code toegevoegd aan mijn drie 'bijwerk'-opdrachtknoppen en alles werkt nu zoals het hoort te werken.

rijen = .Cells(Rows.Count, "E").End(xlUp).Row
   For i = 3 To rijen
   teller = Range("E" & i & ":R" & i).SpecialCells(2).Count
   If teller = 14 Or (teller = 10 And .Cells(i, 10) > 0 And .Cells(i, 11) <> "" And .Cells(i, 15) = "" And .Cells(i, 16) = "") Then
   Range("A" & i & ":R" & i).Interior.ColorIndex = 8
   End If
   Next i

Nogmaals nen dikke merci voor de hulp  :thumbsup:

groetjes,
BlackDevil
1) HP ProDesk (Windows 10 Pro Edu / Intel(R) Core(TM) i5-7500 CPU@ 3.40Ghz 3.41Ghz)
2) Laptop ASUS (Windows 10 Home / Intel(R) Core(TM) i3-3110M CPU@ 2.40GHz 2.40GHz)
Beide (RAM : 8,00 GB / 64-bits besturingssysteem, x64-processor)
Extern (Seagate Backup+ Hub 6TB / Seagate BUP Slim 2TB / Seagate Expansion Desk 5TB / HP ENVY 6030e)
Bullguard Premium Protection / Office Pro Plus 2016 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: VBA en voorwaardelijke opmaak
« Reactie #18 Gepost op: 04 april 2021, 12:34:56 »
Graag gedaan  ;D

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