VBA Help

[Muhammad Rizwan]

Hello Experts
I am using vba code to copy only tick books, its done
but i want to copy invoice number etc. can some one write code for me how to copy invoice number till empty row in sales sheet
Copy Code is here
Sub CopyRows()

For Each chkbx In ActiveSheet.CheckBoxes
If chkbx.Value = 1 Then
For r = 13 To Rows.Count


If Cells(r, 1).Top = chkbx.Top Then
With Worksheets("sales")
LRow = .Range("e" & Rows.Count).End(xlUp).Row + 1
.Range("e" & LRow & ":i" & LRow) = _
Worksheets("Invoice").Range("c" & r & ":g" & r).Value

End With
Exit For
End If
Next r
End If
Next

End Sub

 

[kokano90]

can you attach the file?

 

[Muhammad Rizwan]

can you attach the file?

No sir , its not possoble for me to attach file

 

[mohadin]

If the invoice No&... are in Range("A1:D1)")
May be

.
.
.
Worksheets("sales").Range("A2").Resize(LRow, 4) =Worksheets("sales").Range("A1:D1")
End sub

 

[Muhammad Rizwan]

If the invoice No&... are in Range("A1:D1)")
May be

.
.
.
Worksheets("sales").Range("A2").Resize(LRow, 4) =Worksheets("sales").Range("A1:D1")
End sub

Sir i want to copy only selected rows. If selected rows are 5 invoice numbers must copy 5 time. If selected rows are 7 or 2 invoice number and date etc copied with same selection rows number.
Book name change while copying but invoice numbers same