• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

regels kleuren om de 10 na het filteren

Status
Niet open voor verdere reacties.
S

spokkem

Gebruiker
Lid geworden
28 feb 2008
Berichten
108
Hallo

ik ben bezig met een bestandje om gegevens te kopiëren naar een ander programma SAP, ik mag hier maar in kopiëren per 10 regels.
ik selecteer wat ik nodig heb en filter de lege regels eruit daarna wil ik graag per 10 regels een kleur zetten zodat ik sneller kan kopiëren en niet elke keer de regels hoef te tellen per 10.
ik ben al wat aan het zoeken geweest en heb dit gevonden. dit kleurt wel de regels maar is niet aanpasbaar uit zichzelf ik zou het graag variabel zien.
hij moet tellen hoeveel regels er zijn en er dan de kleuring op los laten.
is dit mogelijk ik ben niet zo goed met vba.

hier wat ik al heb (zit ook in het bestandje in module4)Bekijk bijlage grijpwiel4.xlsm

Sub RegelsKleuren()

Dim lRegel As Long

Range("H3:Y10000").Interior.Color = xlNone
For lRegel = 3 To 600 Step 10
Range(Cells(lRegel, 1), Cells(lRegel, 39)).Interior.Color = 16777164
Next lRegel

End Sub
 
Loopt deze ongeveer goed?
 

Bijlagen

  • grijpwiel4.xlsm
    415,6 KB · Weergaven: 40
Of met een combobox.
 

Bijlagen

  • grijpwiel4.xlsm
    489,9 KB · Weergaven: 48
hallo cobbe

het loopt ongeveer goed maar de regel aantallen die hij kleur liep niet om de 10 regels.
ik ben wat aan het proberen geweest en na wat veranderen komt het ongeveer uit op dit.
maar hij begint bovenin met 4 regels en daarna zo te zien wel met tien regels kun jij zo zien wat hier nog verkeert gaat
alvast bedankt

Sub RegelsKleuren()
Dim lRegel As Long
Cells.Interior.Color = xlNone
maxrow = Range("A" & Rows.Count).End(xlUp).Row
For lRegel = 4 To maxrow Step 9
Range(Cells(lRegel, 8), Cells(lRegel, 25)).Interior.Color = 16777164
Next lRegel
End Sub
 
hallo Jack Nouws

die van jou lijkt me ook leuk maar hij loopt vast op regelkleuren
mis ik iets in de vba misschien??
 
hallo cobbe

kan het zijn dat hij de lege regels nog meetelt in het stukje.
is het mogelijk dat hij alleen de regels na de filtering telt en dan de regels om de 10 kleurt

alvast bedankt
Spokkem
 
Kijk eens naar dit voorstel met een (verborgen)hulpkolom A.
 

Bijlagen

  • grijpwiel(cobbe).xlsm
    417,2 KB · Weergaven: 37
Hallo Cobbe

dit werkt
maar kun je mij uitleggen wat je nu gedaan hebt.
ik zie in de vba de verborgen kolom a niet terug komen of begrijp ik de routine niet goed.
ik zie dat je de waar regels telt.
maar kun je de for lregel = 3 to 30 ook variable maken hij loopt nu maar tot 30 en als ik er dan meer aanklik worden deze niet meegenomen.
graag wat uitleg zodat het stukje beter begrijp al lerende bedankt.

vr gr Spokkem
 
Met een beetje uitleg:
Code: 
Sub RegelsKleuren()
    Dim lRegel As Long
 ' haal alle kleuren weg
    Cells.Interior.Color = xlNone
 ' loop elke regel langs tot de laatst gevulde
      For lRegel = 3 To Range("A" & Rows.Count).End(xlUp).Row
 ' als kolom G van die rij WAAR is
        If Cells(lRegel, "G") = True Then
 ' dan checken of de teller in kolom A deelbaar is door idg 5
            If Cells(lRegel, 1) Mod 5 = 0 Then
 ' kleur dan die regel
                Range(Cells(lRegel, 1), Cells(lRegel, 39)).Interior.Color = 16777164
            End If
        End If
    Next lRegel
End Sub
 
Even los van de aangereikte suggesties;
Hoe kom je erbij dat je in SAP maar 10 regels dmv kopiëren kan importeren? Er zitten wel rare dingen in zoals dat je alleen kan kopiëren in de zichtbare 'tabel' dan werkt het alleen voor de 10 records. Als je de knop paste gebruikt dan kan je alles in 1 keer klaarzetten om te importeren. Alles is natuurlijk afhankelijk van de inrichting en de rechten maar het klinkt mij vrij onnozel dat het handmatig in stapjes van 10 moet.

In elke database kan je een onbeperkt aantal records importeren dus waarom zo ingewikkeld?
 
Hallo VenA

bij ons is in de me51n kunnen we maar tien regels in voeren tegelijk als je daarna op enter drukt om de boel te bevestigen en te controleren komen pas de volgende 10 regels tevoorschijn er zit bij ons geen klembord in de pictogrammen.
dus doen we het per 10 invoeren en bevestigen.

vr gr Spokkem
 
cobbe

hartstikke bedankt voor de uitleg weer een stukje wijzer geworden in vba.
het werkt perfect nogmaals bedankt

vr gr Spokkem
:thumb::thumb::thumb::thumb:
 
spokkem zei:
Hallo VenA

bij ons is in de me51n kunnen we maar tien regels in voeren tegelijk als je daarna op enter drukt om de boel te bevestigen en te controleren komen pas de volgende 10 regels tevoorschijn er zit bij ons geen klembord in de pictogrammen.
dus doen we het per 10 invoeren en bevestigen.

vr gr Spokkem
Klik om te vergroten...

Ik gok dat het plakken in een invoerscherm wordt gedaan. Importeren doe je via een bestandje. Als ik jullie was, zou ik het toch eens navragen bij je softwarehuis of leverancier. Importeren is iets anders dan plakken namelijk.
 
Je zou het ook middels voorwaardelijke opmaak kunnen doen
 
Met een combobox
 

Bijlagen

  • grijpwiel4.xlsm
    486,7 KB · Weergaven: 35
Jack Nouws

bedankt voor jou versie ziet er ook leuk uit ik moet nu een keuze gaan maken welke het wordt.
maar bedankt voor de moeite die je er ingestoken hebt.

werkt prima

vr gr Spokkem
 
hallo iedereen bedankt voor jullie input en uitleg.
het probleem wat ik had is nu dubbel opgelost dus ik ga de vraag sluiten.

vr gr Spokkem:thumb::thumb::thumb::thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan