Why can't I get it to start at "I6"?

[S.H.A.D.O.]

Good evening,

I would like the data range to start at cell "I6" but for some reason what I have tried will not allow me do do this, I know it is probably me being a bit slow, it has been a VERY long week so far.

    Dim ColData As Integer
    Dim x As Integer
    ColData = Sheets("Calculation").Range("I6" & Rows.Count).End(xlUp).Row: x = 9

Thanks in advance,

 

[S.H.A.D.O.]

Thanks again Rick,

Basically, in the sheet Calculation I have hundreds of rows that contain data for different products. If a product is to be used, the user inputs a quantity into column I. When they have finished they goto the sheet Customer Quotation, which is where the code I posted is run via a Macro button. The Macro then copies and pastes ONLY the rows that have a value greater than 0 into the sheet Customer Quotation. The only problem is, that there are values in cells I1:I5 in the sheet Calculation that if there are no values in column I it copies them to the sheet Customer Quotation instead of ignoring them.

Thanks in advance.

 

[Rick Rothstein]

I was not 100% sure of the cells to start at... my guess was to look from Row 6 on down in the Calculation sheet and put the copied rows on the Customer sheet starting at row 9 (I have highlighted these values in case you need to find them in order to change them). With that said, give this macro a try...

Sub MoveDataWithQuantityFromCalculationToCustomerSheet()
  Sheets("Calculation").Range("I[B][COLOR="#FF0000"]6[/COLOR][/B]", Sheets("Calculation").Cells(Rows.Count, "I"). _
    End(xlUp)).SpecialCells(xlConstants).EntireRow.Copy Sheets("Customer").Range("A[B][COLOR="#FF0000"]9[/COLOR][/B]")
End Sub

 

[S.H.A.D.O.]

Hi Rick,

It is still including data in cells I1:I5 in the "Calculation" sheet, although I actually changed the sheet name to "Customer Quotation" which it is.

 

[Rick Rothstein]

Hi Rick,

It is still including data in cells I1:I5 in the "Calculation" sheet, although I actually changed the sheet name to "Customer Quotation" which it is.

It does not do that for me and, given the code I posted, I really do not see how it could. Are you sure you don't have some leftover code from some previous attempts?