Forum Discussion

StevenChailes's avatar
StevenChailes
Copper Contributor
Jan 19, 2021
Solved

Excel Macro Error Error 1004 : Range Method Global ERROR

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

excel
Macros and VBA
  • JMB17's avatar
    JMB17
    Jan 19, 2021
    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

3 Replies

  • JMB17's avatar
    JMB17
    Bronze Contributor
    Jan 19, 2021
    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
  • Wyn Hopkins's avatar
    Wyn Hopkins
    MVP
    Jan 19, 2021

    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

Resources