SOLVED

Excel Macro Error Error 1004 : Range Method Global ERROR

Copper Contributor

StevenChailes_0-1611045706920.png

Range("B1:U18,W1:AL18,AN1:BE18,BF1:BW18,BY1:CU18,CW1:DJ18,DL1:EE18,EF1:EY18,FA1:FV18,FW1:GR18,GT1:HM18,HN1:IG18,II1:JB18,JC1:JV18,JX1:KT18,KU1:LQ18,LS1:MO18,MP1:NL18,NN1:OG18,OH1:PA18,PC1:PV18,PW1:QP18,QR1:RK18,RM1:SG18,SI1:TC18,TE1:TY18,UA1:UR18,US1:VJ18,VK1:WB18,WD1:WS18,WT1:XI18,XJ1:XY18,YA1:YQ18,YS1:ZI18,ZK1:AAA18").Select
Dim invoiceRng As Range
Set invoiceRng = Range("B1:U18,W1:AL18,AN1:BE18,BF1:BW18,BY1:CU18,CW1:DJ18,DL1:EE18,EF1:EY18,FA1:FV18,FW1:GR18,GT1:HM18,HN1:IG18,II1:JB18,JC1:JV18,JX1:KT18,KU1:LQ18,LS1:MO18,MP1:NL18,NN1:OG18,OH1:PA18,PC1:PV18,PW1:QP18,QR1:RK18,RM1:SG18,SI1:TC18,TE1:TY18,UA1:UR18,US1:VJ18,VK1:WB18,WD1:WS18,WT1:XI18,XJ1:XY18,YA1:YQ18,YS1:ZI18,ZK1:AAA18")
invoiceRng.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\Users\USER\Desktop\G01.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

3 Replies

Hi @StevenChailes 

 

Looks like you've hit the limit of 256 characters in the address (it breaks after US1:VJ18 ).

Writing Macros this way isn't too safe,  you should try to use Named Ranges wherever possible

 

Then you could split it into chunks and do Range("Range1,Range2").Select

Wyn

MVP

best response confirmed by StevenChailes (Copper Contributor)
Solution
I believe you could do this, at least until you find a better method. Personally, I also favor using named ranges.

Union(Range("B1:U18,W1:AL18,AN1:BE18,BF1:BW18,BY1:CU18,CW1:DJ18,DL1:EE18,EF1:EY18,FA1:FV18,FW1:GR18,GT1:HM18,HN1:IG18,II1:JB18,JC1:JV18,JX1:KT18,KU1:LQ18,LS1:MO18,MP1:NL18"), Range("NN1:OG18,OH1:PA18,PC1:PV18,PW1:QP18,QR1:RK18,RM1:SG18,SI1:TC18,TE1:TY18,UA1:UR18,US1:VJ18,VK1:WB18,WD1:WS18,WT1:XI18,XJ1:XY18,YA1:YQ18,YS1:ZI18,ZK1:AAA18")).Select

Thnaks bro, it works. @JMB17 

1 best response

Accepted Solutions
best response confirmed by StevenChailes (Copper Contributor)
Solution
I believe you could do this, at least until you find a better method. Personally, I also favor using named ranges.

Union(Range("B1:U18,W1:AL18,AN1:BE18,BF1:BW18,BY1:CU18,CW1:DJ18,DL1:EE18,EF1:EY18,FA1:FV18,FW1:GR18,GT1:HM18,HN1:IG18,II1:JB18,JC1:JV18,JX1:KT18,KU1:LQ18,LS1:MO18,MP1:NL18"), Range("NN1:OG18,OH1:PA18,PC1:PV18,PW1:QP18,QR1:RK18,RM1:SG18,SI1:TC18,TE1:TY18,UA1:UR18,US1:VJ18,VK1:WB18,WD1:WS18,WT1:XI18,XJ1:XY18,YA1:YQ18,YS1:ZI18,ZK1:AAA18")).Select

View solution in original post