rangeb

All, I'm looking for some help... I've followed this tutorial: the third list https://vbaf1.com/programming/cascading-dropdowns-useform/ ANd have expanded it to allow for 4 listboxes (from 3) - however the slight issue I'm having is that the third listbox is displaying duplicates and I'm not...

Can someone assist in dividing a cell by all cells in range. Something like this. I have lr as follows: Dim lr As Long: lr = Range("B" & Rows.Count).End(xlUp).Row range("D2:D" & lr) = "C2/sum("C2:C" & lr)" Thank You

Hi, I currently have a ComboBox drop down on my worksheet which when i click on the drop down i see the list of customers from A-Z in the order of First name then Surname. I need the same but Surname then First name. I have copied the existing code & changed the relevant items but need some...

Hello, I am attempting to create a macro to process different data sets. I have gotten to a part where I need to reference data specific to each data set, so I need to use relative references, however, they did not return the proper data. So, I created a variable that will read the value I...

I want to be able to select the column that I want it to compare the value and if the value changes then insert a row. This code works but it doesn't allow me select the column I want to use and it doesn't stop at the last row that has data it continues to the end of he spreadsheet. Sub...

Please help before I go mad. I am working on a patient assessment form - there's going to be approximately 80-90 columns of data in each row when it's done. The first part is patient demographics. All I am trying to do is get the next available row. I can't get past the run time error. "Method...

Hi, I want to trigger an event based on two conditions: at a fixed percentage of a data value of a local maxima, after a local maxima occurs in the data, to turn the event on. Alternatively, at fixed a percentage of the data value where a local minima occurs, to turn the event off. Data values...

Thanks in advance for any suggestions and I will give feedback on them. I get the following error "Compile error: Next without for on Next i Sub ClearCFData() 'Dimensioning Dim i As Integer Dim RowNumber As Long 'Turn Off Screen Updating...

For Count = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1 If Range("a" & Count) = "STIM" And Range("b" & Count) = "U$" And Range("c" & Count) = "053" Then Range("a" & Count).Value = "STIH" And Range("b" & Count).Value = "U$" And Range("c" & Count).Value = "981" Next think it said...

Thank you everyone in advance for the help. I am still learning basic VBA so this one is a bit of a stretch... For all cells in column A that are updated (be that manually entered, or updated via click and drag, other) I want a specific output in column B. I have the if statements working as...

Hi, I use this code to insert values at Column J based on Column B. This code works perfectly fine but I think this is too long. Perhaps there are others ways to simplify my code. Dim LastRow As Long Dim z As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row For z = 2 To...

Hi, I wrote below code which helps me to find header and update the formula in the cell value. But i need little tweak where formula be changed if the header is found in Column J instead of column I. Please advose Sub CopyColumnByTitle()'Find "Name" in Row 1 With Sheets("Week1").Rows(12)...

Hello everyone!!! I use a vba code that formats a certain column in my file Sub coloraki() Dim lr As Long, i As Long lr = Range("B" & Rows.Count).End(xlUp).Row For i = 1 To lr If Range("H" & i) < 0 Then Range("B" & i).Interior.ColorIndex = 40 If Range("H" & i) >...

Hi there, the following code almost works, however it does not remove the middle range as desired, any suggestions! "B" & i works ok "O" & i works ok "L" & i DOES NOT WORK Dim i As Long For i = Lastrow To 3 Step -1 If Cells(i, 1).Value > 0 Then Range("B" & i & ",L" & i & ",O" &...

Hello, I have a macro that needs some tweaking and help. Currently it take data from the first tab, breaks it out into new tabs based on data in column A. Then within the new tabs, it formats each sheet by adding "total" rows after a new value in column B. The new row adds an auto sum to...

Good afternoon What are the advantages of utilizing the With Statement. Additional question How would an array be beneficial here? Thank You With - lr = Range("B" & Rows.Count).End(xlUp).Row For i = 2 To lr With Sheet2 .Cells(i, "D").Value =...

Dear all, I intended to split a large excel table (~ 7,000 rows) into different sheets. Take the following image as an example, I wish to copy the rows from 2 (marked with an "s" in column B) to 3 (row above "E" in column B) into a separate sheet named under the "action list" column (in this...

Hello All, I am trying to change my VBA codes to make more user friendly by giving the users ability to determine the start and finish of the ranges. The code that is already working is like this: Sub Test() Worksheets("Express").Activate...

I thought I was doing this right, but apparently not. Getting a "File Not Found" error when the file is not present in the folder. I know that the file sometimes won't be in the first folder or both folders. I think my On Error line isn't correct. What am I missing here? Sub Copy()...

Hello Im trying to add 30 days into the put date but it could not work. anyone to advice me? below is the syntax Private Sub Worksheet_Change(ByVal Target As Range) Dim lastrow As Long lastrow = Cells(Rows.Count, "b").End(xlUp).Row For i = 20 To lastrow If Range("b" & i).Value <> "" Then...