how to assign the correct item code?

[jasonlewis]

Halo,anyone.
I would like to ask how to assign the correct item code for each record in template2?
It is because when I search 1/7/2013-15/7/2013, it output 4 records,
but the item code is not 1,2,3,4. How can I assign it correctly?

Thanks, jason.

Option Explicit
Private Sub CommandButton1_Click()
 Dim ws As Worksheet
 Set ws1 = Sheets("Template2")
 Set ws2 = Sheets("Database2")
 Set ws3 = Sheets("By Period")
 Dim i As Integer
 Dim j As Integer
  
 For i = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).row
 If ws3.Cells(7, 3).Value >= ws2.Cells(i, 2).Value And ws3.Cells(4, 3).Value <= ws2.Cells(i, 2).Value And ws2.Cells(i, 9).Value = 0 Then

 LR = ws1.Range("B" & Rows.Count).End(xlUp).row
 
 ws1.Range("A" & LR + 1) = i - 1

 ws2.Cells(i, 2).Copy
 ws1.Range("B" & LR + 1).PasteSpecial Paste:=xlPasteValues
 ws1.Range("B" & LR + 1).NumberFormat = "dd/mm/yyyy"
 
 ws2.Cells(i, 3).Copy
 ws1.Range("C" & LR + 1).PasteSpecial Paste:=xlPasteValues
 
 ws2.Cells(i, 4).Copy
 ws1.Range("D" & LR + 1).PasteSpecial Paste:=xlPasteValues
 
 ws2.Cells(i, 8).Copy
 ws1.Range("E" & LR + 1).PasteSpecial Paste:=xlPasteValues
 
 ws2.Cells(i, 5).Copy
 ws1.Range("F" & LR + 1).PasteSpecial Paste:=xlPasteValues
 
 ws2.Cells(i, 14).Copy
 ws1.Range("G" & LR + 1).PasteSpecial Paste:=xlPasteValues
 
 ws2.Cells(i, 6).Copy
 ws1.Range("H" & LR + 1).PasteSpecial Paste:=xlPasteValues
 
 ws2.Cells(i, 12).Copy
 ws1.Range("I" & LR + 1).PasteSpecial Paste:=xlPasteValues
  
 ws2.Cells(i, 13).Copy
 ws1.Range("J" & LR + 1).PasteSpecial Paste:=xlPasteValues
 ws1.Range("J" & LR + 1).NumberFormat = "dd/mm/yyyy"
  
 ws2.Cells(i, 11).Copy
 ws1.Range("K" & LR + 1).PasteSpecial Paste:=xlPasteValues
  
 End If
 
 Next i
 
  Dim xlSort As XlSortOrder
  
  With ws1

     LR = ws1.Range("B" & Rows.Count).End(xlUp).row
        
           If (.Range("C6").Value > .Range("C" & CStr(LR))) Then
             xlSort = xlDescending
         Else
             xlSort = xlAscending
         End If
       
        .Range("B6:K" & LR).Sort Key1:=.Range("C6"), Order1:=xlSort, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    
     End With
     
     ActiveWorkbook.Save

     
End Sub

Same post by hei,

http://www.mrexcel.com/forum/excel-q...code-date.html

[jasonlewis]

Does someone interested in this question?

[jasonlewis]

I have changed the questions, does someone interested?

[jasonlewis]

does someone interested in these questions?

[jasonlewis]

does someone interested in these questions?

[jasonlewis]

does someone interested in these questions?

[jeffreybrown]

@jasonlewis,

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

[jasonlewis]

Re jeffrey,

ok.. I am asking my fd to give me the link, so that I could include the link here.
Sorry for any inconvenience.

[jasonlewis]

I hv already add the other link from mrexcel in my post now

[jasonlewis]

does someone interested in these questions?