Just nu i M3-nätverket
Gå till innehåll
S.azon1953

LÖST Skapa ett filnamn av 3 celler med PDF suffix

Rekommendera Poster

Jag har skapat den här enkla koden och jag vill skriva ut mitt resultat till en pdf-fil där filnamnet skall skapas av de 3 angivna cellerna, jag får inga felmeddelanden och det är bara cell H17 och C17 som finns med i filnamnet .pdf .  Allt fungerar utom att  cell E8 är inte inkluderat i filnamnet .   Vad är problemet ?  

 

Sub Utskrift()
  
    Dim wb As Workbook
    Dim NewFN As String
    With Blad2
       
    ' Skapa filnamnet av 2 celler .pdf
        NewFN = PathBuilder(.Range("H17"), .Range("C17"), .Range("E8"), "pdf")
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN
                
    End With
    
 End Sub
Function PathBuilder(rnSource1 As Range, rnSource2 As Range, rnSource3 As Range, suffix As String) As String

    Dim basePath As String
    basePath = "C:\"
    PathBuilder = basePath & rnSource1.Value & rnSource2.Value & rnSource3.Value & "." & suffix
End Function

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Hej EForum,

Jag får svara själv och det var enbart en typisk excel händelse och tankevurpa. Jag hade sammanfogade celler och därför  adresserades in rätt cell.

Koden är hundra procent korrekt om ni vill använda den.

 

Tack för ett utmärkt forum  

 

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...