Error 1004 "Application-defined or Object-defined error" when selecting a range.

Hi,

I am running into the Error 1004 "Application-defined or Object-defined error" when selecting a dynamic range

Please Login or Register  to view this content.

The error is on the line "db.Range(FCST1, db.Cells(lr1, lc1)).Select"

the above code is for one table and I have three more tables to use a similar code on.

I am not sure what is causing the issue. I referred to several solutions online but nothing seem to work. I am trying to add borders for dynamic tables with data. Tables are created using a different set of codes and they are distributed in one sheet, each table starting from first cells of different columns.

Thanks in advance
For ex: table 1 start at "A1", table 2 at "D1" and so on.

I also have tried the commented codes above but still got the same error code on the same line.

I also have tried the commented codes above but still got the same error code on the same line.

where is db declared?
What is db? Range, Workbook?

So if you put a break point on that line that is giving you the error:
The error is on the line "db.Range(FCST1, db.Cells(lr1, lc1)).Select"

so that the code stops and you check all the values in the variables above, are they all populated? And if they are, are they valid?


FCST1 = ??
lr1 = ??
lc1 = ??

I would make sure that what you are passing into that range, is valid values..

Just to make sure I explained the logic clearly,

FCST1 and FCST 2 are ranges which points to the very first cell of each table.

lr1 and lc1 are used to define the range of the entire table with values. basically trying to replicate ctrl+shift+right and down, so that I can select the table till the last row and column with values only, ignoring the blanks. Then adding borders. This is what I am trying to achieve, if that makes sense.

To summarize: my goal is to select the table with rows and columns containing only value and ignoring blanks and then add a border around the table. Also, mind that the table is dynamic.

I've attached a sample file explaining what I want to achieve

I understand what you are trying to do, but im just asking if those variable that should be containing valid values for the range to be selected, are they being populated with the correct range values?

Since its getting the error here: db.Range(FCST1, db.Cells(lr1, lc1)).Select to me its telling me that maybe a invalid value was passed into that Cells() portion..

In your VBA editor, if you place a break point on the line i show in the screenshot, run the code and it should stop there.. once it stops, mouse over the variable above that line to make sure that the correct row and column are being passed into that line..

Also just noticed, that your lc1 is commented out, maybe uncomment that first and see if it works..(may be that simple, you are using the wrong variables in the Cell() portion)

It's what happens when using useless variables, you are confusing yourself …

Originally Posted by Vj Raj

To summarize: my goal is to select the table with rows and columns containing only value and ignoring blanks and then add a border around the table.

So according to your post #7 attachment - which should be in the initial post … - a VBA demonstration for starters :

PHP Code: 

Sub Demo1()
        Dim Rg As Range, N%
        Application.ScreenUpdating = False
    For Each Rg In Sheet1.UsedRange.SpecialCells(2).Areas
    For N = 7 To 10
        Rg.Borders(N).Weight = xlMedium
    Next N, Rg
        Application.ScreenUpdating = True
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