target.value

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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