c.offset

Hi, I have the written the following code but it is slow to run which is causing the end users issues, is there anyway of speeding it up? Any help would be much appreciated. Sub CheckButtons() AppStart Lr = TransferSht.Range("B" & Rows.Count).End(xlUp).Row y = 96 + Lr For x = 101 To y...

Arrgh!, Last code for this complex thing. My quandary is using the TextBox (SPR_IDTB) from a userform to populate a ListBox on the userform. If the matching ID (SPR_IDTB) is found, pull the value in the same row from column A and from Column J. End after searching 1 worksheet. TextBox value is...

Evening Is there a simpler way to perform this action. and possibly center align the offset value without a new loop. Thanks guys :) Dim r As RangeSet r = Range("Z3", Range("Z" & Rows.Count).End(xlUp)) For Each c In r If c.Value = "AmountPaid" Then c.Offset(, 8) = "Close" If c.Value = "Amount...

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

Hello All, I am trying to change my VBA codes to make more user friendly by giving the users ability to determine the start and finish of the ranges. The code that is already working is like this: Sub Test() Worksheets("Express").Activate...

Hello All, I tried the following, but it is making all fonts black. What is it that I am doing wrong? For Each c In .Range("A5:A170") If c.Value = "Ex" Then c.Offset(, 1).Interior.Color = 192...