Posts by Iridium

Iridium · Dec 1st 2003

This may be of use to you

http://j-walk.com/ss/excel/tips/tip53.htm

HTH

Iridium · Nov 27th 2003

To elaborate more:

Code

Application.DisplayAlerts = False
Application.ScreenUpdating = False


' your code here
...
Application.DisplayAlerts = True
Application.ScreenUpdating = True

Else a simpler approach (I think!)

Code

SolverSolve True

HTH

Iridium · Nov 27th 2003

Sounds like you need Application.DisplayAlerts=False at the start of your macro (remember to set to true at the end of your macro)

Post back if I've missed the point

HTH

Iridium · Nov 26th 2003

This may be handy

http://www.danielklann.com/Exc…g_a_range_as_the_body.htm

Also have a look at http://www.rondebruin.nl/sendmail.htm#body

HTH

Iridium · Nov 26th 2003

Check this link out also

J-Walk: Alternatives to nested IF functions

HTH

Iridium · Nov 26th 2003

How about the ABS function - look in the xl help

HTH

Iridium · Nov 24th 2003

Evidently not!

The formula in f2 is =SUMIF(A1:E1,">=100",A1:E1)/COUNTIF(A1:E1,">=100")

Iridium · Nov 24th 2003

This any use?

<SCRIPT language=JavaScript src="http://www.interq.or.jp/sun/puremis/colo/popup.js"></SCRIPT><CENTER><TABLE cellSpacing=0 cellPadding=0 align=center><TBODY><TR><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid" bgColor=#0c266b colSpan=7><TABLE width="100%" align=center border=0><TBODY><TR><TD align=left><FONT color=white>Microsoft Excel - Book1</FONT></TD><TD style="FONT-SIZE: 9pt; COLOR: #ffffff; FONT-FAMILY: caption" align=right>___Running: xl2002 XP : OS = Windows XP </FONT></TD></TR></TBODY></TABLE></TD></TR><TR><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid; HEIGHT: 25px" bgColor=#d4d0c8 colSpan=7><TABLE width="100%" align=center border=0 VALIGN="MIDDLE"><TBODY><TR><TD style="FONT-SIZE: 10pt; COLOR: #000000; FONT-FAMILY: caption"><U>F</U>ile <U>E</U>dit <U>V</U>iew <U>I</U>nsert <U>O</U>ptions <U>T</U>ools <U>D</U>ata <U>W</U>indow <U>H</U>elp <A onclick=show_popup(); href="#javascript:void(0)"><U>A</U>bout</A></TD><TD vAlign=center align=right><FORM name=formCb653753><INPUT onclick='window.clipboardData.setData("Text",document.formFb685520.sltNb127543.value);' type=button value="Copy Formula" name=btCb592414></FORM></TD></TR></TBODY></TABLE></TD></TR><TR><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid" bgColor=white colSpan=7><TABLE border=0><TBODY><TR><FORM name=formFb685520><TD style="WIDTH: 60px" align=middle bgColor=white><SELECT onchange="document.formFb685520.txbFb761591.value = document.formFb685520.sltNb127543.value" name=sltNb127543><OPTION value='=SUMIF(A1:E1,">=100",A1:E1)/COUNTIF(A1:E1,">=100")' selected>F2</OPTION></SELECT></TD><TD align=right width="3%" bgColor=#d4d0c8><B>=</B></TD><TD align=left bgColor=white><INPUT size=80 value='=SUMIF(A1:E1,">=100",A1:E1)/COUNTIF(A1:E1,">=100")' name=txbFb761591></TD></FORM></TR></TBODY></TABLE></TD></TR><TR><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid; BACKGROUND-COLOR: #d4d0c8" align=middle width="2%"><BR></TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle><CENTER>A</CENTER></TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle><CENTER>B</CENTER></TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle><CENTER>C</CENTER></TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle><CENTER>D</CENTER></TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle><CENTER>E</CENTER></TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; COLOR: black; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle><CENTER>F</CENTER></TD></TR><TR><TD style="BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; BORDER-LEFT: #000000 0.5pt solid; COLOR: #000000; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle width="2%"><CENTER>1</CENTER></TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid">100</TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid">100</TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid">50</TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid">100</TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid">100</TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid"> </TD></TR><TR><TD style="BORDER-TOP: #000000 0.5pt solid; FONT-SIZE: 10pt; BORDER-LEFT: #000000 0.5pt solid; COLOR: #000000; FONT-FAMILY: menu; BACKGROUND-COLOR: #d4d0c8" align=middle width="2%"><CENTER>2</CENTER></TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid"> </TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid"> </TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid"> </TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid"> </TD><TD style="BORDER-RIGHT: #d4d0c8 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid"> </TD><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-BOTTOM: #d4d0c8 0.5pt solid"><A onclick="document.formFb685520.sltNb127543.options[0].selected=true; document.formFb685520.txbFb761591.value = document.formFb685520.sltNb127543.value;" href="#javascript:void(0);">100</FONT></A></TD></TR><TR><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #808080 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid; BORDER-BOTTOM: #000000 0.5pt solid; BACKGROUND-COLOR: #d4d0c8" colSpan=7><TABLE width="100%" align=left VALIGN="TOP"><TBODY><TR><TD style="BORDER-RIGHT: #000000 0.5pt solid; BORDER-TOP: #808080 0.5pt solid; BORDER-LEFT: #000000 0.5pt solid; WIDTH: 120pt; BORDER-BOTTOM: #000000 0.5pt solid; BACKGROUND-COLOR: #ffffff" align=left><U>Sheet1</U></TD><TD> </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR><FONT color=#339966 size=1>[HtmlMaker light Ver1.10] </FONT><FONT color=#339966 size=1>To see the formula in the cells just click on the cells hyperlink or click the Name box</FONT><BR><FONT color=red size=1>PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.</FONT></CENTER>

