Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Do Until Range("xcolumn" & 6) = ""
VBA Do Until Range("xcolumn" & 6) = ""
What I want to do is copy a column (from a worksheet that contains formulas) and paste the data to another column on another worksheet (template with dates also) based on month and year. I want this to happen untill there is no more data for that month. Then next month I want it to take Feb 06 coulmn and do the same thing, and so on for the following month. I want to create this macro so that when a person clicks on a button that is linked to this macro…they update the template sheet with the current month’s data. I can’t simply copy the whole sheet that contains the formulas because I don’t want the previous months overwritten in the template. Below is an example of my data and what I have so far in VBA …and I know it is incomplete and perhaps not the right VBA codes I need…please help. Thank You in advance. Nadia moving left to right Column AD Inbound Nov-05 Dec-05 Jan-06 Feb-06 Oct-03 0 0 0 Nov-03 3 3 3 Dec-03 9 8 8 Jan-04 62 59 59 Feb-04 132 127 127 Mar-04 221 212 212 Apr-04 180 167 167 xrow = 5 xcolumn = AD Cxrow2 = 1 Range("AD5") = ("Jan-06") Range("AE5") = ("Feb-06") Range("AF5") = ("Mar-06") Do Until Range("xcolumn" & 6) = "" Sheets("Reporting month").Select If Range("L1") = "Jan-06" Then Range("AD6:AD44").Select Selection.Copy Sheets("Data").Select Range("AD6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False If Range("AE" & xrow) = "Feb-06" Then Range("AE6:AE44").Select Selection.Copy Sheets("Data").Select Range("AE6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If If Range("AF" & xrow) = "Mar-06" Then Range("AF6:AF44").Select Selection.Copy Sheets("Data").Select Range("AF6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False xcolumn = xcolumn + 1 Exit Do End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel - Golf - how to display "-2" as "2 Under" or "4"as "+4" or "4 Over" in a calculation cell | Excel Discussion (Misc queries) | |||
change "true" and "false" to "availble" and "out of stock" | Excel Worksheet Functions | |||
HELP on "left","right","find","len","substitute" functions | Excel Discussion (Misc queries) | |||
Count occurences of "1"/"0" (or"TRUE"/"FALSE") in a row w. conditions in the next | New Users to Excel | |||
use variable in Workbooks("book1").Worksheets("sheet1").Range("a1" | Excel Programming |