[Løst] Fargelegge filnavn

[Trelkrok]

Hei igjen, jeg har følgende makro som forøvrig fungerer utmerket med Office 2010 og Office 365.

 

Dim Sti As String

Dim Filnavn As String

 

Sti = ActiveWorkbook.Path & "\"

Filnavn = "Pakkseddel_" & Cells(7, 6)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        Sti & Filnavn, Quality:= _

        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=Aapne

 

Denne genererer følgende ved lagring: ’‘Pakkseddel_Nr.142 Hans Hansen’’ med sort skrift.

 

Er det mulig å få grønn farge på filnavnet hvis K14=x eller X og hvordan blir i så fall endringene i makroen?

 

God helg.

 

Mvh

RA

[Harald Staff]

Hei

 

Burde være noe a la nye linjer mellom linje to og tre:

 

If Ucase(Trim(range("K14").Value))= "X" Then

'Grønn

Else

'Svart

End If

 

Grønn er så mangt. Ønsket farge finner du best ved å spille inn en makro mens du fargelegger manuelt:

http://www.excel-easy.com/vba/examples/font.html

 

Beste hilsen Harald

Endret 16. oktober 2016 av Harald Staff

[Trelkrok]

Hei

 

Burde være noe a la nye linjer mellom linje to og tre:

 

If Ucase(Trim(range("K14").Value))= "X" Then

'Grønn

Else

'Svart

End If

 

Grønn er så mangt. Ønsket farge finner du best ved å spille inn en makro mens du fargelegger manuelt:

http://www.excel-easy.com/vba/examples/font.html

 

Beste hilsen Harald

Takk for svar igjen Harald, ble så jeg brukte en HVIS formel som endre starten på filnavnet avhengig av om det står x i K14., Da står det PAKKSEDDEL uten x og KVITTERING med x og kan enkelt ses i mappen der dette lagres.

Mvh

RA