kopiering af betinget formatering via vba

Prøv med:

----------------------
Public Sub CopyFormats()

    With Selection
        .FormatConditions.Add Type:=xlExpression, Formula1:="=+VLOOKUP(F2;haster;1;FALSE)=F2"
        .FormatConditions(1).Interior.ColorIndex = 45
        .Copy
    End With
   
    With Columns("F:F")
        .PasteSpecial Paste:=xlPasteValues
        .FormatConditions.Add Type:=xlExpression, Formula1:="=+VLOOKUP(F2;haster;1;FALSE)=F2"
        .FormatConditions(1).Interior.ColorIndex = 45
    End With
   
    Application.CutCopyMode = False

End Sub
----------------------

Den kopiere desværre også teksten nedad. (og så går den i fejl 1004 inden den bliver færdig)

...men den hoder sig fra formaterne ;-)

Så det er jo et skridt på vejen.

Hvilken linie får du fejl på ?

.FormatConditions.Add Type:=xlExpression, Formula1:="=+VLOOKUP(F2;haster;1;FALSE)=F2"

(det var sgu' da hurtigt)

Er det kun den betingede formatering du vil kopiere, ikke værdierne i cellerne ?

(var tilfældigvis vågen og foran skærmen :-) )

nemmerlig - jeg er kun interesseret i den betingede formatering. Indholdet kommer fra et andet ark og skal ikke kopieres.

Du kan formentlig nøjedes med

-------------
Public Sub CopyFormats()
   
    With Columns("F:F")
        .FormatConditions.Add Type:=xlExpression, Formula1:="=+VLOOKUP(F2;haster;1;FALSE)=F2"
        .FormatConditions(1).Interior.ColorIndex = 45
    End With
   
End Sub
-------------

Den indsætter bare noget betinget formatering i kolonne F.

Med mindre den betinget formatering ændrer sig, skal den vel i grunden ikke gøre så meget andet. Eller har jeg misforstået problemet ?

den fejler stadig ved :
    .FormatConditions.Add Type:=xlExpression, Formula1:="=+VLOOKUP(F2;haster;1;FALSE)=F2"

(og den når ikke at ændre ved formateringen)

Prøv at fjerne plus tegnet foran VLOOKUP

nej, formatereingen ændrig sig ikke. Jeg opretter et nyt ark i ny og næ. (og det skulle jo gerne foregå automatisk..)

Jeg kopiere fra en pivot tabel og vil gerne beholde 'ramme' formateringen så det bliver overskueligt.

fjernet - men det ændre ikke på noget..

Det navngivet område "haster", findes det på alle dine ark ?

nej, kun i det ark som jeg prøver at kopiere til - dvs i det ark som skal have lavet beinget formatering.

(så det 'findes' vel i alle ark ik' ? )

Prøv med formlen:
=IF(VLOOKUP(A15;haster;2)=F2;TRUE;FALSE)

dvs. erstat
="=+VLOOKUP(F2;haster;1;FALSE)=F2"

med
="=IF(VLOOKUP(A15;haster;2)=F2;TRUE;FALSE)"

ked ad det, men den fejler stadig..

Skal koden ikke først 'skrive' : "=+VLOOKUP(F2;haster;1;FALSE)=F2" i en celle (F2)og så kopiere det til de andre ?

Ok...
Skal referencen F2 fastholdes for alle cellerne i kolonne F, eller skal den ændre sig
nedaf kolonnen.

f.eks.
F2 i række 1
F3 i række 2
osv..

F2 skal ændre sig  -  f2-f3-f4  i række 2,3,4 osv.

Det er en liste som jeg kopiere ind i et ark - og jeg vil så gerne have at værdier som findes i området 'haster' 'lyser' op, hvis du forstår.

ok, så er jeg vistnok med...(Det er også sent :-) )

Prøv med..
Du kan evt. ændre området (F2:F100)

---------
Public Sub CopyFormats()
   
    Columns("F:F").FormatConditions.Delete
   
    With [F2]
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=IF(VLOOKUP(F2;haster;1;FALSE)=F2;TRUE;FALSE)"
        .FormatConditions(1).Interior.ColorIndex = 45
        .AutoFill Destination:=Range("F2:F100"), Type:=xlFillFormats
    End With
   
End Sub

---------

ja, det er sent ;-)

Nu kopierer den formatet, men den tager rammer+farve med

ok, det her er ikke elegant, men det virker (ihvertfald på min :-) )

----------
Public Sub CopyFormats()
   
    Columns("F:F").ClearFormats
   
    With ActiveSheet.[F2]
        .FormatConditions.Add Type:=xlExpression, Formula1:="=IF(VLOOKUP(F2;haster;1;FALSE)=F2;TRUE;FALSE)"
        .FormatConditions(1).Interior.ColorIndex = 45
        .AutoFill Destination:=Range("F2:F100"), Type:=xlFillFormats
    End With
   
    ' Rydder formater (ikke de betingede)
    With Range("F2:F100")
        .Interior.ColorIndex = xlNone                      ' Baggrundsfarve farve = Ingen
        .Font.ColorIndex = 0                                ' Font farve = sort
        .Borders(xlDiagonalDown).LineStyle = xlNone        ' Borders = Ingen
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
   
End Sub
----------

nu fjerne den de formater som jeg har i forvejen :-(

Jeg må prøve at lege videre med det i morgen (læs: i dag).

Tak for vedholdenheden indtil nu - kanon.

ok

Ok, problemet er vistnok i AutoFill funktionen, den tager alle formater med.


--------
Public Sub CopyFormats()
   
    Range("F2").Activate
    With ActiveSheet.Range("F2:F100")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=VLOOKUP(F2;haster;1;FALSE)=F2"
        .FormatConditions(1).Interior.ColorIndex = 45
    End With

End Sub
--------

Jeg har ændret lidt i mit layout så jeg har nu den betingede formatering 'med' når jeg kopiere ind i arket.

Hvis du smider et svar får du lidt point som tak for indsatsen !

OK, beklager at det ikke virkede som det skulle...

Du kan også vælge at lade spørgsmålet stå åbent indtil der er en anden der kommer med en løsning.

Nej, jeg lukker det, men jeg har lavet et andet som måske kan give nogle af jeg grå hår ;-)