target.value

I had reached out previously about getting a code so that based on a selection in row A if it were to be switched to completed that the entire row would be cut and then put into the Completed tab. I wanted to see if I could get this code edited so that the same option for when it is completed...

I am reposting an old post in which I tried to use but does not work am I doing something wrong. below is the original post: ----------------------- Here is a Vba solution: If you will be entering all your values in column "A" for example use this: Put a list of your shortened values like...

The VAB Code below Work but I only want it in two column numbers 20 (T) and 23 (W) but its applying it to all columns I just want on these two. Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo...

Hi there Need some help I put the vba in for a cell to select multiple drop down options and it works :). But when I change it so you can do this to the whole column it don't work and it still only work in the original cell. Its Column T which is Column number 20 but start in cell T8: Sub...

I am working on a simple spreadsheet that changes characters when you click on the cell, then counts the cells that are of a certain character. I have set the range to only look at certain cells (A3:A27, B3:B27) but anytime I click on row 1 (Row with several merged cells) or select multiple...

I want to be able to have a workbook do a function when opened. So I want to have a targeted column in a sheet, if a date is 90 days prior to the current date, it will automatically delete the section associated with that date. Example - if today is 4/23/19 and a previous input in a sheet is...

Im testing the following code empty excel sheet: --------------------------------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value > 280 Then Cells(1, 2) = 99 End If End Sub...

I have this string of VBA code in Sheet3(WIP), the first "Option Explicit" runs as written. The next VBA code runs as written However the bottom VBA code "Option Explicit" very similar but for reason it doesn't run as written, I get no error message. maybe there is a conflict with two VBA...

'Escoger valor celda para borrar fotos e ir insertando segun correspondaPrivate Sub worksheet_change(ByVal target As Range) If target.Cells.Count > 1 Then Exit Sub If IsNumeric(target) And target.Address = "$L$9" Then If Range("P7").Value = "3" Then Select Case target.Value...

I'm kind of new at using VBA codes. I have a worksheet that so far zooms in to see the drop down list. Now I'm trying to have the VBA have a way to be able to multi select from the drop down list. Here is the code that I am using. Private Sub Worksheet_SelectionChange(ByVal Target As Range)...

I want to have a message box pop up if the date entered in column A of a table row is earlier than todays date, I have some code but it only seems to sometimes work. What is wrong with it or is there better code? The table's name is npss_quote Private Sub Worksheet_Change(ByVal Target As Range)...

Why doesn't this work/trigger? Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Source As Range) Application.EnableEvents = True Application.ScreenUpdating = False If Target.Address <> "$A$1" Then Exit Sub Application.Columns("D:BP").Select...

Good morning. I am new to this site and brand new to VBA. Basically I am trying to add 2 codes to the same sheet but I am not doing it correctly as only one code is working. Could someone please help me? These are the 2 codes I am trying to get on the same sheet: #1 Private Sub...

Good Afternoon, I'm new to VBA codes and need some help. I would like to have the two code below operating on the same worksheet. I've got the first one working but not sure how to add the second. Some help would be greatly appreciate. Code 1) Private Sub Worksheet_Change(ByVal Target As...

Hi I just learned VBA, I made code like this Dim xRg As Range 'Update by Extendoffice 2018/3/7 Private Sub Worksheet_Change (ByVal Target As Range) On Error Resume Next If Target.Cells.Count> 1 Then Exit Sub Set xRg = Intersect (Range ("c4"), Target) If xRg Is Nothing Then Exit...

Hey, I'm new to VBA and am trying to implement some code into my spreadsheets. At the moment I am trying to hide rows based on a value in a specific cell (K21). Basically what I am trying to achieve is the following If cell K21 = 1, hide rows 36 to 46 If cell K21 = 2, hide rows 40 to 46 If...

Long story short, I have specific columns on the right side of my worksheet that will 'show' or 'hide' depending on input from the left side of the worksheet. If it was just me, I would do this manually and not bat an eye, but I give this worksheet to a bunch of people who think the only way to...

Hello, I have a two dropdown based cells (C4 and C23) that have some values. Based on the selected dropdown condition, I need to hide/ unhide certain rows in another sheet (written macros for it). I'm using the following code, but only one works at a time. Could you please help as I'm stuck...

Hi all, I have a problem and I cant get my head round how to fix it. Basically i have 2 columns with dates in, and i need the dates to be formatted correctly otherwise is messes up some of my formula's. So if the date contains "." or "-" i replace them with "/" If Target.Column = 1 Or...

Hi all, Thanks in advance. I have a macro that I wrote that works...sorta. Sub worksheet_change(ByVal target As Range) Set target = Range("H2") If target.Value = "1" Then ActiveSheet.Range("A30:A238").EntireRow.Hidden = False Range("A56:A238").EntireRow.Hidden = True End If If...