Excel VBA - build file name

[dusko_m]

pokusavam da automatizujem generisanje mesecnih racuna i treba mi makro koji ce da racun za trenutno izabranog tenanta eksportuje u pdf fajl koji ima strukturu imena "struja_" & Range("A8:E8").Value i uporno dobijam Type mismatch gresku. A8:E8 je polje koji funkcijom VLOOKUP vuce ime zakupca iz posebne tabele i kao takvo verovatno ga Excel ne vidi kao string i prijavljuje ovu gresku. Evo je cela sintaksa pa ako neko ima ideju, dobro bi mi dosla jer ja ih vise nemam

' ExportToPdf Macro
'

'
        Dim ThisFile As String
        Dim PrviDeo As String
        Dim DrugiDeo As String
        
                
        PrviDeo = "Struja_"
        DrugiDeo = CStr(Range("A8:E8").Value)
        ThisFile = PrviDeo & DrugiDeo
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

u ovoj varijanti koda, gresku prijavljuje na liniji DrugiDeo = CStr(Range("A8:E8").Value) gde sam pokusao da konvertujem ono sto se dobija iz formule u string. kad izbacim PrviDeo iz formule za gradjenje imena fajla, sve prolazi bez problema. ovako kako ja hoce, nece da prodje. pomoc

 

[dusko_m]

Uspeo. Formulu iz (A8:E8) sam prekopirao u celiju koja nije merge-ovana (A3) i kada nju ubacim u makro, sve prolazi bez problema