• 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.

Opmaak cel aanpassen indien gegevens gekopieerd zijn

Status
Niet open voor verdere reacties.
R

rvdw1968

Gebruiker
Lid geworden
20 jul 2018
Berichten
39
Beste allemaal,

Ik heb een document met hierin verschillende mappen (zie bijlage)

Het gaat om de mappen genaamd OLZ en Doorloop.

In "OLZ" worden gegevens gemuteerd die zich in de dagelijkse praktijk voordoen. Door op de knop SYNC te klikken worden enkele van deze gegevens van "OLZ" gekopieerd naar de map "Doorloop" (indien ze daar nog niet voorkomen) alwaar ze blijven staan totdat ze handmatig verwijderd worden.

Ik wil het graag voor elkaar krijgen dat cellen van map "OLZ" van kleur veranderen op het moment dat ze gesynct zijn naar "Doorloop"

Dus in bijgeleverd document:

gegevens in "OLZ" rij 9, 11 en 13 zijn gesynct naar "Doorloop", dan moeten de blauwe cellen van rij 9, 11 en 13 (bijvoorbeeld) groen worden. Op het moment dat de gegevens in het blad "OLZ" in (één van) deze rijen worden gewist, moeten de cellen weer terug naar hun originele opmaak.

Ik hoop dat het duidelijk is wat ik bedoel, alvast veel dank voor jullie hulp.

Groeten, Ruud
 
Laatst bewerkt:
Wil je het wachtwoord van dat kleurboek afhalen
 
Code: 
Sub wissenolz9()
  Range("A9:P9,S9,T9,V9,AD9,AE9,AM9:AS9").ClearContents
End Sub
 
Fontkleur specifieke cellen aanpassen na uitvoering van een macro.

Beste allemaal,

Ik heb deze vraag eerder gepost en had de inhoud graag willen aanpassen maar dat ging niet meer, vandaar onderstaande om de vraag opnieuw en, ik hoop duidelijker, te stellen.

Ik heb een document met hierin verschillende mappen (zie bijlage)

Het gaat om de mappen genaamd OLZ en Doorloop.

In "OLZ" worden gegevens gemuteerd die zich in de dagelijkse praktijk voordoen. Door op de knop SYNC te klikken worden enkele van deze gegevens van "OLZ" gekopieerd naar de map "Doorloop" (indien ze daar nog niet voorkomen) alwaar ze blijven staan totdat ze handmatig verwijderd worden.

Ik wil het graag voor elkaar krijgen dat de tekst in kolom "K" van map "OLZ" van kleur verandert op het moment dat ze gesynct zijn naar "Doorloop"

Dus in bijgeleverd document:

gegevens in "OLZ" rij 9, 11 en 13 zijn gesynct naar "Doorloop", dan moet de tekst in kolom "K" rij 9, 11 en 13 (bijvoorbeeld) groen worden.

Onderstaand de macro om de vereiste gegevens van map "OLZ" naar map "Doorloop" te kopiëren, het lukt mij om de tekst in alleen cel k9 groen te kleuren na synchronisatie, maar indien ik meerdere rijen tegelijk synchroniseer, dan loopt het vast en krijg ik de melding "Fout 1004 tijdens uitvoering...... door de toepassing of door object gedefinieerde fout":

Code: 
Sub OLZnaarDoorloop()

    Dim rtu As Long
    Dim BPS As Range
    Dim shOLZ As Worksheet
    Dim shOLB As Worksheet
   
    Set shOLZ = Sheets("OLZ")
    Set shOLB = Sheets("Doorloop")
   
    With shOLB
        .Unprotect "qq11"
        rtu = 4
        While .Cells(rtu, 1) <> ""
            rtu = rtu + 1
        Wend
    End With

Sheets("OLZ").Unprotect "qq11"
    For i = 9 To 19 Step 2
        If shOLZ.Cells(i, 1) <> "" Then
            Set BPS = shOLB.Columns("E").Find(shOLZ.Cells(i, "k").Value, LookIn:=xlValues)
            
            If BPS Is Nothing Then

                shOLB.Cells(rtu, "A") = shOLZ.Cells(i, "A").Value
                shOLB.Cells(rtu, "C") = shOLZ.Cells(i, "N").Value
                shOLB.Cells(rtu, "E") = shOLZ.Cells(i, "K").Value
                shOLB.Cells(rtu, "F") = shOLZ.Cells(i, "AO").Value
                shOLB.Cells(rtu, "B") = shOLZ.Cells(i, "L").Value
                
                shOLZ.Cells(i, "K").Font.ColorIndex = 10
                shOLZ.Cells(i, "K").Font.Bold = True
                
                rtu = rtu + 1
                Sheets("OLZ").Protect "qq11"
            End If
        End If
    Next i
    shOLB.Protect "qq11"
End Sub

in bovenstaande macro zit het probleem hem in de regels


Code: 
       shOLZ.Cells(i, "K").Font.ColorIndex = 10
                shOLZ.Cells(i, "K").Font.Bold = True

Ik hoop dat het duidelijk is wat ik bedoel, alvast veel dank voor jullie hulp.

Groeten, Ruud
 

Bijlagen

  • Overzicht Lopende zaken leeg.xlsm
    206 KB · Weergaven: 10
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan