I have many shapes (78) that I need to change the size of when a cell value is changed. The following code works to change one shape but I'm struggling to get it to work with more than one shape.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRect As Rectangle
Hi all, I am currently stuck on finding a way to input all new changes made to a specific row of cells into a string so that I can parse the final string into another function that drafts out an Outlook message. As there will be continuous updates made to the row, I want to be able to "write"...
Hi, below I have VBA for worksheet change. But I want it only to run on 1 sheet, not across all sheets.
What do I need to change to make it run for a specific sheet name.
Private Sub Worksheet_Calculate()
If Range("F3").Value <> oldval Then
oldval = Range("F3").Value
I've been searching all over for a couple of hours and it seems what I am looking for is either too simple to have been requested. I see far more complex requests but I still can't figure out how to do it.
I have an excel table where users will enter data in columns A3 -> D3. Column E is hidden...
1) Can anyone guide me as where I am writing my code wrong? I need my worksheet to do two separate things for two sets of ranges via worksheet_Change event. the top part works, but the latter part doesn't run at all, ie. the part where I need Excel to locate & go to the adjacent cell by...
First of all, good morning and thanks to all of you who come on here and help us out and never asking much in return. You've inspired me to go to other forums where I actually do something about the subject and help out. :)
I seem to have a sick dog now that is wanting attention so I've broken...
I'm new to VBA macros and cannot figure out a way to add a loop to my macro.
I have data output from an experiment and want to do the following:
Copy/paste data from sheet "Data" to sheet "Summary" (see below code).
Loop with an offset of 130 rows.
The paste function should select...
Can I skip/disable a sub code before run my marco then recover it like as following:
Private Sub progress()
Skip run/disable Sub Worksheet_Change(ByVal Target As Range)
Recover/enable Sub Worksheet_Change(ByVal Target As Range)
First off, I just started to really learn vba, so I'm clueless to some of this stuff but I do know how to research and learn.
Now, I have a worksheet that I to automatically input data into cells when specific columns are changed.
I've been working and searching for hours and I have had no...
A little background on my vba project: When the date in a cell is a past date, the cell style changes to "Bad".
I am trying to code this logic: If you change a past date to today's or a future date, then change a cell in another column, but same row, to the style "Neutral". For some...
I have a list of existing worksheet names in A1:A50 (although the worksheets themselves are NOT in that order) and a list of new names I want to update each sheet to in B1:B50. I would like to run a macro that looks for the worksheet name in A1, finds it in the workbook and then renames it to B1...
Recently got promoted at my job to start and manage inventory. We have a set up excel sheet but currently have to manually update inventory when a product leaves. To keep it short for example product one uses 5 screws, 2 nuts, and one hinge. How would I make it so that if I enter that we sold 5...
I have this code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H16]) Is Nothing Then
If [H16] < -9.99 Then
[I1].EntireColumn.Hidden = False
Else: [I1].EntireColumn.Hidden = True
It works perfectly, but I...
I am trying to do a worksheet change code, but can't quite get it right.
Private Sub Worksheet_Change(ByVal Target As Range) If H16 < -10 Then
Columns("I:I").Hidden = False
What I am trying to do is, when the value of H16 is changed, and it is less...
Need help I am new pretty new to VBA, created a worksheet it is working for 1 condition but I tried a lot but unable to make it work for the second condition in the same worksheet.
Background: The first code pasted below calls the I need to below code to call a macro when the condition1...
I have two worksheet changes that I am having trouble to combine so that the changes work at the same time. The two changes do affect the same cells, but one hides the whole row and one stops specific cells from being deleted.
Here are the two codes:
Private Sub Worksheet_Change(ByVal...
I have the following macros set up in one worksheet "code-behind" page to call other macros when specific cells are changed:
Private Sub worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B9")) Is Nothing Then Call...
I'm not sure if this is possible to do, but I figured I'd ask around and maybe someone smarter than I will have a creative solution.
I have a worksheet change event that highlights the current row that is selected. See below:
Option ExplicitConst MyAreas =...
I have been able to customize the right click menu on various cells in my workbook, but I was wondering if it were possible to customize the right click menu that appears when you click on any page tab. Is this possible?
Any help would be greatly appreciated. I'll attach the code...