1. L

    Form with a command button that is not working

    After I fill in the three boxes with drop downs I have a pop up after I click the enter button with a message that says Qualification....Please select the inspection type from drop down. It highlights that box in red and populates this long number in the box. I'm not sure where the number...
  2. S


    I need a help with the below mentioned code. As the code runs well . Further I need to incorporate the following points. 1. Outside border as Color white 2. In table alternate rows RGB (211 217 222). I meant 1, 3, 5 ROWS etc. 3. 2, 4, 6 rows as .Interior.Color = RGB(234, 237, 239) Keeping...
  3. S

    Vba code for table formatting

    Dear Team, I need outside border of table white and alternate rows having interior color RGB (211,217,,222) Please help with the following vba code. Sub All_Tables_All_Sheets_New() Dim T As ListObject Dim c As Long Dim i As Long For i = 1 To Sheets.Count For Each T In...
  4. D

    Elseif Code Working Partially

    Hi, I have below code that should highlight cells R3, R4, R5 in black. However it is only highlighting R3 and R4 and not R5. Can someone please tell me whats wrong with i. Private Sub Worksheet_Change(ByVal Target As Range) Dim R1 As Range, R2 As Range, R6 As Range, R3 As Range, R4 As...
  5. I

    Msgbox yes no question

    Hi, I have the code in use shown below. Can you advise what ive missed please as when i select No the code still runs as opposed to exit. Yes should continut but No should exit Private Sub CommandButton1_Click()MsgBox "Did You Select The Vehicle?", vbYesNo + vbInformation, "Vehicle Selection...
  6. I

    Select a specific cell after code pasted

    Hi, Last night i tried a few variations of selecting a specific cell after pasting the code but none worked for me. I have the code in use below. Once the code below is run i would like to select cell E7 on both sheets DR SITE & EBAY Private Sub...
  7. A

    VBA to change cell colours and font colours based on values

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

    vba code needs a little tweak

    I'm currently using the following code (inside a much larger code) to print all worksheets that are named with a 5-digit code .... For Each ws In ThisWorkbook.Worksheets If ws.Name Like "#####" Then ws.Range("P22:U22").Font.Color = vbWhite ws.Range("P22:U22").Interior.Color...
  9. S

    [VBA] Reference to commnadbutton's property without directly using its name

    I have a around 10 cFmtCell commandbuttons on a userform. Instead of repeating the following code for 10 times, with varying indices at the end, is there a more convenient way to write the code? Private Sub cFmtCell7_Click() Call FmtCellTxt(cFmtCell7.BackColor, vbWhite) Unload Me End...
  10. P

    small adjustment needed for Printing code

    Hi, I have the following code to print pages 1 and 2 of any sheet named with a 4-digit number ... For Each ws In ThisWorkbook.Worksheets If ws.Name Like "#####" Then ws.Range("P22:U22").Font.Color = vbWhite ws.Range("P22:U22").Interior.Color = vbWhite...

Some videos you may like

This Week's Hot Topics