rgb255

Hi What is the maximum value that color can take? I wrote the code below. Can I say the min value is 0 which is the value of rgb(0,0,0) and max value is 16777215 which is the value of rgb(255,255,255) Can I say that? Thank you very much. Sub myrgb() MsgBox RGB(0, 0, 0) MsgBox RGB(255...

how can i shorten up a range with usedrange in a range? or how to properly use last row used xlup? something like: set source = range ("E3:E4000").usedrange or set source = range ("E3").end.xlup Set source = Range("E3:E4000") source.Interior.Color = xlNone For Each cell In source...

Hey i got some Labels on my userform labels read value for cell's and that part works fine and if no value still ok but if cell text is "FALSE" then my Labels show that " and I didn want it to do that.. this i the code i have on my userform https://ibb.co/9ncB5q4 Private Sub...

I am a newbie here, also a newbie in VBA. I have two worksheets that I wanted to compare. Let's say, Sheet1 Column DWG. NO Column SYM Sheet2 Column DWG. NO Column SYM But the column position of DWG and SYM in sheet2 is not always the same so first I need to locate the positions of the column...

I am trying to create a menu with shapes that create itself on every page and fills in sheet names as shape text boxes. I want to loop through an array of sheet names and an array of macro names and assign a macro for each shape textbox. Dim sheetNames As Variant Dim macroNames() As Variant...

I've searched for this, and can't find the right coding to get this to work!! Here is what I have: ChartCol.Select Charts.Add.NAME = "Option Average Scores" ActiveChart.ChartType = xlColumnClustered ActiveChart.Location Where:=xlLocationAsObject, NAME:="Visuals"...

Hi, I am trying to apply conditional formatting using VBA. I have got this code to work successfully : Sub ResetCF()Application.ScreenUpdating = False With ActiveSheet With .Range("$E:$R") 'Blank Cells .FormatConditions.Add xlExpression...

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 2 Then ActiveSheet.Shapes("srRectangle1").Fill.ForeColor.RGB = RGB(255, 0, 0) ElseIf Target.Value...

Hi I wrote the code below but did nothing. What this code supposed to do? Thank you so much. ActiveWorkbook.Colors(5) = RGB(255, 0, 0) https://docs.microsoft.com/en-us/office/vba/api/Excel.Workbook.Colors

Hi All, I have some files with a lot of sheets and each sheet has different ranges that I am using Conditional Formatting in. It works fine. But every few weeks, I am having to sit down and clean all the extra CFs from the file because after running the macros on those files, the cells with CFs...

I am having a problem getting a worksheet change macro to run. I have range B1:B6 that is toggled between 1 and 2 by way of a radio button. The worksheet change macro runs fine if I manually input a value. And the macro I try to run through the worksheet change macro runs fine if I run it...

Trying to find the text "XLD XLD" and format row accordingly, not having much luck, appreciate the assistance. Dim i As Long For i = Lastrow To 1 Step -1 If Cells(i, 1) = “XLD” Then '‘ You can change this text Range(Cells(i, 2), Cells(i, 5)).FontStyle = "Bold"...

Back in early May, with the help of Mumps and My Answser is this, I was able to create a status board used by our operating room. Because Conditional Formating was not an option, we used VBA that changed the colors of a group of cells based on a drop down box value. The following code works...

Hi guys, I am working on a notfication via conditional formatting and needed help combining a formula for conditional formatting Is it possible to write the below as one statement? =AND($D2<>"",ISNA(VLOOKUP($D2,$I$4:$I$5,1,FALSE))) =ABS($E2)>0.01 Individually these formulas work but I need...

Hi everybody I have several checkboxes that will go to condition comboboxes and tetxtboxes. Are there any way to reduce vba code repetitions, or using macros, and, how to do that in my example below? Private Sub chkCx_Change() If chkCx.Value = True Then cboB1.Enabled = True...

I am trying to modify a status board for our hospital operating room that will enable whoever is updating the board to change the color of cells according to a value selected from a drop down box. Unfortunately, I can't use conditional formatting hence the VBA route. I have be experimenting...

Hi All, I write this code, does the job but seems long. Is there a shorter way to rewrite this code and still do its job? If ActiveSheet.Range("B2").Value = "Red" Then ActiveSheet.Shapes("shEAC").Fill.ForeColor.RGB = RGB(255, 0, 0) Else If...

Could I please get help simplifying (if possible) the message box. Currently, the message box pops at the end of the code and displays the following when it finds a duplicate in a row between range B and K. cell.address and cell.value cell.address and cell.value And repeats any duplicate...

Hi All, I need a bit of help here. I am trying to utilize the word "Vacant" to trigger a tab color change on my workbook based on a value entered on another sheet. The code works as intended when I enter "Vacant" in cell $DB$7 on the same sheet but, when that cell is linked to another sheet...

I'm trying to modify the code found in this thread for a workbook I have. I've added the formulas that suit my conditional formatting requirements, but I need help/education with applying the rules to each row on the worksheet (2-31) and also modifying the sheet name(red lettering) reference in...