Recent content by dyana

This is the code that I created to try to shade columns, representing months, within each row based on the combination of the leadtime and a 2-digit month code. The objective: When looking at the 2-digit code for each row, start shading the month (corresponding column "1" for Jan...

Thanks Dale, There's another step in this process that I really did not mention and was wondering if the conditional formatting will help. Since I have a time-critical deadline any help is appreciate. The situation of the starting month and month column to start shading will change based on...

Hello, My goal is to shade cells that represent certain months. For example, within Excel if A2 through A17 shows 1,2,3,4,5,6,7,8,9,10,11,12, 5,6, 8,2, (numbers represent the month number i.e. 1 for Jan.) and b1 through b12 shows Jan, Feb, Mar,....Dec I want to shade 5 columns starting with...

Hello LSTAN, The above code works great! I just have a question...I need to modify the code to handle November and December. The code you helped me with above starts to shade columns beginning with the column corresponding to the 2nd digit of "myRng". Although November is four...

I wish you the best with your engineering exams. I did previously try what you recommended, the deleting the icon and rerunning but it still did not work. The part of the code with the problem is: Set newBar = CommandBars.Add(Name:="YearOne", _ Position:=msoBarTop...

Below is the code that I tried. I utilized the same code with the only change being the faceid from "17" to "1142". Sub FirstYearButton2() ' ' FirstYearButton2 Macro ' Macro recorded 4/1/2002 by dparsons ' Dim newBar As CommandBar, con As CommandBarControl Set...

Hello LSTAN, I am now getting back to the project that prompted the above question. I tried the revised code above and it worked and gave me the "Chart icon". Thanks. I have a question, though. I tried to modified the number shown in the "Faceid" part of the code to...

Yes, I am trying to trap for 0 lead time. I tried the above code because the rounding should yield no cells being coded for lead times of 0 yet the code did not work. Any additional ideas? dyana

Disregard this thread. LSTAN helped me out with it. dyana

Hello LSTAN, I appreciate your response. I tried the code and it gave me a run-time error 5 response of "Invalid procedure call or argument". The part of the code that generated this responses was: Set newBar = CommandBars.Add(Name:="YourToolBarName", _...

I am trying to format an area from j2:aj2. Within this range, for each row the has "Price" in column "J" I need that row to be formatted as "currency", and every other row should be formatted as "comma without decimal places". I have tried to develop the...

LSTAN, I have try to modify the code for instances when the lead time is 0, resulting in a requirement for none of the cell in that particular row shaded. The code I have is: Do While myRng <> &quot;&quot; myLeadDate = ActiveSheet.Cells(myRow, myCol + 1) If myLeadDate = 0 Then...

Does anyone know what VBA code to insert to prevent the visual display of a macro being run? dyana

I would like VBA code that builds an icon and places it into the existing Excel toolbar. I have tried to record a macro that creates a custom macro and alters the color and display of the icon that was placed into the toolbar and assigned to a macro. After recording this macro, I noticed that...

If I have a range from d5:z5, and column &quot;D&quot; has various text references and numbers. I want to format the rows, in column &quot;D&quot;, that have the word &quot;Price&quot; as currency, and format the rest as comma without decimal places. Does anybody know how to do this. dyana