Loop not breaking as expected

[tourless]

Hi Folks,

I have the following code that I'm expecting to break out of the loop once it no longer sees a match on the customer name. But what I'm noticing is the loop continues until it exhausts all rows in the range. I've tried a few variations with no luck so far... How can I get that to work properly?

For k = 1 To LastRow(wsItemInfo)
Do While wsItemInfo.Cells(k, 1).Value = customerRow.Value
wsItemInfo.Cells(k, 2).Copy
wsCustomerReportCard.Range("A" & LastRow(wsCustomerReportCard) + 1).PasteSpecial xlPasteValues
wsItemInfo.Cells(k, 3).Copy
wsCustomerReportCard.Range("B" & LastRow(wsCustomerReportCard, "B") + 1).PasteSpecial xlPasteValues
wsItemInfo.Cells(k, 4).Copy
wsCustomerReportCard.Range("E" & LastRow(wsCustomerReportCard, "E") + 1).PasteSpecial xlPasteValues
k = k + 1
Loop
Next k

 

[igold]

Does this do what you want:

    k = 1
    Do While wsItemInfo.Cells(k, 1).Value = customerRow.Value
        wsItemInfo.Cells(k, 2).Copy
        wsCustomerReportCard.Range("A" & LastRow(wsCustomerReportCard) + 1).PasteSpecial xlPasteValues
        wsItemInfo.Cells(k, 3).Copy
        wsCustomerReportCard.Range("B" & LastRow(wsCustomerReportCard, "B") + 1).PasteSpecial xlPasteValues
        wsItemInfo.Cells(k, 4).Copy
        wsCustomerReportCard.Range("E" & LastRow(wsCustomerReportCard, "E") + 1).PasteSpecial xlPasteValues
        k = k + 1
    Loop

 

[tourless]

Does this do what you want:

    k = 1
    Do While wsItemInfo.Cells(k, 1).Value = customerRow.Value
        wsItemInfo.Cells(k, 2).Copy
        wsCustomerReportCard.Range("A" & LastRow(wsCustomerReportCard) + 1).PasteSpecial xlPasteValues
        wsItemInfo.Cells(k, 3).Copy
        wsCustomerReportCard.Range("B" & LastRow(wsCustomerReportCard, "B") + 1).PasteSpecial xlPasteValues
        wsItemInfo.Cells(k, 4).Copy
        wsCustomerReportCard.Range("E" & LastRow(wsCustomerReportCard, "E") + 1).PasteSpecial xlPasteValues
        k = k + 1
    Loop

thanks igold, but no. it doesn't even enter the do while, it doesn't pick up on the value of wsItemInfo "A1".

 

[igold]

That really does not make sense. In both examples on the first loop through K=1.

 

[Fluff]

What is customerRow?

 

[tourless]

Hi Guys,

the trick was removing the for loop with k and initializing it as k = 2 (first data row). customerRow simply holds the name of the customer.

Thanks for the help.

 

[igold]

Glad you got it working. We were happy to help. Thanks for the feedback.