target.value

  1. T

    Multiselections in ComboBox

    Hi All I am creating an email useform wherethe user may need to select more than one email address to send to I have the code below which works perfectly well in a worksheet list but doen't work in a userform. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue...
  2. T

    How to make a macro apply to an entire column

    I need to be able to select multiple list items in each cell of column F starting at F2. I have already created the data validation drop down list for F2 through F infinity. I have found the following macro that can perform this function for one cell. How can I get it to apply to F2 through F...
  3. N

    VBA change shape color based on cell value

    Hi I am using a code so that the shape changes the color when a cell value is changed. My problem is that cell J24 is changing as a result of a formula recalculating. So what I have to change in my code shown below to make it work? I prefer that the code will work for 2 shapes since I need to...
  4. I

    If & Then code advice

    Hi, A few months back i was looking at using a code but no browsing through the archives i dont find it, We are looking at the 10th character in one cell then adding a corresponding value to another cell. So my page operates like this. I paste a value or letters & numbers into cell A13 & then...
  5. T

    VBA Code for Auto-Colored Tabs

    Good morning everyone, I have a workbook that I would like to have auto-color each worksheet based on a cell value returning as "False". However each individual worksheet is named based on the text in cell "B1" I would like the code to refer to cell "V1" for the false reading and the tab to be...
  6. J

    VBA change condition and send email using loop?

    Good afternoon, I have 2 separate bits of code that work for a specified row, but I don't want to have to write it 100 times. the first is this one: Sub worksheet_change(ByVal target As Range) Set target = Range("G3") If target.Value = Range("O1") Then Call sendtest2 End If Set target =...
  7. P

    Macro not working 100%

    Hi guys I have the following macro: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range If Target.Cells.CountLarge > 1 Then Exit Sub Set rng = Intersect(Target, Union(Range("E4"), Range("A10:A19"))) If rng Is Nothing Then Exit Sub Select Case rng.Address(0, 0) Case...
  8. D

    Run macro depending on selection in cells

    Hello, I've been googling this and just can't make it work for me. Cells A1,A2 and A3 have a dropdown list, datavalidation one, and depending on whats selected from any list to run corresponding macros so ex if A1=option1 call macro1 if A1=option2 call macro2 if a2=option1 call macro3 if...
  9. J

    Hiding and Unhiding Columns based on multiple drop down lists

    Hi Gurus, I have a stomper. I am trying to hide/unhide columns based on three different drop down lists. The below formula works to hide/unhide when individual drop down lists are selected, however does not work together to "filter down" and show only the columns that apply when all three...
  10. T

    Macro works in 2000 but not in 2016

    I have a script that I have used for years with Excel 2000 for conditional formatting since in that version you were limited to 3 choices. On one of the computers we updated to Excel 2016 and the script no longer works. If you type a letter in a cell, for instance F or f, the script will...
  11. J

    move rows into different sheets by date per quarter.

    So i have a spread sheet and have code adopted from varrious sources to move rows into different sheets based on the date entered into column "A". the sheets are labled by quarter but the code i have moves the row into all sheets instead of the specified one. here is the code i have tried to...
  12. R

    VBA: Multiple Cell Selection issues

    Hi, The below code enables me to 'click' for multiple selections as the screenshot highlights. However, as can be seen in cell K5: - when selecting '4%' and 'a38%" together - '4%' suddenly become '0.04' and this is causing issues for my lookups. Does anyone know what is causing this issue...
  13. A

    Excel 2016: Worksheet Change Event, repeat for many cells

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

    VBA - Multiple worksheet changes in one fell swoop

    Greetings, All. I am a VBA rookie and cannot get multiple types of changes to occur at once. Could someone offer an assist? I am trying to compile multiple fashions of data into one visual dashboard. Shape rotations are good to go, but color changing objects (the second part) aren't working...
  15. L

    specific values to caps???

    To keep the look clean and simple on a few spreadsheets the desire is to have y, yes, n, no, na, n/a inputs from the user displayed as capital letters. looking around i found some vba code that will kind of do what i am after, but the way i typed it up, it cycles through all of the options in...
  16. A

    Multiple vba in one sheet

    Hello. New to VBA but have seen other threads that say it is not possible to just copy and paste multiple codes into one sheet. Can someone help me merge these two codes below...thank you in advance! Private Sub Worksheet_Change(ByVal Target As Range) ' To allow multiple selections in a...
  17. O

    VBA to shift task when done

    Hey Guys So am new to VBA and am having a problem with the below: Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.EnableEvents = False If Target.Column = 2 And Target.Value = "Done" Then LRowCompleted = Sheets("Jobs").Cells(Rows.Count...
  18. M

    Multiple list selections on new line

    I have a list I have created under data validation. I need the list to allow multiple selections with the new selection beginning on a new line. I have watched You Tube Video's and played around but can't seem to get this code right. I am a novice excel user. When I use the data validation...
  19. H

    Sub worksheet_change(ByVal target As Range)

    hello, i am using this code to call macros based on cell value. Sub worksheet_change(ByVal target As Range) Set target = Range("A1") If target.Value = "1" Then Call onepo End If If target.Value = "2" Then Call twopo End If If target.Value = "3" Then Call threepo End If If target.Value = "4"...
  20. I

    Can you check my code please

    Hi, Code is supplied below. There is a couple of things ive noticed. In cell A i type say 12345 when i leave that cell i see the error message which advises photo 12345 does not exist,then yes/no box. If i click No the msgbox closes & then the photo is inserted into the cell. If i click YES the...

Some videos you may like

This Week's Hot Topics

Top