With Sheets("regrade pharm_standalone") For Each r In .Range("standaloneTerritory") If r.Value = "X101" Then r.EntireRow.Copy Sheets("X101").Range("A1").End(xlDown).Offset(1).PasteSpecial xlPasteValues End If Next r End With ------------------- I need to repeat this loop for values from X101 to X151. In all cases, the sheet name is equal to the value I'm looking up (eg: value = X102 goes to sheet X102).
I have a named range called 'territories' that contains the list of X101 -> X152.
I'm hoping to make the code perform the loop for each of the territories without my having to copy & paste and change the 'X101' 51 times as this would seem a rather silly thing to do!
I have 2 columns and 10 rows (A1:B10). In column A are certain text values. How do I write a macro to go through the table and preform an operation in the corresponding cell in column B depending on the value in cell A? for example, if A3 = "Complete", overwrite the formula in B3 with the value (paste value)?
I have a string of text in cell A2. In cell B2 of my spreadsheet is a formula that calculates a number based on the text string in cell A2.
I want to write a VBA loop that removes a single character from the cell A2 string, then calculate the new value in cell B2. I want this loop to continue until the value in B2 falls below a set value (in this case 60).
My code so far Sub trim_text() Dim mytext As String Dim myanswer As Integer mytext = Range("A2") myanswer = Range("B2") Do While myanswer > 60 mytext = (Right(mytext, Len(mytext) - 1)) Loop End Sub
This obviously does not work. In my excel table I have a formula in cell B2 to calculate "myanswer" will this work, or does that code have to be placed into the VBA code?
Macro which loops through a number of files and calls the same macro in each of them. Unfortunately when I add "Application.Run..." to the code, it no longer loops through the process and instead stops after updating the first file in the loop. If I remove the "Application.Run..." code and add any other code, the loop works fine and it continues through the process repeating all the steps for each file found.
Why it stops after one file when using "Application.Run..." to call the macros?
NB I have a list of path and file names starting in row 8 of columns A and C. Each file in the list has a macro called UpdateS1 and promoupdate1.
Sub C_Run_Loop_Macro() Dim lastRow As Long Dim i As Long
I have working code that returns a row number within a for loop based on parameters I set.
Each time the for loop runs I would like to store this row number, then after the loop has finished, delete all stored rows.
Code: for rowNum = 1 to x (some variable end row number which I already have worked out using End(xlUp).Row) if x = y then *storedRow = rowNum end if next rowNum *
Lines with a * are the bits I can't work out. I've been trying to understand arrays by reading posts on what other people have done, but I can't fit (or fully understand) the reDims, or reDim preserves into my code. I've seen what appear to be quite complex ways involving uBounds and LBounds, but unfortunately I can't see how to use them.
All I want is to simply keep adding a row numbers to a variable, (i.e. row 2, 5, 20, 33, 120, etc) and then delete those specific rows.
I am looping through each cell in a range and I would like to loop in reverse order.
Dim CELL As range Dim TotalRows As Long TotalRows = Cells(Rows.Count, 1).End(xlUp).Row For Each CELL In Range("C1", "C" & TotalRows) CELL.Select 'Code here to delete a row based on criteria Next
I have tried:
For Each CELL In Range("C" & TotalRows, "C1")
and it does not make a difference. I need to loop in reverse order since what I am doing in the loop is deleting a row. I am looking at a cell and determining its value. If the value is so much, then the row gets deleted. The problem is that the next row "moves up" one row (taking the pervious cell's address) and therefore the For Each Next loop thinks it has already looked at that row.
I have some numbers in a column that I need to copy 12 times (each one) into another column. The problem is that I got like 200 records that will be converted in 15000 aprox. I've uploaded an example of what I need,
I have a workbook that contains, say, 50 worksheets: the first two worksheets summarise the data and are static in that they don't move position. However, the next four worksheets contain certain data for any given month. Each time a new month comes along, say, November, I insert four new worksheets after the two static ones as a result October's four worksheets are simply moved down the line in terms of worksheet order.
I need a macro to refer to the first six worksheets only (not the other tabs). I opted for index referencing for each worksheet, ie one - six. Now within these six worksheets in any given month, I need to sort the data by a certain column. The problem: in sheets 1,4,5 and 6 I need to rank by column E, but in sheets 2 and 3 I need to rank by column C. I have stepped through the code, which works for sheets 3-6, but doesn't seem to refer to sheets 1-2.
Sub WorksheetLoop() ' ' Loop through an indexed number of worksheets; _ ' & this ensures that the worksheet range is dynamic _ ' and is able to adjust when new sheets are added/removed, etc. ' 'Dim ws As Worksheet Dim i As Long Dim ws As Worksheet
I have a Random Number macro that will generate a random number (from 1 to 50) and place it into cell C4 of the worksheet. From there, various calculations are performed in the spreadsheet, ending with a value in cell AB5 and cell AB6. Depending on this random number, occasionally the value of cell "AB5" and cell "AB6" do not match. I want the macro to continue looping (generating another random number until a match is made between AB5 and AB6). I've tried various things but nothing is working to make it loop.
Below is the code for the random number macro.
VB: Sub RandomNo() Randomize MyNumber = Int((50 - 1 + 1) * Rnd + 1) Range("c4").Value = MyNumber End Sub
I've worked on a solution for this thread (http://www.excelforum.com/excel-prog...-automate.html) but have been mentally challenged with how to avoid changing the loop counter in one of the loops I have used to resort an array of file names from the getopenfile dialog.
The aim of the shown code (see post 12 of the above link for attached file) is to check if the file containing the macro is included in the array returned by getopenfile while sorting the array of file names, and if so, moving it to the end of the array for "deletion" by redimming the array to exclude the last item. This problem of the open file being selected in the dialog may never arise, but... as the OP's request in the other thread was to allow two-way comparisons between numerous files, I've considered it likely enough to test for.
Here's the code I have settled for esp between the commented lines of hash symbols, which does change the counter (see the commented exclamation marks), but prevents an infinite loop (on my second try!) by using a second boolean flag of "HasCounterBeenChanged". Is there a better way of doing this? Or, alternatively (not in my thread title), is it possible to prevent the active file being selected through one of the arguments in the getopenfilename method?
Effectively I have a cell that contains the following data :-
63303-9600 63303-5280 63303-9700
What I need to do is loop through this cell and take the first 10 characters and ouput to a row, then take the next 10 characters and output to the next row and so on until it has been through all the cell content.
I want to keep going down a column until I get to an empty cell and then paste some text. I want to write code in vba but I am really struggling with this.
A1 = Hello A2 = Hello A3 = Hello A4 = *Nothing* so I want to paste some text here?
I am attempting to create a loop for each row after cell B2. In column B I have a list of dates. I would like the macro to open the workbook titled "Name (date in cell B)" and copy two cells and paste in columns C and D of the Test.xlsm worksheet. I can do this for a single case but I want to loop for each date (I know the parts in red are incorrect).
In addition, I want to break the date in Cell B2 up into the various components i.e. year, month etc so I can make it more robust in opening a file (see the part highlighted in blue).
Code: Sub Test()Dim varCellvalue As String varCellvalue = Range("B2").TextWorkbooks.Open "\.....2014 6 JunName " & varCellvalue & ".xlsx"Windows("Name " & varCellvalue & ".xlsx").ActivateRange("C6:D6").SelectSelection.CopyWindows("Test.xlsm").ActivateRange("C2").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseWindows("Name " & varCellvalue & ".xlsx").ActivateActiveWindow.Close End Sub
I am trying to find the first empty cell in a column to paste values. I have read the FAQ and searched the forums but every solution seems to fail me! I have tried the ...xlup, xldown, loops, For , IF statements, etc. to no avail.
My column has the first Four Rows empty with some Header rows in Row 6. I want to paste starting on Row 7. The most success I have had is finding the first empty cell and pasting a value but every subsequent attempt to find the next empty cell and paste a value just keeps pasting on the same cell found in the first attempt. Below is my most recent attempt. I am using MS-Office 2003 (or is there some special worksheet setting that prevents this from working?)
Sub My_Finder()
Dim cP1 As Range Dim M As Integer Dim Task As Range Dim MyRange As Range
I am experimenting one way to solve one problem, but to do this I have to Name some cells with some values, thing that normaly in VBA is symple but I have never done before in coding. May be my problem is because what I am doing is not valid with the vlookup but if you can take a look to my file. The problem is that when I run the Macros the Named Cells are totaly out of place...
Sub Lookup() dercell_unit = Range("C65500").End(xlUp).Row Range("B" & dercell_unit, "E2").Select Set Rango = Range("B" & dercell_unit, "E2") For i = 2 To dercell_unit Names.Add "VALrsa", "=$C" & i Names.Add "RESOLdds", "=$D" & i Cells(i, 7) = Application.VLookup(Cells(i, 2), Rango, 4, False) Next i End Sub
I need help with my current macro so that it will look in several cells (myrange) if comment(s) are found, write it in a particular cell, so that you end up with all comments written in that cell. If no comment are found then search until the end of the range(or until all comments are found). My current problem is that it is repeatedly writing the comments it finds and I end up with the same number of comments in one cell as number of cells in myrange.
I have some values in column A; i want the code to go thru all these values and do the followings:
1) i want the code to check if there is a valua in the first cell in clomn A; if there is valua - i would like to copy that value and paste it on H1 2) then i wan to copy everything on Column H and paste special in column L2 3) then i want the code to go back on column A and get the second value and paste again in column H1 and then copy everything on column H and paste again the first empty cell in column L and so on..
I want to loop this process until the first empty cell in column A. I have attached spreadsheet for just to clarify what i am trying to do. There are 2 tabs in the spreadsheet, one tab explains the current issue and the other tabs shows how the final result look like.
I am trying to program a loop in Excel VBA to read the first two characters of a cell in column A and, depending on the characters returned, to print something else in column B, then move to the next row up. What I have so far below is pieced together from little insights from over the web, but currently it does nothing. Not even error messages. It has more fields (if "XX" > print blah blah) but they are all the same, so only the first two iterations are shown here for clarity.
I am working on an excel sheet that asks the user for a Start and End value, to create a print selection. It should then loop all of the numbers between both values into Cell B1, update the sheet and print the page each time.
I think i have the VBA code worked out, except for the fact that i seem to get stuck at the loop action for printing all values between the 2 input values ( i don't really know how to do this).
I have an example of the file uploaded here: Zippyshare.com - Printbarcodes-test.xlsm
Here is the code i am using (the loop/selection part is still missing):
Code: Sub PrintSelection() Application.ScreenUpdating = False Application.DisplayAlerts = False
I have this setup successfully for the deletion of columns and have modified the below to apply to rows, however, I am not seeing the results I expect (or actually anything).
Code: Sub Analytic_RemoveNA()
'Remove NA Dim j As Long
For j = 35 To 4 Step -1 'Rows 35 to 4 If Cells(9, j).Value = "NA" Then Rows(j).Delete Next j End Sub
I have a data set that spans from B4:I32. If column I has "NA" in any row within that dataset, I want to delete the row.
What I am trying to do is during a loop operation, which subtotals variable ranges, I want to store the locations of the cells that it puts the sum function into. I.E. if based on criteria it determines that range E4:E12 is summed into E13, I need to save E13 to use in a formula once I'm out of the loop. I don't know how many instances it will find and there's the possibility in the future that not only will the number of instances increase, but the location could always be different as well. Any way to do this without a million lines of code.
I am trying to loop a procedure that changes a cell value on 2 sheets in a workbook. I recorded a macro on one workbook and it worked fine. I then tried to modify the macro to loop this on more workbooks that have identical worksheet names. The macro is in a workbook named LIST, which column A has a list of all the workbook names. Currently there are 55 workbooks, but in the future I am sure there will be a few more. Here is a copy of the macro:
Sub Macro1() ' ' Macro1 Macro ' Macro recorded 5/28/2008 by MT ' Dim STATEstr As String Dim a As Long a = Range("C1") For STATEstr = A1 To A55 Workbooks.Open Filename:="C:ALLSTATES" & STATEstr & ".XLS" Sheets("3 ANL").Select Range("A1").Select ActiveCell.FormulaR1C1 = a Sheets("3 ANLV").Select Range("A1").Select ActiveCell.FormulaR1C1 = a ActiveWorkbook.Save ActiveWindow.Close Next STATEstr End Sub The first error I got was a TYPE MISMATCH on 'For STATEstr = A1 To A55'. There may be more things wrong with this looping. The only experience I have with macros is recording them and then modifying and combining them.
I am trying to take a column of data located on one sheet and move into two different locations on another sheet. My range is from A1:A10. The below code works, but as it loops, it replaces G1 and H1 with the other values from the original range. Once the first pos and neg values are placed in G1 and H1 respectively, I want the next cells to be evaluated and placed in G2 and H2 etc. What am I missing here? How can I get it to stop pasting over itself?
Sub test() Dim bcell As Range For Each bcell In Range("a1:a10") If bcell > 0 Then bcell.Copy Destination:=Worksheets("Sheet2").Range("G1") Else: If bcell < 0 Then bcell.Copy Destination:=Worksheets("sheet2").Range("H1") End If Next bcell End Sub
I looked though the site with the search and saw some things that came close, but no cigar.
I have a column of numbers formated in a constant string
eg 1234121231234
The number needs to be formatted into four sections
eg 1234-12-123-1234
I have the code to put the dashes in, but I am looking for the loop statement to take it down column C reading in each number in the 1234121231234 format until the end, and replacing it one by one with the 1234-12-123-1234.
' calls the function to put the dashes in the NSN in the QRL
'First 4 of NSN first4 = Left(NSN, 4) 'Second2 of NSN nsn9 = Right(NSN, 9) For Y = 1 To Len(nsn9) second2 = Left(nsn9, 2) Next Y 'Next3 of NSN nsn7 = Right(NSN, 7) For Y = 1 To Len(nsn7) next3 = Left(nsn7, 3) Next Y 'Last4 of NSN last4 = Right(NSN, 4)
