I am using a macro to capture data from one sheet and populating it on a second sheet. Now I am trying to take it a step further and also populate this data in another workbook. I have my macro in a button. I would like to put this other macro in the same button. Could some one please help, or guide me in the right direction?
Here is the macro I am using
Sub TextBox5_Click()
Dim LR As Long: LR = Sheets("OPERATORS").Range("A" & Rows.Count).End(xlUp).Row
Dim NR As Long
Dim RNG As Range: Set RNG = Sheets("OPERATORS").Range("A2:A" & LR)
With Sheets("TRACKER")
NR = .Range("B" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & NR).Resize(RNG.Cells.Count).Value = Now
.Range("B" & NR).Resize(RNG.Cells.Count).Value = RNG.Value
.Range("C" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 1).Value
.Range("D" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 2).Value
.Range("E" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 3).Value
.Range("F" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 4).Value
.Range("G" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 5).Value
.Range("H" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 6).Value
.Range("I" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 7).Value
.Range("J" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 9).Value
.Range("K" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 10).Value
.Range("L" & NR).Resize(RNG.Cells.Count).Value = RNG.Offset(0, 11).Value
End With
End Sub
Thanks
Bookmarks