Why does it start in A2 not A1?

... i dont undertsand, if the column A in SPORTELLI is all blank, to routine copy the records to start A2 and not in A1...

note:
the macro copy from sheet anagrafe column G to column A of sportelli

This section:

Code:

---

lngTargetRow = lngTargetRow + 1
        ' Copy cells
                Worksheets("ANAGRAFE").Range("G" & lngSourceRow).Copy _
                Worksheets("SPORTELLI").Range("A" & lngTargetRow)

---

Will add one to lngTargetRow before there is any pasting. Since lngTargetRow starts at 1, the first paste will occur at 1+1=2. To change this, paste, then add 1 to lngTargetRow.

Code:

---

' Copy cells
Worksheets("ANAGRAFE").Range("G" & lngSourceRow).Copy _
                Worksheets("SPORTELLI").Range("A" & lngTargetRow)
lngTargetRow = lngTargetRow + 1

---

Quote:

---

Originally Posted by DRJ

This section:

Code:

---

lngTargetRow = lngTargetRow + 1
        ' Copy cells
                Worksheets("ANAGRAFE").Range("G" & lngSourceRow).Copy _
                Worksheets("SPORTELLI").Range("A" & lngTargetRow)

---

Will add one to lngTargetRow before there is any pasting. Since lngTargetRow starts at 1, the first paste will occur at 1+1=2. To change this, paste, then add 1 to lngTargetRow.

Code:

---

' Copy cells
Worksheets("ANAGRAFE").Range("G" & lngSourceRow).Copy _
                Worksheets("SPORTELLI").Range("A" & lngTargetRow)
lngTargetRow = lngTargetRow + 1

---

---

Tks, if you like re attache my project with yor modify... or send me gss.italy@iol.it
for ever...tks.

Here it is.

tks for your patience...

You're Welcome

Take Care