AawwYeahh
11-02-2020, 09:11 AM
I have recorded a macro to select the required data IE (A66:BE66)
Open existing workbook IE Database
Paste values
Close
My problem is I need to be able to paste to last empty row not static row IE (110)
current code
Sub databasetest1()
' databasetest1 Macro
ActiveWindow.SmallScroll Down:=51
Range("A66:BE66").Select
Selection.Copy
ChDir "C:\Users\ay\South\users"
Workbooks.Open FileName:="C:\Users\ay\South\users\[DATABASE].xlsx"
ActiveWindow.SmallScroll Down:=102
Rows("110:110").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 2
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Any help would be appreciated!
Open existing workbook IE Database
Paste values
Close
My problem is I need to be able to paste to last empty row not static row IE (110)
current code
Sub databasetest1()
' databasetest1 Macro
ActiveWindow.SmallScroll Down:=51
Range("A66:BE66").Select
Selection.Copy
ChDir "C:\Users\ay\South\users"
Workbooks.Open FileName:="C:\Users\ay\South\users\[DATABASE].xlsx"
ActiveWindow.SmallScroll Down:=102
Rows("110:110").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 35
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 2
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
Any help would be appreciated!