Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Not Intersect(Target, Range("e273:g284")) Is Nothing Then
Set rng = Range("e273:g284")
ElseIf Not Intersect(Target, Range("g273:j284")) Is Nothing Then
Set rng = Range("g273:j284")
ElseIf Not Intersect(Target, Range("j273:l284")) Is Nothing Then
Set rng = Range("j273:l284")
End If
Application.EnableEvents = False
If Not rng Is Nothing Then
If Application. CountIf(rng, Target.Cells(1, 1).Value) > 1 Then
MsgBox "This vehicle is booked out at this time"
Target.ClearContents
Target.Cells(1, 1).Select
End If
End If
Application.EnableEvents = True
End Sub
the code is perfect for what i need it to do but the only problem i have is that the codes roll on from each other... I.E:- E273:G284 - G273:J284 - J273:L284. first ends in G second starts in G, Second ends on J third starts on J. for some reason this doesnt work, the first code gets the prority and works but the second works in all the columns except the first one.. in this case the first code is fine, second actually works from H not G and third works from K not J
I would like to have two series of data using the same X axis (date, formatted in months). The Y axis is in intervals of 100,000.
The first data series is historical (actual) data (i.e. Jan 2009 to August 2011). The second data series is forecast (Sept 2011 - August 2012). So i want the forecast series to start immediately after the historical series. It is a 'line with markers' chart. The key objective is that the forecast data looks visually distinct from the historial series.
I'm trying to convert various codes from one column of an excel spreadsheet into different codes in another column. I was able to accomplish this with "If" statements, however I'm only able to string together seven of these statements in one command. Is there a better way to add formulas for more than seven conversions? Below is a copy of what I've done so far with the seven converts:
I am having a with a controlled loop. If the loop is on the last pass and an error occurs, it goes into a never ending loop. Once the error portion of code is excuted, the code resumes to the same line. I'm not sure how to solve this problem. I have attached a sample file with all code if needed.
Copy the correlating Row from (Worksheet DataDump Column AJ) to (Worksheet Calc Column A) IF Worksheet DataDump Column B ends in 3
Here is what I got so far..
Code: Sub copyWorkPackages() Dim WPThree As Range For Each WPThree In Range("DataDump!B2:B" & Range("DataDump!B" & Rows.Count).End(xlUp).Row) If Right(Range("DataDump!B2:B" & WPThree.Row), 1) = 3 Then End Sub
I want to copy range A to B, but I don't want to copy the whole column of A. I want to copy the data on A where B ends. For instance, If Column is A:50 and B is B:40 then I only want to copy A:40. I've trying the code below, but for some reason it deletes the range. Once the code is finished there is nothing in A or B.
I have a User Form with 2 groups of 3 radio buttons let's say. The user must choose one button from each group, then press "GO" which runs specific code depending on what buttons they pressed.
How do I make the variables public or static so that after both radio buttons were selected, another seperate procedure in the same module (The GO procedure) can know what selections were made so it can run code based on those selections? In this example, there are only 2 groups of three radio buttons, but in reality I have 30 buttons and it keeps growing so I need the most direct/simple way to solve this.
For Example:
UserForm1 Radio Button Group 1:
Button 1 Button 2 Button 3
Same UserForm1 but now here is Radio Button Group 2:
Button 4 Button 5 Button 6
I need to know which buttons the user clicked from Group 1 and Group 2 after they finished both their selections from each group, and then run code depending on what combination of buttons have been selected. I'm good to go with the If/Then code to decide which code to run, I just cant keep the variables from reading as 'Empty' when I try to see what the user selected when pressing GO and running that procedure.
I have a print macro that runs from a command button, when I use it the workbook goes to the sheet printed. Can I somehow make the workbook go back to a sheet of my choice? Here is the macro, The command button is on a sheet called Control Center, can I return to that sheet or stay at that sheet when I print?
Code: Sub Button16_Click() Sheets("OBS1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub
I've got an excel sheet that lets people choose between 2 choices. I'm using scroll bars to make it easy for them to choose and visualize their preference with as little mouse clicks as possible. The scroll bar is only one sided though, meaning it starts from a min value to a max value.
I would like a scroll bar with a of 0, with the value increasing positively as the user scrolls to the left, and the value also increasing positively as it scrolls to the right.
I have an Excel file with text records, 1000s of lines long Trancriptions of Customer sales reps and Customers, or Distributors. All data is in Collum A.
Each Record has 7-10 Entries ______________________ BILLNUM : 060501 ORIG : 12345678909090 REP : 45672222222222 AREA : LK787878000000 SD : 060401 ED : 062025 COMMENT : CUSOMTER CONVERVERSATION WITH REP C:HELLO R:HELLO C:MAY I HELP YOU R:BALANCE PLEASE etc......................
If the user adds 3 new lines, to the data table, – the Series Value Ranges should increase by 3 lines – AUTOMATICALLY(!) to avoid the user to full-around with the chart. It should take care of the 4 Series Ranges and also of the Range for the X-Axis Category Labels. As far as I recall, the way to accomplish it, is by NAMING the ranges with COUNTA etcc BUT, here – the last row is an empty rowc
I need to create a report on each friday as well as on every last workday of a month. I have to display both weekly and monthly data on the same graphs and I always arranged the week ends and month ends myself, but this is taking a lot of time.
So I need a chronological list of of week numbers and month names based on the date of Friday of a week or last workday of a month.
Input: A1 - either month name ("MMM", Jul, Aug, Sep) or week number (1-52) A2 - year number (2014)
Output: For example, for 30 in A1 and 2014 in A2 it should look like this:
BD BE BF BG BH BI BJ BK BL BM
1 May 23 24 25 26 Jun 27 28 29 30
And this should strech back all the way back to B1 in which I need to have 31.
Note if a month ends on last workday of a month the week number should come first and month name second.
I am currently working on a project which at various times does 2 different things. These things are to be done on a "PROTECTED" (UserInterfaceOnly:=True ) worksheet.
The first is a Range.Replace command. The other is a Hyperlinks.Add command.
Now when I'm testing ( typically the worksheet is not protected ) everything works like a champ. But as soon as I protect the sheet the following scenario happens.
1. The replace DOES NOT work. 2. The hypelink.add DOES NOT work.
when the sheet is protected it ends up throwing a runtime error ( 1004 ) "Protected Sheet error" the real odd thing about this is that it doesn't throw the error on the command itself. On the hyperlink the error happens about 3 command further along in the flow............
with this code, how can I make my combobox1 starts with the last record ??
Code:
Private Sub UserForm_Initialize()Dim cell As RangeWith Worksheets("Sheet1")For Each cell In .Range("C2:C" & .Cells(Rows.Count, 3).End(xlUp).Row)If Not IsEmpty(cell) Then ComboBox1.AddItem cell.ValueNext cellEnd With
Column A has numbers starting with 1, 2, or 3 and Columns B & C have various amounts. I would like to get totals or columns B & C for Column A numbers starting with 1.
Tried a few things including SUMIF(A:A,"1*",B:C) with no luck
I would like to have a question box pop up w/Yes and No Buttons at the start of my macro to choose between two different sub routines. Therefore, MsgBox would say: Import New Yard Inventory?
If Yes, then it would run the alternate subroutine. If No, Then it would run macros normal routine. Not quite sure how to do this. Would the msg box have to be a form box where, a representive value would have to get filled into a cell? Then reference if cell value is true ,then or would it register the value to memory so then, the code would have to to call the given value then run code if value it true?
I have data that I am trying to sort that starts with a number and contains a number within, then sometimes ends with a letter. Here is the dataset I will use as example.
Is there a formula that I can use to sort the data in numerical order by the last digits exactly like the first dataset? There are all sorts of veriations of the first digits and the last, but the "-TP-" always remains constant.
I have a workbook and I want to check in a cell, if the value in the cell starts with "S" or "D". In VB.net there is a method .StartsWith to check the starting letter in a file. Is there a way to check the starting letter in the cell?
So I added a x-y scatter series to a line chart (in order to add a vertical line to the chart) and now I'm having a problem with the x-axis. It lets me select the start and end date, but when I put it on auto is starts 1 day before the data does. For example, if my data starts on 5/1/2011, the x-axis starts on 4/1/2011 and the there is no data point at that date.
I could manually change this, but the data is dynamic so the start date changes. Since I can do formulas in the format axis tab (date+1).
I am trying to auto populate into a column that starts in cell E5 and references cell C5 (along with a dataset in N and O). In cell E6, I copied and pasted this formula and changed all of the C5 values to C6. When trying to use the auto populate cross hair tool, excel changes all N and O cells, from O165 to O166, O167 when they should have remained O165 and N165 for every cell.
I am attempting to perform a cumulative subtraction function that starts over again when the value in a column changes. I have a list that is sorted by a column for item number. The other two columns show the amount we have in stock and the amount being ordered against that stock. The order of rows IS relevant and cannot be changed.
Sample output is attached, with the "given" data outlined in a bold border. The only way I have figured out to do this is to nest a whole lot of IF statements in a formula, which is not very elegant or easy to do, and is limited by the number of IF statements that can be nested.
