Hi Guys,
I have a data that updates daily let just say on cell A1. What I am trying to do is I want to copy paste the data from cell A1 automatically every time I press the button and paste it into cell B1. As I mentioned earlier, the data is updated daily so the number on cell A1 changes everyday, so I want the value for the next day is pasted on cell B2, B3, B4, and so on.
thanks
Sub Log_Value() If [B1] = Empty Then [B1] = [A1] Else Range("B" & Rows.Count).End(xlUp).Offset(1) = [A1] End If End Sub
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
Welcome to the forum.
You may try something like this...
Sub CopyData() Range("A1").Copy If Range("B1").Value = "" Then Range("B1").PasteSpecial xlPasteAll Else Range("B" & Rows.Count).End(3)(2).PasteSpecial xlPasteAll End If Application.CutCopyMode = 0 End Sub
Regards
sktneer
Treat people the way you want to be treated. Talk to people the way you want to be talked to.
Respect is earned NOT given.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks