Hi, i have this macro which refreshes a web query after every 5 seconds n copies some data from it into another column.
I want to copy 12 cells from columns A F and G into another file n save it..... and after every 1 min copy another 12 cells from these columns n update into the earlier file n so onSub RefreshTime() Application.ScreenUpdating = False ActiveWorkbook.RefreshAll Application.OnTime Now + TimeValue("00:00:05"), "RefreshTime" Range("l4").Copy Range("g" & Range("g65536").End(xlUp).Offset(1, 0).Row).PasteSpecial Range("l6").Copy Range("f" & Range("f65536").End(xlUp).Offset(1, 0).Row).PasteSpecial Range("a" & Range("a65536").End(xlUp).Offset(1, 0).Row).Value = Format(Now, "hh:mm:ss AM/PM") Application.ScreenUpdating = True End Sub
Example.... copy a1-a12, f1-f12 and g1-g12 into a new file n save it as abcd.csv n close it,
then after 1 min, copy a13-24, f13-f24 and g13-g24 and add into the first blank row in the file abcd.csv and save it n close it,
and so on.
Thank U![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks