Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  • Users: PeterMoran
  • Content: Threads
  • Order by date
  1. PeterMoran

    Excel 16 - Ctrl-V does not hold for multiple pastes

    Hi, I find lately that Ctrl-V (Paste) sometimes does not hold for multiple pastes (repeating Ctrl-V without a Copy each time). Sometimes it works perfectly, then sometimes I have to do a Ctrl-C (Copy) for each paste. Any similar experiences, or even better, any known solutions! Thanks in...
  2. PeterMoran

    Word Macro to Open Window with just *.doc, & *.docx files

    Hi, I have this macro in Excel to just display *.csv files in the Open Window: Sub CSVOpen() ' ' CSVOpen Macro to Open Window for *.csv files in dir "Super" ' Dim myFileName As Variant Dim Wkbk As Workbook ChDir "C:\Users\Peter\Documents\Super" myFileName =...
  3. PeterMoran

    Excel and Word 16 - Using Ctrl O to Open Files Query

    Hi, In Excel 16 (at least) I would like to include "*.csv" in the All Excel Files option when opening files. Files I have downloaded as csv's from the internet just don't get displayed and there seems no obvious way to amend this. Maybe I should put it on the Microsoft Excel mod requests -...
  4. PeterMoran

    Repeating Finds in a Macro

    Hi, I have this macro I recorded to do some fiddling with subsequent lines every time it finds "Singles". I want this to be repeated until the end of the document, which I can't seem to work out after some investigation. Here is the macro: Sub FrOpenSinglesLines() ' FrOpenSinglesLines Macro...
  5. PeterMoran

    Word Find & Replace Words all Caps

    Hi, I am copying results from the French Open Tennis. This is what I get for each match in Word after I have pasted from the website: Men’s Singles - First Round Court Suzanne-Lenglen - 2h10 FABBIANO T.Fabbiano 3 5 1 - - CILIC M.Cilic (11) 6 7 6 - - Can I code a Find & Replace that will...
  6. PeterMoran

    When is a Blank cell not Blank? - XL07

    Hi, I have a formula in B1 which says: =IF(A1="x","","x") Now I would assume that if A1 is "x" then B1 would be blank - Not So! If I use F5 Special and select Blanks on this cell (B1), it does not show as a Blank even though it has a length of 0! However if I delete the formula, it does...
  7. PeterMoran

    Word07 Macro to Insert Locked Date

    Hi, I have the following code which I want to use to create a locked date in a Word Document, but seem unable to get the syntax or code correct! If I remember correctly Locking a Date originally seemed to me to be one of the Field options displayed when you specified "Date", but it does not...
  8. PeterMoran

    XL07 Importing Form - Invalid File reference

    Hi, I am trying to Import a Form into my "personal.xlsb" in XL07, and get the following error: Line 8: Property OleObjectBlob in frmChangeCase had an invalid file reference. Have just tried the same thing into a new "personal.xlsb" in XL10 where I understand the form has been tested...
  9. PeterMoran

    Syntax help needed in TextToColumns Macro

    Hi, I have the following code at the start of a Text To Cols Macro: Selection.TextToColumns Destination:=Range("B3"), _ How do I change the Range parameter so that it is variable, and points to the cell to the right of the current selection? Have searched Help without much luck...
  10. PeterMoran

    XL 07 Get Filtered Filenames in Window

    Hi, I have the following macro which lists "*.csv" files for my selection from a specific folder. Sub CSVOpen() ' ' CSVOpen Macro to Open Window for *.csv files in dir "Super" ' Written PJM 26/2/14 ' Dim myFileName As Variant Dim Wkbk As Workbook ChDir "C:\Users\Peter\Documents\Super"...
  11. PeterMoran

    COUNTIF with non-contiguous Range

    Hi, I think I'm having a bad day! I want to specify a COUNTIF as follows: =COUNTIF((D3,D6,D9,D12),5) All I get is a "#VALUE"! I even tried defining the same cells as a Range - ABC, but the same result! Suggestions please? Peter Moran
  12. PeterMoran

    Difficulties creating Macro with Restart Numbering in Word 07

    Hi, I have a style called "My Numbers" which I am trying to apply to selected text I select throughout a document in a Macro. The style has numbering starting at 1, but after the first time it is used, the numbering in the document continues to increment, rather than restarting at 1 each time...
  13. PeterMoran

    Syntax for Pasting to a Cell in a Selection

    Hi, I need a little help with the following code! For Each c In Range([Input!O7]).Cells 'Normally a range of 4 cells If Not IsNumeric(c.Value) Then If c.Value = "Wash Out" Then Range("Washout").Copy Range(.c).Paste "How do I define...
  14. PeterMoran

    Identify Cell with Single Underline

    Hi, I have this function to identify cells with formulas: Function HasFormula(Check_Cell As Range) ' ' HasFormula Function ' Checks whether a cell has a formula - TRUE/FALSE ' =HasFormula(A1) ' HasFormula = Check_Cell.HasFormula End Function I would like something virtually identical to...
  15. PeterMoran

    Finding blocks of text in VBA

    Hi, I get documents where the numbering of points is part of the text. I have a macro to change the relevant text to being formatted as numbered, but I have to find each occurrence. How do I set up a macro which will find and select all text between "^p1." and "^p^p" automatically so I can...
  16. PeterMoran

    Scrolling in VBA

    Hi, I am updating sheets in Excel via VBA and I want the scroll position of the sheets to be moved down as part of each update so the relevant areas of the sheet are visible when I go to look at the sheet. I have tried: Application.GoTo Sheets([B2]).Range([R11]), True where B2 is the...
  17. PeterMoran

    Pasting Data using an address in a Cell

    Hi, I need some help pasting data to a different location/sheet in a workbook. (Actually I want to do several of these.) I have setup the location address in a cell - "N2" on the sheet where the macro would be initiated, namely "INPUT". N2 will contain an address such as: 'XYZ'!B74 The...
  18. PeterMoran

    Excel 07 Reformat Phone numbers in Text Fields

    Hi, I have a spreadsheet with a column of phone numbers in text. Most of the phone numbers are 8 digits long and I would like to insert a space after the first four digits. Is it possible to use wildcards in Excel's Find and Replace? eg: 98986014 or Karina Savy (daughter) 98983239 to be...
  19. PeterMoran

    NetworkDays in VBA code pre Excel 07

    Hi, I have the following VBA code in Excel 07 which is fine: WorksheetFunction.NetworkDays( _ Now(), TempDate, myPubHols) In Excel 2k it does not like it. I suspect because it is part of the Analysis Toolkit. Any suggestions on what code would work in Excel 2K - should I use the...
  20. PeterMoran

    VBA Check if Range Name exists

    Hi, I have this code which creates a Range Name: ActiveWorkbook.Names.Add Name:=Worksheets("Ladders").Range("B2").Value, RefersToR1C1:= _ "=Ladders!R22C2:R39C17" I would like to include a prior check if this name exists - the value in cell B2, and if so delete the Range Name...

Part and Inventory Search

Back
Top