Hello,
So I have tried to research this already but happy to be pointed in the right direction to a post that can help with this!
Basically I am creating several checksheets on different sheets that once completed I want to hit a button and it take certain info from each sheet such as the time, date etc and what sheet and have that fill in a table on a separate sheet as a history log. I've used the record feature and just copy and pasted the data and it fills in the data fine from my first trial sheet however I can only get it to fill in the top line of the table and not filter down to the next empty line.
2 querys then how do I get it to fill out the next empty line
secondly will whatever the fix the first problem work for every sheet and separate button that I put in place?
this is my lengthy recorded code so far;
Many thanks
Joe
So I have tried to research this already but happy to be pointed in the right direction to a post that can help with this!
Basically I am creating several checksheets on different sheets that once completed I want to hit a button and it take certain info from each sheet such as the time, date etc and what sheet and have that fill in a table on a separate sheet as a history log. I've used the record feature and just copy and pasted the data and it fills in the data fine from my first trial sheet however I can only get it to fill in the top line of the table and not filter down to the next empty line.
2 querys then how do I get it to fill out the next empty line
secondly will whatever the fix the first problem work for every sheet and separate button that I put in place?
this is my lengthy recorded code so far;
VBA Code:
Sub HistoryBTF1()
'
' HistoryBTF1 Macro
'
Range("E3").Select
Sheets("Delivery").Select
Range("K4:L4").Select
Selection.Copy
Sheets("HISTORY LOG ").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
Sheets("Delivery").Select
Range("K5:L5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("HISTORY LOG ").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Delivery").Select
Range("G4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("HISTORY LOG ").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Delivery").Select
Range("E1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("HISTORY LOG ").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Delivery").Select
Range("J26:L26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("HISTORY LOG ").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
End Sub
Many thanks
Joe