Search results for query: *

Application.Interactive = False

I suggest you associate random numbers with numbers 0-9999, then sort in the order of the random numbers. This will give those numbers in random order. Simplest way would do this in a worksheet but you could do it with an array if you prefer (probably). Then load into your databse all at...

Try putting this in the worksheet module to make it run when column a is changed. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then CurRow = target.row ' Set by your code to whatever row the 'user is working on. . . Worksheets("Sheet1").Range("B" & CurRow).Value...

Try application.caller

Ivan I have been on your site a few times before - it is awesome.

Hi, ideas for this one are appreciated. I have a worksheet with several images on it (gifs pasted onto the worksheet). When a userform is opened I would like a random one of these images to be used as the image on an image control on a userform. Can easily select a random image from the...

You could build a USerform and do this if you feel inclined.

Would anybody know a slick way to sort a collection or array into a random order? The only method I can think of at the moment is to put the values into a worksheet, assign random numbers to the next column, sort and reload into the collection/array. Yuk

I think it is the opening, closing and saving of workbooks that takes the time, and I don't know if this can be sped up. Would be interested to know if anyone has a way...

This should help, change "mypath" to point to the directory. Not tested so it might need some tweaks. Sub RemSpacesinA1() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim openwb As Workbook Dim ws As Worksheet Dim mypath As String Dim ssf As Boolean mypath = "C:\"...

Hats off to you sir! Would give two stars if I was allowed....

Not sure if this can be done using XL2k. Would like to have a stacked bar chart with a line as well. I am able to combine bar chart and line chart but not have stacked bars. The stack bars will be the achieved volumes of business broken down into categories by month, and the line represents...

You could use VB Script Paste this into notepad and save with a vbs extension. When you run it it will open Excel. Dim MyObj Set MyObj=CreateObject("WScript.Shell") MyObj.Run "Excel.exe"

Select the range. Then go to format - cells, then choose custom and enter 00000

go to file - page setup choose sheet tab enter $1:$1 in rows to repeat at top

select the entire sheet first

I would go for: with range(rows(i),rows(j)) no concatenating strings and less dots therefore faster.

This can be done with formatting very easily, just select the part of the cell you want to format and go to format cells as usual. You can also have parts bold, different sized fonts or whatever you want in the same way.

=IF(WEEKDAY(c3)=7,c3-43,IF(WEEKDAY(c3)=1,c3-44,c3-42)) is one possibility.

Or if you want to pose: =VLOOKUP(G2,(INDIRECT("B"&MATCH(G1,A1:A6,0)&":c6")),2,FALSE)