Search results for query: *

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...

...Dim rightsixfn As String mypath = &quot;C:\Production Files&quot; Set fs = Application.FileSearch With fs .LookIn = mypath '.FileName = &quot;*.*&quot; .FileType = msoFileTypeAllFiles If .Execute > 0 Then For i = 1 To .FoundFiles.Count fn = .FoundFiles(i) rightsixfn = Right(fn, 4) If...

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

Also the following code demostrates how to turn on/off Excel's macro virus protection for both Excel 2000 and 97. Option Compare Text Option Explicit Private Declare Function RegCloseKey Lib &quot;advapi32.dll&quot; (ByVal lhKey As Long) As Long Private Declare Function RegCreateKey Lib...

I'm not sure but try this..... Tools/Options/General/ uncheck macro virus detection Thank you, Dave Rattigan

Awesome scripting..... This will return if you're in a table or not..... If appWord.Selection.Information(wdWithInTable) Then Thank you, Dave Rattigan

I'm no VBA Word expert but I took this from one of my loops.....its looking for each instance of a string &quot;Figure #?:&quot; (using ? us a wildcard) then it returns the dynamic pagenumer of the document it's on and total number of pages. This is just a section of a much larger loop so it's...

Stick this in your email sending loop and it will save a copy of each attachment with a revised filename (which is just todays date appended to the attachment filename) to your C: myattachment = &quot;C:\AttachmentFile.xls&quot; 'make this a variable .Attachments.Add myattachment, olByValue, 2...