HTH

Iridium · Nov 24th 2003

Couldn't find it on my PC - running xl2k2 and XP. Have you not got an Office CD lying about? Was there something specific you were after?

Iridium · Nov 24th 2003

Code

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cellactivatetest As Range


    Set cellactivatetest = Range("A1")
    
    If Not Application.Intersect(cellactivatetest, Range(Target.Address)) Is Nothing Then


        ' Place your code here.
        MsgBox "Cell " & Target.Address & " has changed." 'for example - pop your macro name in here 
       
    End If
End Sub

Display More

This goes in the sheet module as opposed to a standard module

HTH

Iridium · Nov 20th 2003

Quote

Originally posted by Michael Avidan
I apologize for my bad English as it is not my mother tongue.

Well your English is good so no apologies necessary - I don't think I know a single word of Hebrew (or perhaps Yiddish?)

Anyway I'm not too sure about your question but I think this may be of some use to you:

http://www.stfx.ca/people/blie…elTips/AreaUnderCurve.htm

HTH

Iridium · Nov 20th 2003

May have misunderstood but why don't you use the macro recorder to generate the code for the "Copy and Paste Value and Format only function" and add that to your macro

Iridium · Nov 18th 2003

Posts by Iridium

[Solved] VBA: Menus

VBA: Executing a Solver automatically

VBA: Executing a Solver automatically

Email: Paste into Email Body

Formulas: If function - largest number of If's in the f

Conditional Formatting: Negative time

[Solved] Formulas: Qucik Question

[Solved] Formulas: Qucik Question

Could someone post a help file?

VBA code to activate a macro when cell is activated?

Charts: LINE and SURFACE (AREA) Charts

VBA: Possibility of Adding a Copy and Paste Value and Format

Identify and list all formulas

VBA: Allowed user

Change the default format for dates:

VBA: transfer macros

Excel Close but not save file command

Excel Close but not save file command

Beer Scooter Anyone?

How Can I send a completed excel sheet to a distribution li