Search results

You may have to find the .txt file first then open it and then use what value is in the file.

Have a look at row 1467, You have Text in col E and F, remove text and it will work.

Have you tried to code it your self yet ?

No code on file showing move to row 30

You need to post excel code so it can be changed.

What are you looking for ?

Can you post the code you have tried to do your tasks ?

Hi Gman A new vba way, (You really got me thinking on this problem !!!) Put code in a module and run "Insert3Rows" Sub Insert3Rows() Application.ScreenUpdating = False Call DeleteBlankRows Dim lRow As Long Dim Rng As Range Dim WorkRng As Range On Error Resume Next Set WorkRng =...

Put this in to a vba sub :- Const blanks =3 Dim lastValue AsString, i AsLong, r AsLong Do r = r +1 If r >1 And lastValue <> Cells(r,1).Value Then If Cells(r,1).Value = "" ThenExitDo For i =1 To blanks Rows(r).Insert Shift:=xlDown Next r = r + blanks EndIf lastValue = Cells(r,1).Value Loop

The way it works is :- =IF(ISERROR(Your Formula here),"What you want to see on error",Your Formula here)

Ctrl + Shift + 0 is the new command.

Try =IF(ISERROR(SUM(($N115+$N116)/$N120)*$J114),"0",SUM(($N115+$N116)/$N120)*$J114)

Try :- =IF(ISERROR(O120-N117-(($N$2/$N121)*S114)),"0",O120-N117-(($N$2/$N121)*S114))

If they are actually true dates, just change the cell format and the display should change.

Is one formula not simpler than 6010 formula's ?

Or try this if you will have any negative numbers :- =SMALL(A5:A3005,COUNTIF(A5:A3005,0)+COUNTIF(A5:A3005,"<0")+1)

Try this :- =(SMALL(A5:A3005,COUNTIF($A$5:$A$3005,0)+1))

Its a 10 week Chess tournament and the "Data" Table values cant change until contest is over then ratings are updated and used for a new contest.

I think your posts should be in "The Vault" as you are not looking for help.

Code is good but it cant be used as a Worksheet_Change.

I am looking for code / tips / links to Update some of the data in a sorted table with new data from K8-K17.

Use it like this :- Sub AW() aw_y_max = Sheets("Sheet1").UsedRange.Rows.Count With Worksheets("Sheet1") .Cells.Item(aw_y_max, "AW").Interior.ColorIndex = 3 End With End Sub

I think post should have been in "The vault"

What fault in your code are you looking to fix ?

Try Activesheet.Pictures.Delete