| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Colormarking of fields based on colors in another sheet (difficult !!)
Hello, big challange to make ! (for me). Perhaps somebody can help me out.
In Sheet1 I have 66 Columns and appr 60 records. Column A = TextCode1 (like 3A, 3B, etc..), Column B = TextCode2 (like A, B, etc..), Column C till BN is heading nr.1 till 64. In the records of Column C till BN are specific records only 'green' colored (filled color). There is no data/value registered in it. Only the color. In Sheet2 I have the same columns but now started from Column K. (TextCode1 in Column K, TextCode2 in Column L and the headings nr.1 till 64 in the Columns M till BX). In sheet 2 are in the datafields of column M till BX values registered. I like to have a module which; Loop in Sheet2 from record 2 till last. Based on TextCode1+TextCode2, Lookup in Sheet1 to the identical TextCode1+TextCode2 and then copy the colorformat from that row (from C till BN) from sheet 1 to this record in sheet2 in the columns M till BX of the specific record of the loop. Based on the identical code, you will get then the same colored records. Finally; A module thats overlooks all records in Sheet2. If the colored record is 'green' but there's no value registered, then color the field 'orange'. If there's is a value registered in a field that isn't 'green' then color the record 'red'. So,...... if there's a better creator then me :) So please. Thanks !! regards, Johan. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Colormarking of fields based on colors in another sheet(difficult !!)
Thanks.
Can you provide me an email adres were I can sent it to. Or is there a possiblity to include attachements in this groups (I can find it). You can send me the adress to regards, Johan. |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Colormarking of fields based on colors in another sheet(difficult !!)
can you put a file on http://www.cjoint.com/
and return here to give us the download link isabelle Le 2016-10-08 * 12:51, a écrit : Thanks. Can you provide me an email adres were I can sent it to. Or is there a possiblity to include attachements in this groups (I can find it). You can send me the adress to regards, Johan. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Colormarking of fields based on colors in another sheet(difficult !!)
Yes, It works :)
The download link is created. The file is downloadable within 21hrs. In the file I'd explained my question clear with examples. It's a bit changed then I'd asked earlier. Hopely you can help me out. Thanks ! The link has been created: http://www.cjoint.com/c/FJjfVKxvOEJ regards, Johan |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Colormarking of fields based on colors in another sheet(difficult !!)
hi Johan,
i do not good understand the conditions for colors (Column M and X till CU), i hope you could adapt the macro for this part otherwise, please return here asking for details ... Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False TargetRow = Target.Row rw = Application.Match(Range("I" & TargetRow), Sheets("Codes").Range("I:I"), 0) 'Step1: The existing filled colored in this sheet in column L and M and X till CU, to change to 'no color'. If Target.Column = 12 Then 'column "L" If Sheets("Data").Range("L" & TargetRow) < "" Then Sheets("Codes").Range("L" & rw & ":CU" & rw).Copy Sheets("Data").Range("L" & TargetRow).PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False Else Sheets("Data").Range("L" & TargetRow & ":CU" & TargetRow).Interior.Color = xlNone 'clear the datas in this line (Mx:CUx), if date was cleared ? End If Target.Select Application.EnableEvents = True End If 'Step2: If Target.Column = 13 Or (Target.Column = 24 And Target.Column <= 99) Then '(Column M and X till CU) datacolor = Sheets("Codes").Cells(rw, Target.Column).Interior.Color Select Case datacolor Case 15986394: Target.Interior.Color = 6750054 Case 16777215: Target.Interior.Color = 255 End Select Application.EnableEvents = True End If End Sub isabelle Le 2016-10-09 * 01:51, a écrit : Yes, It works :) The download link is created. The file is downloadable within 21hrs. In the file I'd explained my question clear with examples. It's a bit changed then I'd asked earlier. Hopely you can help me out. Thanks ! The link has been created: http://www.cjoint.com/c/FJjfVKxvOEJ regards, Johan |
|
#7
|
|||
|
|||
|
Chuyển nh* th*nh hưng Chuyển nh* trọn góiPhó Thủ tướng Trương Hòa Bình cũng đã chỉ đạo Bộ Công an khẩn trương thực hiện ý kiến chỉ đạo của Tổng B* thư Nguyễn Phú Trọng tại văn bản số 1578-CV/VPTW của Văn phòng Trung ương Đảng về việc chỉ đạo cơ quan chức năng của Bộ Công an điều tra l*m rõ các vi phạm dẫn đến thua lỗ gần 3.300 tỷ đồng giai đoạn 2012-2013 tại PVC, báo cáo Tổng B* thư v* Thủ tướng Ch*nh phủ.
Thanh tra Ch*nh phủ được giao nhiệm vụ tiếp tục l*m rõ các vi phạm trong việc đầu tư, thực hiện các dự án của PVC giai đoạn 2008-2013, xác định rõ trách nhiệm của t*p thể, cá nhân có liên quan, trong đó có trách nhiệm của người đứng đầu v* đề xuất x* lý, báo cáo Thủ tướng Ch*nh phủ trong tháng 10 tới. Phó Thủ tướng Trương Hòa Bình chỉ đạo Bộ T*i ch*nh, Bộ Công Thương xác định việc lỗ lũy kế gần 3.300 tỷ đồng của PVC giai đoạn 2012-2013 có bảo to*n vốn hay không; có văn bản g*i Bộ Công an v* Thanh tra Ch*nh phủ để phối hợp x* lý, báo cáo kết quả lên Thủ tướng Ch*nh phủ Chuyển nh* th*nh hưng |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Change row colors based on a cell value | Excel Worksheet Functions | |||
| Calculated Fields Based on Running Total Fields? | Excel Programming | |||
| Calculated Fields Based on Running Total Fields? | Excel Programming | |||
| Value based Text Colors | Excel Programming | |||
| How do I fill row colors based on cell value? | Excel Discussion (Misc queries) | |||
Hybrid Mode
