Copy and Paste

[vmjan02]

I have this code and first part is all correct it does the copy and past from one sheet to another, but 2nd part of copy and paste is not working, there is no error and it is not even copying and pasting the data.

any suggestions.

Sub CurrenttrackertoDB()
'''''''''''''''''''''''''''''''''''''''''''''''''''
'this is conver the current tracker to
'DB
'
''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Dim iSourceLastRow As Long
Dim iTargetLastRow As Long


Set wsSource = Worksheets("Tracker - RawData")
Set wsTarget = Worksheets("DB - RawData")

iSourceLastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
iTargetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Offset(1).Row
'Copy data from the source and Paste in the destination
wsSource.Range("A7:AZ7" & iSourceLastRow).Copy wsTarget.Range("A" & iTargetLastRow) 'this 1st part is all correct

wsSource.Range("BK7" & iSourceLastRow).Copy wsTarget.Range("BA" & iTargetLastRow) 'this part of code is not working

End Sub

 

[Legacy 143009]

wsSource.Range("BK7" BK7 is a red flag here. Most probably it will be "BK" only.

 

[Fluff]

I doubt either of these two lines are doing what you think they are

wsSource.Range("A7:AZ7" & iSourceLastRow).Copy wsTarget.Range("A" & iTargetLastRow) 'this 1st part is all correct

wsSource.Range("BK7" & iSourceLastRow).Copy wsTarget.Range("BA" & iTargetLastRow) 'this part of code is not working

If iSourceLastRow is 100 then you are copying A7:AZ700 to col A & then copying BK700 to col BA

 

[vmjan02]

I doubt either of these two lines are doing what you think they are

wsSource.Range("A7:AZ7" & iSourceLastRow).Copy wsTarget.Range("A" & iTargetLastRow) 'this 1st part is all correct

wsSource.Range("BK7" & iSourceLastRow).Copy wsTarget.Range("BA" & iTargetLastRow) 'this part of code is not working

If iSourceLastRow is 100 then you are copying A7:AZ700 to col A & then copying BK700 to col BA

thanks
below code worked for me for 2nd part, the 1st part the is no change.

Dim iSourceLastRowBK As Long
Dim iTargetLastRowBK As Long
iSourceLastRowBK = wsSource.Cells(wsSource.Rows.Count, "BK").End(xlUp).Row
iTargetLastRowBK = wsTarget.Cells(wsTarget.Rows.Count, "BA").End(xlUp).Offset(1).Row

wsSource.Range("BK7:BK7" & iSourceLastRowBK).Copy wsTarget.Range("BA" & iTargetLastRowBK)

 

[Fluff]

Glad you sorted it & thanks for the feedback.

 

[Alex Blakenburg]

thanks
below code worked for me for 2nd part, the 1st part the is no change.

Although you say it is now working I think you are missing the point and you are actually copying far more rows than you are intending to copy.
It just so happens that those rows are blank.

Add the code below under your BK7 copy line and check if what you see makes sense. If it does well and good but I think it is unlikely.

MsgBox _
        "1st Range Being Copied is: " & wsSource.Range("A7:AZ7" & iSourceLastRow).Address & Chr(10) & _
        "1st Range Last Row Copied: " & wsSource.Range("AZ7" & iSourceLastRow).Row & Chr(10) & _
        "2nd Range Being Copied is: " & wsSource.Range("BK7:BK7" & iSourceLastRowBK).Address & Chr(10) & _
        "2nd Range Last Row Copied: " & wsSource.Range("AZ7" & iSourceLastRowBK).Row