I have been trying to create new worksheets, name them and create webquery according to the input on table B4:C13 in test1 sheet attached (code is in module 1). After I run the code it stops after creating sheet with name 1 and shows error 1004. here it is the
View 8 RepliesI've got a data set (words and text) where in column J the number 100 appears at random intervals. Each time the number 100appears, i want to take all data from cell A:J and copy that data to a new worksheet and then name it with the word in cell A.
View 7 Replies View RelatedI am trying to create a loop to add multiple worksheets
I want to add a new sheet for each company (A2:A14)
I am also wanting to add the sheets after the current last sheet if possible.
Sub addnewsheet()
x = 2
Do Until Cells(x, 1) ""
Sheets.Add.Name = Worksheets("securities").Cells(x, 1).Value & ".ax"
x = x + 1
Loop
End Sub
I am trying to do payslips. Basically I have one worksheet with about 7 columns. I have a 2nd worksheet that is like a template payslip.Worksheet 1 has hours worked and pay etc.
I want to find a method to loop through worksheet 1 and using worksheet 2 as a template create more worksheets and have the values come from worksheet 1 in the new worksheets.
i have a range of rows that change (could be 10-100) how do i loop the range to create new worksheets named for each row?
View 3 Replies View RelatedI have a csv file on another drive on the network that i need to query. I believe that ms query would be the best way. I know that a DSN needs to be setup but this macro will be used by various users who wont know how to do that. thus I would like to create one via VBA every time the task needs to be run.
I haven't a clue how to do this and i need it to be explained to me in general terms with words of one syllable!
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
[code]....
I have a sheet with a list of names. Row1 is the header row.
I want to query a database and return the status of each name in column D to Column J. I got my query setup and it works, I just can't quite figure out the For Next Loop:
Sub Status_Query()
Dim wholename As String
wholename = Range("D2").Text
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"ODBC;DSN=MS Access Database;DBQ=C:Program FilesMyDatabasesdatabase1.mde;DefaultDir=C:Program FilesMyDatabasesdatabase;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;Trusted_Connection=YES"), Destination:=Range("J2"))
.CommandText = Array("SELECT Clients.ClientStatus FROM Clients WHERE Clients.Wholename ='" & wholename & "' ")........................
Just need to delete some hyperlinks in column A on 50+ worksheets. Thought a loop through all the worksheets would do it. Only works on active sheet. Forgive my ignorance, don't really even know where it goes, once it works - module or workbook?
View 2 Replies View RelatedI'm trying to perform the same process to all the worksheets in my workbook. This is the code I have now, but it will only apply to the single active worksheet:
View 2 Replies View RelatedI need to create a macro that can create a dynamic copy/paste loop. So far what I have is horribly inefficient. Each row in colmn A(minus the header) has a unique number in it. For each unique number, I need to paste it based on the number of column headers in row 1(minus column A). So, if there are 20 column headers, I need to copy cell A2 and paste it 19 times in another sheet. Then, I need to move to the next number in column A and do the same thing. Here's what I have:
[Code] .........
You can see that this is not dynamic. If I add another row to my table and rerun the macro, it will not catch it. I've attached a sample file to show you the big picture of what I'm trying to do. The data that I have is in Sheet1, and I'm trying to get it into the format in Sheet3. Rows/columns will be periodically added to the table in Sheet1, so the macro needs to be dynamic to catch that. The data in Sheet3 will always remain, and the macro will add the updated data below the old data in Sheet3.
FC_Macro_Sample.xlsm
I need to create a web query.
I have lot of post codes which needs to be checked in a web page and the output column needs to be updated in the spreadsheet.
Link: - Find UK Postcodes Inside a Radius
for example: - The post code WD18 1TB will be there in Excel Sheet this has to be copied and pasted in the link in column
Step 2 : Click on map OR Place radius by location name or postcode
and Step 1 : Radius should be updated as 10 and then the Draw Radius needs to be clicked. Then the output needs to be copied (in this case the output is: AL2,HA1,HA2,HA3,HA4,HA5,HA6,HA7,HP3,UB9,WD1,WD17,WD18,WD19,WD2,WD23,WD24,WD25,WD3,WD4,WD5,WD6,WD7) in our spreadsheet in the next sheet.
I have a workbook that query's our case tracking database and pulls data into a csv. I am trying to write something that would do the following:
1) Prompt the user to enter in a case number
2) Open up the following file:
-"C:Documents and SettingsDetails.csv"
3) Look through A:A for a match of the user entered number
4) If a match is found then pull the data from cell B in that Row
5) Output the data (from row b)into a text box on the user form along with the original entry made by the user.
I created a union query in Access to join two tables (Projections and Actual Sales). The query produces the results I want. I need to create a pivot table in Excel using the union query as the source. When I pull up the data import function in Excel, the union query does not appear. Do I need to do something else? I have tried to create a select query where I select all from the union query and I can find that fine.
When I use this query to create the pivot table the results end up all zeros when I try to sum the values. It creates some crazy results when I show it as count of also.
I can provide the data in either the Access database or Excel spreadsheet.
I need the VBA script in excel that will do a SQL Query, for this case I need to select a value where there are 2-3 tags and between certain period then display the result as a table in a worksheet.
Example I have a database with 3 types of tags "Tag A", "Tag B", and "Tag C", and each tag have a value with different timestamp. the database looks like this:
No. Timestamp Tags Value
1 1-Jan-2010 Tag A 18
2 1-Jan-2010 Tag C 20
3 2-Jan-2010 Tag A 20
4 3-Jan-2010 Tag B 17
5 3-Jan-2010 Tag C 19
6 4-Jan-2010 Tag B 18
7 4-Jan-2010 Tag A 20
8 5-Jan-2010 Tag A 22
9 5-Jan-2010 Tag B 18
10 5-JAn-2010 Tag C 20
I have a table that lists the months of the year down from cell A2:A13, and days of the week along row from cell B1:H1. The data in between (cell B2:H13) is pulled through from elsewhere in the workbook and is in number format.
What I basically want to do is create another worksheet with the months of the years listed down column A, and in column B, for each month, I want the first day of the week where the value in the original table is more than zero, and in column C the second day of the week where the value is more than zero. I really hope that makes sense, was quite difficult to explain!
I have a number of sheets in my workbook which I'd like to run the same code against. Rather than calling each by name is there a way to define each sheet as an array number and use that to loop through?
For this example we'll use Sheet1, Sheet2, Sheet3 and Sheet4
I have a simple macro with a loop which selects sheets in a workbook. sheets are named "Sheet 1" to Sheet 6". Two sheets are missing (say sheet 3 and sheet 5). The On Error code works when the macro tries to find sheet 3 but crashes on the second error (when it tries to find sheet 5).
Sub SelectSheet()
For i = 1 To 6
MySheet = "Sheet" & i
On Error Goto 10
Sheets(MySheet).Select
10
Next i
End Sub
I have an excel sheet that will have a column with out of sequence numbers. I need a script that will evaluate each row and insert a row and the missing sequence. Below is the code I have written but I keep getting a compile error saying Else without If.
View 4 Replies View RelatedI'm sure this is easy but I'm trying to create a for...next loop that goes across the row. My final output will be basically be to see if the cell says Saturday or Sunday and offset by 2 rows and highlight the rest of the column.
Code:
Range("A1").Select
For X = 2 To Range(Activecell, Selection.End(xlRight)).Column
Range(2, X).Select
ActiveCell.Value = "Column"
Next X
That's what I came up with but it doesn't seem to be right.
how to adjust this code.
What I want is a loop.
Highlighted in red near the top is cell a1, this needs to change to a2 then a3 then a4 and so on for as many times as i need it to.
highlighted in blue near to the end of the code is cell a1,this needs to change to a41 then a81 then a121 then a161 and so on(so +40)for as many times as i need it to.
Code: ...
I am trying to loop the following code for a total of 15 worksheets without copying and pasting that same code 14 more times for each worksheet. Right now it is only executing the code on the "CAN" tab. Is there a way to make it loop where indicated below?
The 15 worksheets are:
CAN
USA
ASG
Gallia
[Code]......
I’m trying to copy some data from each sheet in WorkbookA, except for the first sheet which is called “Menu”, into a single sheet in WorkbookB. I’m trying to loop through the worksheets in WorkbookA but don’t know how to exclude the first sheet. The code for copying and pasting works fine. It’s just the looping (as always) I’m having trouble with. The code I’m trying is:
View 2 Replies View RelatedWhy wont this loop thru all worksheets? It seems it runs worksheet named "Monday Wk (1)" for each sheet and no others.
View 9 Replies View RelatedNot sure what is missing here, but this will only highlight duplicates on the active sheet and won't cycle thru all worksheets in the workbook.
View 2 Replies View RelatedCode to complete the same task across a number of worksheets.
Basically I have 20 Worksheets currently. The first one is called "index", then I have 17 called App1, App2, App3 etc up to App17 and a final two called Collate and register.
What I want to do is to copy cells A2:E2 from App1 and paste it in the next blank row of "index". I then want to do the same in App2 and so on to App17 and then stop. I don't want it to do the same in index,Collate or Register.
in the past i have used something like (this is from something else I am using at the moment)
HTML Code:
Sheets("App1").Select
Range("a2:e2").Select
Application.CutCopyMode = False
Selection.COPY
Range("a1").Select
Sheets("index").Select
Range("a2").Select
ActiveSheet.Paste
[Code] ....
Is there a way without having to write code for each sheet (which seems very inefficient) to complete the same task but ignore the three other tabs.
This macro should copy all data from all worksheets and past them into the sheet named "Consol" however It is not looping and only pastes the one sheet.
Sub LoopThroughSheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Formula
FinalRow = Range("A65536").End(xlUp).Row
Range("A2:U" & FinalRow).Copy
[code]....
I have over 200 worksheets in my workbook. I made a macro to have the sheet change to landscape orientation and adjust the column widths how I wanted them. I don't know how to make the macro loop to all the sheets in the workbook.
Sub Macro5()
'
' Macro5 Macro
'
[Code].....
I have a worksheet ("Issues Report"). Based on the value in column A, I'm trying to cut the entire row and paste it on another worksheet ("Closed Issues").
Here's what I've written so far:
Dim C As Range
Dim xlSheet As Worksheet
Set xlSheet = Worksheets("Issues Report")
Set C = xlSheet.Range("A:A")
With xlSheet
For Each cell In C
If cell.Value = "Ready to Close" Then
ActiveCell.EntireRow.Select
Selection.Cut
Worksheets("Closed Issues").Range("A65536").Select
Selection.End(xlUp).Paste
End If
Next cell
This seems logical to me, but it's not working as planned. The code gets hung up on the 11th line of code.
Trying to write a macro that will reference one cell in about sixteen different worksheets and return the value of each of those cells. Is there an easy way to do this?
ie.
For n = 1 To n = 15
Worksheet(n + 1).Cell("A1")
Return A1
I know this isn't even close to the right code but this should give you an idea of what I'm trying to do.