Indsættelse af kopiering over farvede celler.

Hej

Hvis du højreklikker, vælger indsæt speciel/værdier/OK i stedet for at bruge CTRL+V, så indsætter den kun tekst og tal - uden at formatet kommer med.

Skal du indsætte formler, skal du i stedet vælger indsæt speciel/formler/OK.

Håber det kan bruges. :o)

Det hjælper desværre ikke, da det indsatte skal sættes ind af alle mulige forskellige mennesker, og det nok bliver for besværligt for dem at skulle ind i den specielle hver gang.. :S Håber lidt på en anden løsning i hvert fald :o)

Alternativet er en makro. Men det er formodentlig lige så besværligt at skulle afspille en makro hver gang, som at vælge Indsæt speciel.

Ja, det ville det jo nok :/

Jeg vil lade den stå åbent lidt endnu - måske jeg er heldig der er nogen der har den geniale ide :D

Hvis det altid er blå celler, og det altid er de samme, der er fwrvet blå, kan du lægge denne kodei  arkets modulark:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a3, f7, c12")) Is Nothing Then
        Target.Interior.ColorIndex = 5
    End If
End Sub

Ret Range til de celler, der skal farves blå. Har du ikke samme farve i alle cellerne, skal der nok lidt mere til.

Det har jeg ikke - det er hver 3. celle der er blå - så hvordan kan denne laves?

Prøv med

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a:a")) Is Nothing Then
        i = 3
        For Each c In Range("a1:a100")
            Range("a" & i).Interior.ColorIndex = 5
            i = i + 3
        Next c
    End If
End Sub

Altså, det er en fantastisk verden du lige har åbnet for mig derinde bagved - jeg slet ikke vidste eksisterede! TAK

Det er tæt på helt perfekt det der - men, jeg har et lille problem mere når jeg bruger den der.

Sådan ser den ud (i = 4, da det passede bedst sådan).

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("d:d")) Is Nothing Then
        i = 4
        For Each c In Range("d1:d100")
            Range("d" & i).Interior.ColorIndex = 37
            i = i + 3
        Next c
    End If
End Sub

Det jeg så ikke kan forstå, er, hvorfor jeg under linie 97 (hvor mine farvede celler ikke går længere, der kommer der ca 200 celler i D, hvor hveranden er lyseblå. Dette sker så snart jeg har sat noget ind (som desuden fungerer HELT efter planen) fra oven..

Håber du kan svare denne - og så er pointene klart dine :D

Jeg kan ikke se, hvorfor den gør det, men detteløser problemet:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("d:d")) Is Nothing Then
        i = 4
        For Each c In Range("d1:d100")
            Range("d" & i).Interior.ColorIndex = 37
            i = i + 3
            If i > 100 Then Exit Sub
        Next c
    End If
End Sub

Tusind tak! :D

Velbekomme :-)