#1
|
|||
|
|||
Copying specific cells to a new sheets also give sheetname
Hi guys,
I have a function that loops through all the sheets in a excel document I return the name of the sheets, See code below: Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. 'MsgBox ActiveWorkbook.Worksheets(I).Name Next Now I need a function my exceldocument contain over 30 different columns "CAT", "DOG", "BIRD" ,"HORSE" etc. I need a script that check after a certain cell-color (Blue, RGB 0,112,192) when it finds the first blue cell, the script copying the blue cell + the first word in the same column, the word is always on row 1, also copying the word in column B in the same row to the same place but in a new sheet, the script also copying cell from the same column it finds the blue cell on, the first row cell and give it as name on the sheet it creats so example see pictures this is a orginal excel document example result 1 example result 2 Could someone help me out ? Thank you in advance |
Tags |
copy column, copy range |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Copying text range of cells to different cells adds an extra line | jpb103 | Word VBA | 2 | 07-23-2014 12:22 PM |
Copying a formula that uses pivottable cells | Paul46 | Excel | 0 | 02-08-2014 07:04 AM |
Copying cells | isminoh | Excel | 5 | 04-18-2012 11:49 AM |
Copying sheets | DavidSNPCPA | Excel | 2 | 01-19-2012 03:54 AM |
Repeated Cells in different sheets | mhdagtas | Excel | 2 | 04-27-2011 12:02 AM |