Recent content by ratman

Hi dataent, Please email me the copy of the test program modified and sent to you from Crystal Decisions. Thank you very much ! Dave Rattigan drat@attbi.com or drattigan@parlex.com

In Excel I have a userform with an CRVIEWER1 viewer on it. My code loads an existing .rpt report to the viewer fine. Export, printing and all other functions on the viewer(stop,search,navigation etc.) also work fine. All those functions work without any code. PROBLEM is the refresh does not...

Hi and thanks for reading this ! I need to return the users Outlook signature or VCard if one exists. The rest of my app works well except I need to include the users signature in the body of the new message . Just the signature code is needed as in what to Set and the command line to return...

Hi just set a counter, incrementing it each time it loops. With each failure until the limit use the GoTo command with a label. blah blah countme = 0 tryagain: blah countme = countme + 1 blah If countme < 4 Then GoTo tryagain Thank you, Dave Rattigan

No time to test today but try this after each sucessfull find. Selection.Find.ClearFormatting Thank you, Dave Rattigan

Consider this: '----for testing 1st empty cell in column A---- If IsEmpty(Range(&quot;A2&quot;).Value) Then lastrow = 1 Else lastrow = [A1].End(xlDown).Row Thank you, Dave Rattigan

Consider modifying these options: 'these would go in the ThisWorkbook module. 'this prevents closing of a workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False Cancel = True End Sub '-----this prevents saveas of a workbook. Private Sub...

Consider this: BE CAREFULL ! this will without warning delete all Excel workbooks from said folder !!!!!!! Sub deletefilename() Dim fs As FileSearch Dim fn As String Dim rightsixfn As String mypath = &quot;C:\Production Files&quot; Set fs = Application.FileSearch With fs .LookIn = mypath...

Thanks Kevin.....but that only works on a unshared (ExclusiveAccess) workbook; mine is shared (MultiUserEditing). As a go around I tested it for sharing then if shared I unshared it, activated the TextBox then saved as shared. Thank you, Dave Rattigan

How to set focus to an embedded text box control on a shared worksheet, NOT part of a UserForm collection of controls Thank you, Dave Rattigan

ActiveWorkbook.Close Thank you, Dave Rattigan

consider this: Dim charCount As Long charCount = myRange.ComputeStatistics(Statistic:=wdStatisticCharacters) Thank you, Dave Rattigan

Application.ScreenUpdating = False Thank you, Dave Rattigan

Just a follow up on my previous thread.....this returns the screen resolution also: Declare Function GetSystemMetrics32 Lib &quot;User32&quot; Alias &quot;GetSystemMetrics&quot; (ByVal nIndex As Long) As Long Sub DisplayMonitorInfo() Dim w As Long, h As Long w = GetSystemMetrics32(0) '...

Consider this: Sub IfChartExistsOnSheet() Dim a As String Dim endo As String On Error GoTo endo a = Worksheets(&quot;Sheet1&quot;).ChartObjects(1).Name endo: If a = &quot;&quot; Then nochart = 1 End Sub Thank you, Dave Rattigan