for loop

Hello, This code needs to locate the Department63's account total and transfer it to designated row in another sheet. The problem I am having is the macro not being able to locate Department63's account total which is located between Department 60 and 65. The macro can locate Dept 60 and 65's...

Hi, I'm not sure how to progressively add values that meet a certain condition into a message box, but I think it's possible. a = integer a = 1 For a = 1 To 21 If ActiveCell.Offset(a, 15).Value = ActiveCell.Offset(1, 11).Value Then MsgBox ("This " &...

Hi, I want to add data from multiple textboxes to a sheet that. The form has multiple lines containing product data, like part, description, location, qty It also has a textbox where you can enter the qty you need and txtQtyAdd If the txtQtyAdd textbox contains a value it should copy the data...

I need help with this assignment for my excel/VBA class. I have been struggling with VBA 1. manually enter 1 to 100 in cells A1 to A100 2. write a for loop that makes use of the offset property to sum the numbers in every 5th cell starting with A3. The loop should stop once A100 has been...

Hi All, I am trying to loop through all pivot tables in a sheet and remove all values fields in them which have the same name: "Total Net Spend" and "% Split". I am trying the below code but it will only work on the first pivot and won't loop through all of them. How do I edit the code so...

Hey guys, I'm trying to manipulate 2 collections in my code. After comparing the difference between 2 values I need to remove those that are less than a set number. However, I run into a "Run-time error '9': Subscript out of range." I've pulled out the relevant sections from my main code to...

Hey guys, I have the following code and I keep getting a "next without for" error, although I can't seem to debug it! I've tried to strip the code to its raw "For" and "If" statements. If existing_sheet = 1 Then For x = i + 1 To i + 100 If Worksheets("Master Fee Table").Cells(x...

Hello all, My question pertains to the Worksheet_Calculate VBA sub. I have the code below that I wish to execute every time a cell is "confirmed" within the worksheet. Basically, I have the table range that spans columns A:I, with various field headers. Column A has numbers that either...

Hello again, I am just starting VBA and trying to practice loops. Can you please help me understand why this code works: For startingnumber = 1 To endingnumber If startingnumber = 1 Or startingnumber = 3 Or startingnumber = 5 Or startingnumber = 7 Or startingnumber = 9 Then...

Hello members, I am re coding a code from one C based language to VBA. Can you please help me to sort the problem or rectify any mistakes? Here is original code: PlanetDeg[1] = DMoon; PlanetDeg[2] = DSun; PlanetDeg[3] = DMars; PlanetDeg[4] = DMercury; PlanetDeg[5] = DJupiter...

Hello All, I'm struggling with getting this right, so hopefully somebody out there can assist me. I am trying to take the range E89:R106 And with each row, If the Value in Column A of that row is "TRUE", nothing happens, otherwise If FALSE, E:R in that row will have the contents cleared...

Sample: A B C D E 1 ani sq 250 33 450 2 111 22 222 3 444 44 222 4 123 12 899 5 122 34 113 Now i want to make a code that fills same data in A1 and B1 up to A5 and B5, If i have data in C,D,E column upto 100 count means...

I am writing a function to calculate the standard error of the estimate of a linear regression (I understand excel already has this), but I am doing it so that I can give it the linear equation that I want to be considered, rather than the function calculating it itself as the STEYX built-in...

Hi, I am trying to write a macro to assign a set new of serial number to each row. For example, each row will be given a number (in sequence) after every 8 rows and when there are no other numbers below it, the code will go back up again to continue the pattern again. Any help on this will be...

Hi All, I'm in need of a bit of assistance, I'm sure it's a very simple tweak but I'm struggling to get my VBA code to do what I want... I'm trying to see if a number is present on another sheet, and if so colour it in. So I'm trying to save two arrays, one a 'stocklist' (built) and...

Hey there, I have been trying to do a for loop to change my currently working but long code. Basically I have 30 rows and each row sends a unique message. And currently I am using this code: Sub FOH1() Dim r As Range, c As Range Dim sTo As String, ppdf As String, pdf As String, p As...

Hello MR.EXCEL users, Its been a little while, I have been smooth sailing let me tell you! Ran into a little problem today... The following code is working perfectly, but is obviously cumbersome if the range gets too big. Dim job As Range For Each rng In ws.Names If InStr(1, rng.Name...

Good Morning, I dont understand why this peice of code will not work for 'i'. I can loop the column very easily. But, with or without the column for loop, the 'i' for loop will not work. For Col = 1 To 7 For i = 1 To 7 With Application.WorksheetFunction...

Hi there, Trying to come up with a code that will loop an infinite number of times until the user enters a specific range of values. I can do it using 'Do While' or 'Do Until' loops but the assignment specifically mentions 'For Loop'. Please help. Thanks! Here is what I have now: Option...

Hi Everyone, I've been trying to get this to work this out for a while but am starting to struggle and am running out of time! I'm trying to optimise a running order for a show and am looking to generate all possible permutations of a possible running order with 28 acts. Below is an example of...