Errors with Ranges

[NatalieEC]

Hello,

I am sorry to always be asking about ranges... I keep getting an error that says "method range of worksheet object failed". It is the line that says Set Vbr... I am so confused because I have never had this problem before when dealing with ranges.

If anyone can help me out, I'd greatly appreciate that. Thanks!

Dim k, j, m, n As Integer
    Dim reticle As String
    Dim numberOfRows As Integer
    Dim Wg As Double
    Dim i As Integer
    Dim id As String
    Dim idss As Double
    Dim vbr As Range
   
    
    
    i = 1 'Vbr column
    k = 6 'id(A/um) column
    j = 2 'reticle number
    n = 2 'id column
    
       
  
   Set vbr = Range(i & "123", Range(i & rows.count).End(xlUp))

[Norie]

When using Range on it's own you need to use the column letter, not the column number.

If you want to use the number use Cells with Range.

Dim k, j, m, n As Integer
    Dim reticle As String
    Dim numberOfRows As Integer
    Dim Wg As Double
    Dim i As Integer
    Dim id As String
    Dim idss As Double
    Dim vbr As Range
   
    
    
    i = 1 'Vbr column
    k = 6 'id(A/um) column
    j = 2 'reticle number
    n = 2 'id column
    
       
  
   Set vbr = Range(Cells(123, i), Cells(Rows.Count, i).End(xlUp))

[HaHoBe]

Hi, NatalieE,

Range expects a Column like A and not the number as the first argument, use Cells instead and try

Dim k, j, m, n As Integer
    Dim reticle As String
    Dim numberOfRows As Integer
    Dim Wg As Double
    Dim i As Integer
    Dim id As String
    Dim idss As Double
    Dim vbr As Range
   
    
    
    i = 1 'Vbr column
    k = 6 'id(A/um) column
    j = 2 'reticle number
    n = 2 'id column
    
       
  
   Set vbr = Range(Cells(123, i), Cells(Rows.Count, i).End(xlUp))

Ciao,
Holger

[HaHoBe]

Hi, Norie,

sorry: no preview available at present so I merely posted the same code only hours later.

Holger

[NatalieEC]

Thank you so much everyone!

I did use a line before where I used the column number, and it worked. I must have set something up differently. I am still learning

[NatalieEC]

Now I have a new error! Why can't I set vbr in a while loop?

Dim k, j, m, n As Integer
    Dim reticle As String
    Dim numberOfRows As Integer
    Dim Wg As Double
    Dim i As Integer
    Dim idss As Double
    Dim vbr As Range
   
    Dim label As String
    
    label = "Id (A/um)"
    
    
    i = 1 'Vbr column
    k = 6 'id(A/um) column
    j = 2 'reticle number
    n = 2 'id column
    
       
  
   Set vbr = Range(Cells(123, i), Cells(rows.count, i).End(xlUp))
   numberOfRows = vbr.rows.count + 123
  
   reticle = Cells(1, i).Value
   
   Wg = 1000 * Sheets("Hard Breakdown Summary").Cells(1, 2).Value
   Cells(122, k) = "Id (A/um)"
   
  While reticle <> ""
    
        For m = 123 To numberOfRows
    
            idss = Cells(m, n).Value / Wg
            Cells(m, k) = idss
            
        Next m
    
         i = i + 8
         k = k + 8
         j = j + 8
         n = n + 8
    
        Set vbr = Range(Cells(123, i), Cells(rows.count, i).End(xlUp))
        numberOfRows = vbr.rows.count
        reticle = Cells(1, i).Value
        Cells(122, k) = label
        
    Wend