I have a VBA program which is running very slowly on one of my computers, but none of the others.
Here's a piece of code which illustrates the problem, which is that assigning a null string to a cell is very slow.
Option Explicit Public Sub test() Dim objSh As Worksheet Dim I As Integer
Set objSh = Worksheets("Sheet1") MsgBox "test1" For I = 1 To 1000 objSh.Cells(1, 1) = "" Next MsgBox "test2" For I = 1 To 1000 objSh.Cells(1, 1) = " " Next MsgBox "done" End Sub
If I change this to assign a space instead it is very fast (about 1,000 times faster).
This slow machine is not normally slow; an ACER Aspire 9410Z with 2GB RAM, running Vista Ultimate.
Other machines run this code OK on a mix of Windows XP, 2000 and Vista Business. with Excel 2003, 2000 and 2007.
Ultimate seems to be the only unique factor of the machine where it runs slowly.
So I have this list (I made it a little bit shorter).
So what you see is two different tasks (01 and 02) and three different conditions (A, B and C). In column B you see the result I would like to have. '/Searchtask_01.html' in A1 belongs to conditions A, because it is in session A. However, '/Searchtask_01.html' in A10 belongs to conditions B, because it is in session B.
when cell A1=2 (A2 & A3 wilL appear the value "1") when cell A1=3 (A2, A3, A4 will appear the value "1") when cell A1=4 (A2, A3, A4, A5 will appear the value "1") when cell A1=5 (A2, A3, A4, A5, A6, will appear the value "1")
I read in a book that if you enter a formula in a cell, like cell A1 contains =rand() for instance, that if you select Go on the menu tab, and then enter the final destination cell or range (ex: A1,A200), then hit ctrl+Enter simultaneously, it will fill the formula down to that cell. I can get it to select the range, by hitting Shift+Enter, but not copy down the formula using Ctrl+Enter, or Ctrl+Shift+Enter. I am using excel 03, XP. It only returns blank values for the range.
I am trying to do is have a VBA automatically fill a blank cell with text of a different color.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("B8") = """" Then Range("B8") = "Name" End If End Sub
Is what I've been trying to get to work. If the value in B8 is suddenly deleted, I want that cell to show "First Name", in a lighter grey. I know I can get the color of the text by using the conditional formatting, but how do I get that cell to auto-fill when deleted?
I have a command button set up to gather information, then create a new sheet, and paste a copied button from another location to the new sheet. The command button that shows up on the new sheet is offset and not centered in the cell. It is centered in the cell where it comes from and the cells are the same size.
I noticed that if I copy a command button and simply paste it to a new sheet, it is offset just like this. I need it to not do this. If I have to make it write in a new command button and assign a macro to it, that is fine. I went with the copy/paste option to save time.
[Code] .....
Now, before it becomes an issue, this is only a part of the full code, but it is running in it's own conditional loop. The other part works fine. And I tried changing the alignment in the cell to see if that was the issue. It was not.
Copied command buttons are offset in the cells they are pasted to.
I need a formula to transfer the values in on cell to another designated cell. "AM" should be in the cell under "AM and "PM" should be under the cell marked "PM". If there's nothing in the space where AM or PM is, that should be blank.
in col I are all the units of measurement: KG, PKT, BAG in ColJ is the formula to return:
KG as 9999999 PKT as 8888888 BAg as 7777777
if(i2=kg, 999999999,"false!")
i was thinking of using if....but triple if formulas would be long isn't it?
PART2 of this would be using: =IF((SUMPRODUCT(--(db!$A$2:$A$36000=$B$1),--(db!$F$2:$F$36000=C$5),--(db!$G$2:$G$36000=C$6),--(db!$E$2:$E$36000=$A7),--(db!$D$2:$D$36000=$B7),db!$I$2:$I$36000))=9999999,"KG","Invalid")
to check 5 values and if it is 999999999 it'll return KG 8888888 PKT 7777777 BAg
I am in need of a macro that will scan a worksheet row by row, noting the column names (found in I2 to AQ2) in a specific horizontal span of cells (I to AQ) that hold (any) data. The macro will then paste these column names in a designated cell on each corresponding row (always found in column F), separating the column names with commas.
I am trying to do this for multiple worksheets containing ~100 rows - the example attached is just a quick demo of what I'm hoping to achieve. Also, these worksheets are contained in one big workbook, so ideally I'd like to be able to run the macro once and have it apply to every sheet in that workbook (they all have the same layout - the only big difference is the number of rows). If the Total Scenes part at the bottom of the sheet is problematic in getting this to work, it's fine to remove it.
I am doing a Regular Expression search on a string variable assigned to the HTML content of a Wikipedia search. However I am currently manually going to Wikipedia, searching for the term, saving the html page, opening the saved page with Notepad and then copying the content into a cell.
Can the above process be automated with VBA, how to assign the html content of a Wikipedia search to a string variable.
I have a excel spread with a range of A1:H64. The spreadsheet is designed for the user to enter information into the appropriate cells, i.e. user ID in cell D4; name in cell D5; and date in cell F5. My question is instead of the user scrolling around and finding the cells that require input is there a way to set the spreadsheet where the user tabs and/or uses the enter key to move around and go only to the cells that require input and not to the ones that are locked and protected?
I have several separate Excel files that are all formatted in the same way.
I want all this data, excluding the header rows, from those separate Excel files, to appear in a new/designated Excel file. - I don't want to keep copying and pasting.
I also want the data, once extracted/copied/exported, to be formatted according the formatting style on the designated Excel file.
I have a large list of cells in excel: 15, 33, 90, 102, 149, 159, 217, 228, 238, 247, 305, 312, 369, 417, 428, 486, 538, 548, 606, 621, 671, 679, 737, 805, 816, 874, 915, 923, 981, 1029,1038 .
Under each of these cells I would like to insert 20 blank rows. I have tried various codes but i'm struggling with the fact that as soon as I insert 20 rows at cell 15, all the other cellnumbers change.
This is a reformulation of this post: [URL] ...........
Is it possible to protect an excel file such that it will open up only on designated computers (identified by the computer name or some unique hardware identification like MAC address etc)?I was wondering if the VB editor can be used to do the same.
Let me put my requirement in detail:
I have an excel file "123" created in one computer (named=A). On this computer this file can be opened by anyone.I write a code such a way that, this particular file when copied on to other computers say (B,C & D) would open up as usual. But on computer E or any other computer, it should not open.
I cannot use password protect feature on the file as "n" number of users will be accessing this file on those designated computers. I was finding few of the clients copying the files on their personal drives or email without proper consent.If its possible, I would like to employ the same on few of my word (.doc) files as well.
I really appreciate help from the excel gurus and expert here on my little problem. I'm rarely using excel and have a very little knowledge on VBA programming.In short, I've been requested to develop a shift schedule for my department that can automate the shift staff schedule on the monthly basis.
I've created two worksheet of which the first worksheet is represent as master data list (INPUT Worksheet) that contain with formulas. While the other worksheet is the automated shift data (REPORT Worksheet) that linked from the master data list (INPUT Worksheet).
Attached herewith is a sample of my work. As you can see,I wanted to copy comments from the input worksheets (on DUTY column) so that it will then automatically appears or updated in the shift schedule. Whenever the dropdown selection change, the data will change accordingly. On the REPORT worksheet, each cells, range D14:AH38 are referring to DUTY column month by month. I'm able to link it but it fails to copy over the comments as well. I believe that macro can resolve this, can someone help me on this?
In sheet1 I have a simple database consisting of 5 columns of data
Column A : Name ie James Jones Column B : payroll number ie 123456 Column C : shift times ie 1245-2124 Column D : job title ie floor Column E : comments ie A/L or 0600-1500
what I would like is some code that will go down Column E and if a 'time string' ie 1300-2130 is found then copy this string and paste into corresponding value in column C. If a text string is found ie A/L or Sick or anything like this then ignore and move onto next cell, loop this until all cells in column E have been checked.
I have excel 2010. I have a worksheet with formulas that refer to a labelled cell, and I want to change the location that they refer to. When I select the name in the Name Box and delete it or type another name it has no effect on the name of the cell.
I want to be able to "count" apples and oranges. Is there a way to record a particular text in a text formatted cell and count it. e.g. 10 cells, 3 say "apples", three say "oranges", 4 say "plums". I want excel to keep track of the three types of fruit when I change them and give me a running number of each.
There are 10 rows of data, and would like to assign value at the end of each row as "initiated" "In the process" "Needs to be Reviewed" "Completed", by using Buttons with different macros.
I have a large spread sheet with cells that have manually been coloured - Red, Green, Blue, Yellow according to data throughout sheet. I want to conditionally format these cells instead of the manual work that has been done previously, so i was thinking if i could assign a value based on the current cell colour, then paste special and wipe the current colour scheme i would be able to conditionally format based on the new numeric data and colour code accordingly.
