Need help in writing formula for the query????

[tv9_rohith]

In the Spreadsheet I have 2 Sheets.

1sheett for the Complete information about the Employee - Name, Location, Sex, Job Role, Salary.

2sheet only the required fields are - Name, Location, Job Role.

My query is :

If I enter data in the sheet 1 and I click the Command Button in Sheet 1 ( i.e., Generate Report Button ) then automatically the required column information should display in Sheet 2.

For example I have enterd 6 rows of data in sheet1 then all the 6 rows information should display in Sheet 2.

 

[bensonsearch]

your issue is here

Dim count As Long
Dim count2 As Long
Dim counta As Long
count2 = counta ' this line

counta is not defined yet.

try taking out that line

 

[tv9_rohith]

can you please check this.

 

[bensonsearch]

as above, try omiting the line

 

[tv9_rohith]

i have removed that line and given the formula as follows :

but system is showing error in Line in (Yellow color) - Sheets("Sheet2").Range("A" & count2).Value = Sheets("Sheet1").Range("A" & counta).Value


Dim count As Long
Dim count2 As Long
Dim counta As Long
count = Sheets("Sheet1").Range("A2").CurrentRegion.Rows.count
count2 = Sheets("Sheet2").Range("A2").CurrentRegion.Rows.count
Do Until counta = count
count2 = count2 + counta
Sheets("Sheet2").Range("A" & count2).Value = Sheets("Sheet1").Range("A" & counta).Value
counta = counta + 1
Loop
End Sub

 

[bensonsearch]

any error as to why?

 

[tv9_rohith]

when I execute the formula its throwing error.

 

[tv9_rohith]

Re: Need help in writing formula for the query????Can Someone help me on this!!!!!!!!!!!!!

I think Benson is away can someone look into this and let me know.


Please its very urgetn for me.

 

[RichardMGreen]

Re: Need help in writing formula for the query????Can Someone help me on this!!!!!!!!!!!!!

What line is throwing the error and what exactly is the error message?

 

[tv9_rohith]

Hi,

The Error Message is

Run Time Error '1004':

Application -defined or object-defined erro

--

It is showing error for Line :

Sheets("Sheet2").Range("A" & count2).Value = Sheets("Sheet1").Range("A" & counta).Value

Thanks

Rohith M

 

[RichardMGreen]

When the line is highlighted in yellow (i.e. the code has stopped), hover over counta (or add a watch to it) and see what value it has.