I need to run this on all cells in column a not just A2...:
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
Dim srchtrm As String
srchtrm = Range("A2").Value
ie.Visible = True
ie.Navigate "http://myurl.com=" & srchtrm
I also need to add to this code an option for finding text on the particular URL before the cycle is completed and looped to the next cell.
I use a scanner that initiates a f2 command and trips my macro. I would like to use multiple scanners using a 8 port hub but I am having trouble with a scanner starting my macro and another scanner dumping data into my macro before the first one is finished. This is dropping scanned data into my macros. Is there a way to prevent the scan from accepting data until the macro has completed its cycle.
View 2 Replies View RelatedThere are 2 buttons on my worksheet below each other. Each button has a size of a range (i.e. "G33:G34", "G36:G37").
This is what I would like to do:
1. Click on the first button
2. Copy A33:F42 and insert them below row 33
3. Move the buttons to the same position (10 rows down) on the sheet
4. Copy the existing buttons and put them in their original space (i.e. "G33:G34", "G36:G37")
5. Do it as many times as I click on the first button
I have this, and I have no idea to the remaining part...
Private Sub CommandButton1_Click()
Range("A33:F42").Select
Selection.Copy
Rows("33:33").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("B33:B42").Select
End Sub
I'm working on a spreadsheet to compile and print checks. All the check information except the date and first check number is contained in a Wins sheet. I also have a Checks sheet which contains a master check. I used text boxes on the master check to contain individual check information. Each text box is filled in from the Wins sheet by means of formulas. The problem I'm having is how to modify the formula entries in the following code to cycle or loop through all checks required. A sample spreadsheet is attached.
View 2 Replies View RelatedI 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
Worksheets("Weeks2").Activate
I need to create a macro to do the following:
Search the activecell for a text string (a), and then either paste in text string (b) at the end of the cell if (a) is found, or text string (c) if (a) is not found.
For example, if the activecell has "AA/" in it, I want the cell to become "AA/01" (pasting in "01" at the end), and if the cell has just "AA" in it, I want it to still become "AA/01" (pasting "/01" at the end). The macro will be linked to a commandbutton.
I am maintaining a spreadsheet to enter all my sales orders. I need a code which automatically moves the entire row to a new sheet "Completed" when the order status is selected as "Completed".
View 6 Replies View RelatedI've got a password protected spreadsheet with only certain cells unlocked to allow users to complete them. I need the following to work on Excel versions 2003, 2007 & 2010.
Cell E3 has a drop down list with types of car to choose from. One of the car types is "Pool_Car".
Cell D12 should only be used if "Pool_Car" is selected from the drop down list. If any other car type is selected, and the user tries to enter a figure in D12, I need an error message to appear.
E3 & D12 are unlocked cells.
I'm happy for D12 to become locked & only allow it to be unlocked if "pool_car" is selected, but I've looked elsewhere, but can't find VBA or data validation to work.
I am trying to extract text from one cell into another, for example if in cell A2 I have text " {Operating System Issue} ~Word~ I got a new PC i used to have avaya…" in cell b2 i want {Operating System Issue} and in Cell c2 I want ~Word~.
This is what i am doing, in Cell B2 in putting formulla as =MID($A2,FIND("{",$A2,1),FIND("}",$A2,1)) and in cell C2 i am putting formulla as =MID($A2,FIND("~",$A2,1),FIND("~",$A2,1)). However in cell C2 thsi si what I am getting
~Word~ I got a new PC i used
i dont want anything after "~" sign. What i need is only the text that is in betwwen "~" sign.
I am trying to create a cell that show the value of all specified rows with specific name.
For example:
Apples $2 $5 $10
Oranges $5 $10 $50
Apples $5 $ 6 $ 60
(each of these will be in their own cells, 3 rows and 4 columns)
How do I create a cell that will sum the total value of all the Apples by using Apples as the variable?
I'm trying to create a simplified Gantt chart of sorts, and cannot figure out one piece of it. I'm not sure how to write out exactly what I need, but here goes.
I would like to have a formula that looks at the percent completed (which the user inputs) and multiplies it by the total duration for the task to give a total number of days completed. Then, under the corresponding dates, the color of the cell would change. I've attached a simplified version of what I'm talking about.
On the attached spreadsheet, the total duration (D2) is 5 days and the percent completed (C2) is 40%. This calculates to 2 days. With that said, I would like the cells under the first 2 days under the listed dates (E2 and F2) to change color. When the percentage complete reaches 60%, then G2 would change color, when it reaches 80%, then H2 would change, and when it reaches 100%, then I2 would change.
My guess is that the formula will need to result in a particular value, and then I'll use Conditional Formatting to do the actual changing of the cell color. Assuming this is correct, I still don't know what formula to use to accomplish this.
Here's the situation (an example):
I have sheet1 that contains the following information
Column A Column B
company1 - book value 0,5
company1 - earnings 0.2
company1 - R&D 1111
company1 - total assets 200000
company2 - book value 2
company2 - earnings 333
company2 - total assets 12
So column B contains only numbers and note that for company 2 I do not have any numbers on R&D.
I have in sheet2 only once the company name. I would like now that if column a contains the text "book value" to have the value of column B pasted in sheet 2 column B. Same for earnings to be pasted in column C. R&D in column D and if R&D is not present for that company then the value should say something like unknown.
I'm having issues with finding anything on the loop that I'm going to need to run.
I need to open each xls file in a directory with a date in 2007. Inside of each file I need to copy a cell and paste that number into a new workbook in cell A1
Then close the first file, open the second, copy the cell and paste the data into A2. I would need this loop to continue until all files have been opened and had the data copied.
Macros question - The user enters a word, e.g. Malaysia in a particular cell (always the same location) and I want the macro to be able to find the next cell with that word in it, but it appears that when using macros you can't paste anything into the find function, so was just wondering what to do!
View 1 Replies View RelatedWarrantee.xlsx
I attached the sheet that I am trying to get up and running, there is two things I need to do, but cant get it working as I intend to.
Sheet 1 - When the invoice number is fulled in in cell F8 a message box must pop up requesting the hyperlink to the invoice saved on a share folder, but for now on the desktop, when the file is selected it (the hyperlink) must be returned to cell G8, then once the last cell (I8) has been completed, the line 8 must be locked so that it can't be editted again without a default password and a new line must be added below line 8 for processing, I tried recording the macro, but it only works on one line, and on the message box request, I truly am not up to speed yet, this I can't get up and running.
Excel 2010
I do data entry for a driveway company. I get addresses and phone numbers, and then call the people to offer services. I keep track of my calls on the spreadsheet, color coded for my results, green for leads, yellow for voicemail/no answer, and red for not interested.
I have formulas in cells M2 through M8 to give me my overall stats for the calls I have made, it filters them by color for leads, missed calls, and rejections, and a couple other stats (mostly for my own curiosity)
What I'm trying to add is the cells L10 to M13, I want to be able to input a date, for instance 8/15, and have it run the same stats, just for that day essentially. So, I need it to search the last 2 columns in the table for the text that I input into cell M10, and then run the color based formula on those cells, and total them up in the appropriate cells, M11, M12, and M13.
The 2 Stats tables are the same at the moment in the sample, as I only included one particular street that I have mapped, my actual table is nearly 3000 rows.
What do I need to put in a macro that would
MacroZ:
Start in D1 then if cell has text "Mx2" use macro MK2.
If cell has text "Mx3" use Macro MK3
If cell has text "Mx4" use macro Mk4
Then go down 17 cells and repeat the macroZ until the active cell is empty then use macro MKX
This sub routine is in the middle of a macro that runs down a list of file names, opens them and updates all links. So no problem there works fine....
View 9 Replies View RelatedI have a worksheet with a various data in column B.
1/ I want to search column B one row at a time looking for a string value of 'Town'.
2/ When the first row containing this string is found select a left 35 chars substring of the value in the column C and copy this down in column A if the value in Column B = '0000/00' UNTIL the string value of 'Town' changes
3/ Repeat 2/ until the last instance of 'Town' has been processed.
4/ Column A will have some empty cells where Town has not been populated. These rows should be deleted and replaced with one empty row between each change of Town value
3/ Continue pasting this string value into each successive row
I have a range of cells which I wish to print to a .txt document. However, I would like these cells to stay aligned, one on top of the other. I am currently doing that by finding the cell with the widest piece of data for each column, and storing the width that each column needs to be to an array of integers. Then, when printing out the range, I simply add spaces to each piece of data its width is the same as the max column width. I am finding the max column width using the following loop:
'find the width for each column and store in col_width()
For cur_col = 1 To total_cols
'skip the tag switches column
If cur_col <> 3 Then
max_data_width = 0
For cur_row = 1 To total_rows
cell_data_width = Len(Find_String_Diagnostics(diagnostic_range.Cells(cur_row, cur_col)))
If cell_data_width > max_data_width Then.................
I have a spreadsheet that uses VB macros to calculate sums of cells based on the font color of the numbers inside. It used to be fairly easy going through each cell and "classifying" them by color, so that my macros can go ahead and sum the numbers in each respective color's cell... but now I have a huge amount of numbers and would like to automate the process somewhat. Here's an example using the A and B columns:
flight $400
hotel $150
hotel $130
meal $20
meal $15
flight $350
I tried using conditional formatting to automatically change the color of the adjacent cells based on the presence of a keyword such as "flight" or "hotel", but this change is only cosmetic, and doesn't actually change the font color (it is still the default black, hence why my color-summing macros won't work!).
I'm including a sample macro for what I use to color-sum my cells, but what I am looking to automate the color-coding process based on looking for keywords as explained above in my example. Here is one of the working color-summing macros (for red, in this case) if you'd like to use it as a reference:
Function SumRed(SelectedCells As Range)
' Adds the values of the cells where the font colour is red(3).
Dim Cell As Object
Dim x As Double
[Code] ...........
I am trying to loop through column A and I want to store in an array where I find "App" within the cell value. I am trying to find "App" but will store the whole cell value in the array. I could not figure out the Find method, so I tried the MID function but am having no luck.
Here is my code:
Code:
Sub Arraytest()
Dim arr As Variant, lastrow As Long, i As Long, f As Long, l As Long
f = 0
lastrow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
ReDim arr(1 To 1, 1 To lastrow)
[Code] .....
Let's say sheet - "delivery" - has a row1 that includes all possible delivery days. So A1 is 1.9.2013, B1 is 15.9.2013, C1 is 1.10.2013 and so on.
I want to make a macro, that will gradually go through whole row 3 in sheet "delivery" and look for "A1" date in sheet "Orders". Sheet "orders" have for example in column B the date of delivery, and in column C product of the delivery.
I want the macro to find all deliveries with "A1" date, and paste all products that will be delivered on this day under cell A1 (sheet delivery). then move on to the cell B1 (sheet delivery) - find all orders in sheet orders, that will be delivered on B1 date, and list all products with this delivery date under cell B1 (sheet delivery).
Example:
Sheet order
A
B
C
Date of delivery
Product
1.9.2013
orange
[Code] ........
Unfortunately simple Pivot table is not able to do this simple list.
I have a very long routine, looping through 35,000-ish rows several times to detect and delete unwanted items. Occasionally, it gets locked into an endless loop and CTRL+Break will not stop it - I have to kill Excel through the Task Manager.
How can I find out where the endless loop is so I can detect what's causingit and fix it?
Is there any method to speed up a for each loop to count text in a cell with multiple criterias in a single column. This is on example:
Code:
For each rr in r
If rr = "a" And rr.Font.Strikethrough = False Or rr = "B" _
And rr.Font.Strikethrough = False Then
a = a + 1
end if
next
I have a report that in column BX has a large string of text (html information). Within this text there is a phrase called "| Hear = Education Website |" The phrase Education Website can be a variety of things though (Up to 9 choices). What is a formula I could use to just pull out the text after "Hear =" but before |""?
View 8 Replies View RelatedI am working on modifying this code (below) that I found here: VB Macro to search webpage for text string
Code:
Option Explicit
Public stResultstr As String
Sub SearchForString()
Dim rngURL As Range
Dim cll As Range
Dim stCheck As String
Dim xmlHttp As Object
[Code]...
So right now I have the script prompt you for a URL range, then it asks you for what you want to search for, and I have it set to return the next 10 characters from that found point.
You can see here:
Code:
If InStr(1, stResult, stCheck, vbBinaryCompare) > intt Then
intt = InStr(1, stResult, stCheck, vbBinaryCompare) + Len(stCheck)
I began to create something to identify the last position of the found item because next I want to loop it to find the next occurance of the same thing and return the next 10 characters after it in the next cell to the right in that same row:
Code:
cll.Offset(, 1).Value = stResultstr
Again, what I want to do here is find and parse out every occurence of a string (inputbox) found on a web page url in column A. The parse occurrences will go to the right in cells C though ? for row N.
I have a large workbook with hundreds of rows of data.
I have sorted the data and ended up with product codes in column A and my data between columns C and V.
I want to do a sumif with a difference if that is possible.
I want to sum all of the data in column C based on the product code in Column A. But I don't want to include any rows of data where Column V is blank.
i.e. If my sumif for a product code covered 3 rows C3:V5
I want to sumif Column C dependent on the product code in column A but I only want to include rows where there is a value in Column V.
So if all of the cells between C3:V3 contain data include count C3.
Moving down to row 4 if this row only has data between C4:M4 don't include C4.
Moving down to row 5 if this row has data C5:V5 include C5 in the sumif.
i.e if there was 100 in C3, 200 in C4 and 300 in C5 the sumif would be 400 because although C4 has a value V4 does not.
I want to roll this out across all of the columns C:V using the same method if possible.
I have the folowing criteria :
1) If “Completed" , then highlight as green
2) If “Pending” , then highlight as red
3) If “In Progress” , then highlight as blue
4) If “X Required” , then highlight as green
I need to include in the third conditional formatting box that if the cell populates "Completed" or "X Required", then highlight as green. Is there a formula I can use in the conditional formatting box ? I am using Excel 2000.
We have a spreadsheet in use at the moment which has various lines of information, each line has a customer name, id, request and various other bits of information which needs looking into.
The infomation is arranged onto weekly sheets and is managed manually. Once the customer request is complete, we grey out the background colour. Some outstanding issues background colours are either left blank, yellow or red, depending on whos doing them.
I was wondering if there is a search criteria that we could use that would search through all the sheets in the workbook and find any customer queries that are not greyed out and display them on the results page.
