Home

Color Shading in the Cell based on Column Percentage Value in a List

%3CLINGO-SUB%20id%3D%22lingo-sub-448904%22%20slang%3D%22en-US%22%3EColor%20Shading%20in%20the%20Cell%20based%20on%20Column%20Percentage%20Value%20in%20a%20List%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-448904%22%20slang%3D%22en-US%22%3E%3CP%3EDear%20Colleagues%3B%3C%2FP%3E%3CP%3EI%20know%20traditional%20macro%20to%20add%20date%20on%20column%20when%20cells%20has%20been%20modified%20already.%3C%2FP%3E%3CP%3ENow%2C%20i%20need%20to%20repeat%20this%20comand%20for%20next%20columns%2C%20%22on%20the%20same%20worksheet%22%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EFor%20example%3A%20Something%20as%20..%3C%2FP%3E%3CP%3EIf%20Target.Column%20%3D%203%20Then%3CBR%20%2F%3ESheets(%22FAC%22).Cells(Target.Row%2C%2013).Value%20%3D%20Now%3C%2FP%3E%3CP%3EAND%3C%2FP%3E%3CP%3EIf%20Target.Column%20%3D%204%20Then%3CBR%20%2F%3ESheets(%22FAC%22).Cells(Target.Row%2C%2014).Value%20%3D%20Now%3C%2FP%3E%3CP%3EAND%3C%2FP%3E%3CP%3EIf%20Target.Column%20%3D%205%20Then%3CBR%20%2F%3ESheets(%22FAC%22).Cells(Target.Row%2C%2015).Value%20%3D%20Now%3C%2FP%3E%3CP%3EAND%20ELSE...%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EOnly%20works%20first%20one.%26nbsp%3B%20%26nbsp%3B%3A(%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Eandres.rojas%40sce.com.ec%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-448904%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EExcel%20Online%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
androjas
Occasional Visitor

Dear Colleagues;

I know traditional macro to add date on column when cells has been modified already.

Now, i need to repeat this comand for next columns, "on the same worksheet"

 

For example: Something as ..

If Target.Column = 3 Then
Sheets("FAC").Cells(Target.Row, 13).Value = Now

AND

If Target.Column = 4 Then
Sheets("FAC").Cells(Target.Row, 14).Value = Now

AND

If Target.Column = 5 Then
Sheets("FAC").Cells(Target.Row, 15).Value = Now

AND ELSE...

 

Only works first one.   :( 

 

andres.rojas@sce.com.ec

 

Related Conversations
flashing a white screen while open new tab
cntvertex in Discussions on
13 Replies
Tabs and Dark Mode
cjc2112 in Discussions on
22 Replies
Stable version of Edge insider browser
HotCakeX in Discussions on
35 Replies
How to Prevent Teams from Auto-Launch
chenrylee in Microsoft Teams on
28 Replies
PacketMon Components are not loading in WAC 1909
HotCakeX in Windows Admin Center on
2 Replies