Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize( _ Set Rng = Rng.Offset(1, 0).Resize( - 1, ) 'exclude header Set Rng = Sheet1.Range("A1").CurrentRegion 'assuming no blank rows/column LastRow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row Set Sheet2 = Workbooks.Open(TextBox2.Text).Sheets(1) Set Sheet1 = Workbooks.Open(TextBox1.Text).Sheets(1) I want to insert the current date every time i append a new data, my code insert the date one step behind and i'm connfused gagin with my code Please Help me! If I append again the data from File 1 this is now the output Header 1 | Header 2 | Header 3| Sample Out: (This is the output of my script) Header 1 | Header 2 | Header 3| To make it clear let's give another example. My problem is that if i append the data from File 2 it densest return the current date in Header 3 but if I append it again it updates the last one. Sample Output: Header 1 | Header 2 | Header 3|Īs you can see the sample output above inserted the current date in `Header 3. I'm using two files let's name it File 1 and File 2 my script append the data from File 1 to File 2 now every time I append File 2 i want insert Current Date from my Column.
0 Comments
Leave a Reply. |