go to another sheet and get lrow on col AC

0

I thought I knew how to do this, but no

I simply want to go to another sheet and get the last row of data in col c

There is about 1200 rows of data in col "AC".  I do go to the other sheet,(DATAEACHSTORE) but not to col "AC"

Thanks  Carroll

Private Sub CommandButton2_Click()
    ' COPY PASTE VALUES NEW DATA FROM DATAEACHSTORE
   ' FIND LAST ROW OF DATA
    Worksheets("DATAEACHSTORE") .Range("AC6")
     lrow = Range("AC6").End(xlDown).Row
     Worksheets("DATAEACHSTORE").Range("E6:T" & lrow).Copy
     MsgBox " LROW = " & lrow
     'Worksheets("COPYPASTEVALUES_FRM THEN SORT-").Range                              (" A6").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'Worksheets("COPYPASTEVALUES_FRM THEN SORT->").Range("A6").PasteSpecial Paste:=xlPasteFormats
'MsgBox "DATA COPIED Click to go", , "Example"

End Sub
Answer
Discuss

Answers

0
Selected Answer

Please try this code. If the worksheets named in it exist the defined range will be copied and pasted.

Private Sub CommandButton2_Click()
    ' COPY PASTE VALUES NEW DATA FROM DATAEACHSTORE
    ' FIND LAST ROW OF DATA

    Dim Rl As Long
    Dim Rng As Range

    With Worksheets("DATAEACHSTORE")
        Rl = .Cells(.Rows.Count, "AC").End(xlUp).Row
        Set Rng = .Range(.Cells(6, "E"), .Cells(Rl, "T"))
        Rng.Copy
    End With
    MsgBox "Copied range address = " & Rng.Address

    Worksheets("COPYPASTEVALUES_FRM THEN SORT-").Range("A6").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    MsgBox "DATA COPIED Click to go", , "Example"
End Sub
Discuss

Answer the Question

You must create an account to use the forum. Create an Account or Login