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
Highlighted
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