Search results for query: *

Try Insert - Object

This does what you described. Hope it helps Private Sub Worksheet_Change(ByVal Target As Range) ColToCheck = 1 CurrentRow = Target.Row For i = 1 To CurrentRow - 1 If Cells(i, ColToCheck) = Cells(CurrentRow, ColToCheck) Then Duplicate = True Exit For End If Next i If...

This should work I think. Sub RemoveIfEmpty() MyFile = Dir("c:\test\*.*") If Len(MyFile) = 0 Then RmDir ("c:\test") End If End Sub

It is pretty standard Windows functionality to use TAB to go between fields. If you disable this, most windows application users would wonder why the TAB key wasn't working! You could program the Enter Key and the TAB key to have the same functionality. Using a full stop is the same as using the...

I suppose you could put a line in the change event along the lines of 'if len(DateString) = 2 then jump to next box' But I think leaving the user to TAB is better as it allows them to correct mistakes.

You could use a bunch of nested If, THEN, ELSEs. eg =IF(W12>0,SUM(A12,C12,E12,G12,I12,K12,M12,O12,Q12,S12,U12,W12), IF(U12>0,SUM(A12,C12,E12,G12,I12,K12,M12,O12,Q12,S12,U12), If(s12>0,...............))) etc etc

IF See Also Returns one value if a condition you specify evaluates to TRUE and another value if it evaluates to FALSE. Use IF to conduct conditional tests on values and formulas. Syntax IF(logical_test,value_if_true,value_if_false) Logical_test is any value or expression that can be...

Why not use 3 separate text boxes then join them together at the end.

If I understand the requirement, like this. Sub Mysub() LastCol = 10 For MyCol = 1 To LastCol If Cells(2, MyCol) = "v" Then Cells(2, MyCol) = Cells(15, MyCol) End If Next MyCol End Sub

Try: For Each s In ActiveDocument.Shapes MsgBox s.Name Next s This returns the name of the text box then: ActiveDocument.Shapes("Text Box 4").Select Selection.TypeText Text:="xxxx" puts the text in

Thanks jedi (nice name!), but Skip's way allows the users to select the colours in the same way as they always have. I have now managed to keep track of the old cell location in the changeselection event using a public variable. I can then call the change event using the old location and check...

Skip, Thanks for you response, I understand the reasoning, but how can I pass the previous cell's location to the Selection Change when the Target parameter holds only the new location.

The 2nd option sounds the most promising. Maybe removing built -in background colour toolbar function and replacing it with one of my own. I can't think what else you might have had in mind.

I would like to run a macro to check the contents of a cell when a user chages its colour. The colour change does not trigger the worksheet change event. Can anyone help?

Thanks for that - good tip. In this case however, worksheets(1) is not the active sheet so the screen is not updating as it runs. I tried it just in case but the overall time was the same.

I currently have a large amount of data (10000 rows x 10 columns) of string data held in an array during the execution of a macro. I would like to write this to an empty sheet. I am currently using a for and next loop like: For 1 = 1 to 10000 worksheets(1).cells(i,1) = Myarray(i,1)...

You could have a macro running constantly in the background that recalculates every second.It soumds very heavy on system resourses.

="25/12/04 00:01"-NOW() in a cell returns 139.18 (cell formatted to number) This equates to 139.18 days to 1 minute past midnight on Xmas day. Formatting the cell (or another cell with same formula) to (custom) hh:mm:ss returns 04:24:03 (the 0.18 converted to hours minutes and seconds). I think...

A quote from the Excel Help files:- Filter for unique records Select the column or click a cell in the list you want to filter. On the Data menu, point to Filter, and then click Advanced Filter. Do one of the following. To filter the list in place, similar to using AutoFilter, click Filter...

I just put the formula =INDIRECT(B1) in Cell A1 and the formula =INDIRECT(B2) in cell A2. I typed "C1" in B1 and "C2" in B2. I put numbers, representing data in C1 and C2. I then was able to plot the data (from C1&C2) using =Sheet1!$A$1:$A$2 as the series data. So I guess what I am trying to say...