Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Additional column
Hello all,
The code below copy/pastes on values in column D. How would i amend s that column E is included also???? Cheers!!!!!!! Private Sub CommandButton3_Click() CopyData Range("D9:D13"), "FEEDER" CopyData Range("D16:D58"), "MACHINE" CopyData Range("D63:D73"), "DELIVERY" CopyData Range("D78:D82"), "PECOM" CopyData Range("D88:D94"), "ROLLERS" CopyData Range("D104:D128"), "MISCELLANEOUS" Dim rng As Range, cell As Range Dim nrow As Long, rw As Long Dim col As String Dim Sh As Worksheet Set rng = Range("D9:D94") nrow = Application.CountIf(rng, "0") Set Sh = Worksheets("VK new") rw = 10 For Each cell In Range("D9:D98") If Cells(cell.Row, "D").Interior.ColorIndex = 3 Then col = "G" Else col = "F" End If If Not IsEmpty(cell) Then If IsNumeric(cell) Then If cell 0 Then Cells(cell.Row, 1).Copy Sh.Cells(rw, "A").PasteSpecial Paste:=xlPasteValues Cells(cell.Row, 4).Copy Sh.Cells(rw, col).PasteSpecial Paste:=xlPasteValues Cells(cell.Row, 2).Copy Sh.Cells(rw, "B").PasteSpecial Paste:=xlPasteValues Cells(cell.Row, 3).Copy Sh.Cells(rw, "E").PasteSpecial Paste:=xlPasteValues rw = rw + 1 End If End If End If Next End Su -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Additional column in excel downloaded template. | Excel Discussion (Misc queries) | |||
have a spreadsheet made but it wont let me add additional column | Excel Discussion (Misc queries) | |||
Column chart with additional "average" column | Charts and Charting in Excel | |||
ADDITIONAL FIGURES IN COLUMN DON'T ADD TO TOTAL IN EXCEL | Excel Worksheet Functions | |||
Adding a additional column in to a sum range | Excel Programming |