Search:

Type: Posts; User: dguillett@gmail.com; Keyword(s):

Page 1 of 6 1 2 3 4

Search: Search took 0.01 seconds.

  1. i figured out the 1st part. Email addys all had 2...

    i figured out the 1st part. Email addys all had 2 spaces at the end. Removed in Excel and all is OK.

    I would still like to know if there is a way to do the rest?

    Also, I want these to sync...
  2. WLM Contacts wont import email addy from csv

    I want to handle changes using Excel so:
    I went to WLM and exported using the fields I wanted to a csv file
    Name
    Email Address
    Home Phone
    Mobile Phone
    Business Phone
    Company
    If I goto the csv...
  3. I have 3 accounts. Two are POP accts and the...

    I have 3 accounts. Two are POP accts and the offender appears to be the other IMAP acct. Which is better?????
    They all read in WLM "Unerad Mail" and I get 2 copies of each on the IMAP and there is...
  4. Put these two macros in the THISWORKBOOK module ...

    Put these two macros in the THISWORKBOOK module

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Len(Application.Trim(Sheets("sheet1").Range("a1"))) < 1 Then
    MsgBox "fill cells"
    Cancel =...
  5. WLM Windows Live Mail Duplicates Prevent and remove existing GMAIL

    As the subject says., I have duplicates created in my inbox that I want to prevent and delete the existing. Assistance appreciated

    I have 3 Gmail accounts that I read in WLM
  6. http://www.ibm.com/us/en/ use this...

    http://www.ibm.com/us/en/
    use this
    =IF(ISERROR(FIND("//www.",J3)), MID(J3,FIND(":",J3,4)+3,FIND("/",J3,9)-FIND(":",J3,4)-3), MID(J3,FIND(":",J3,4)+7,FIND("/",J3,9)-FIND(":",J3,4)-7))
    to get...
  7. convert formulas that are no longer needed to...

    convert formulas that are no longer needed to values
  8. Replies
    7
    Views
    346

    To do an entire range using the function Sub...

    To do an entire range using the function

    Sub fixphonerange()
    Dim c As Range
    Dim num As Range
    For Each c In Range("E1:e15")
    c = pn(c)
    Next
    End Sub
  9. Replies
    7
    Views
    346

    Try this instead Function pn(Num) As String Dim...

    Try this instead
    Function pn(Num) As String
    Dim i As Integer
    For i = 1 To Len(Num)
    If Asc(Mid(Num, i, 1)) >= Asc("0") _
    And Asc(Mid(Num, i, 1)) <= Asc("9") Then
    pn = pn + Mid(Num,...
  10. Goto Ron's site>download the "merge" examples...

    Goto Ron's site>download the "merge" examples workbook>determine which to modify to your use>. You only learn by YOU doing instead of others doing it for you for free!!
  11. Replies
    2
    Views
    153

    You are opening 123 files (which version) in what...

    You are opening 123 files (which version) in what version_______ of _________________? If desired send the file directly to me. dguillett @gmail.com
  12. Look here...

    Look here
    http://www.rondebruin.nl/win/s3/win008.htm
    for
    Merge a range from all workbooks in a folder (below each other)
  13. Nicely done. Only comment is use native instr...

    Nicely done. Only comment is use native instr instead of application.find
    InStr(zRng, ztext)
  14. Although I am using my chase account to just park...

    Although I am using my chase account to just park some money due to a promotion and have NO negatives, I did download the csv> put in a - in front of and entry and ran this one liner to remove the -...
  15. Replies
    1
    Views
    152

    Here is a desktop shortcut I have to open a file...

    Here is a desktop shortcut I have to open a file with 2013 that doesn't do that
    target
    C:\Program Files (x86)\Microsoft Office 2010\Office15\EXCEL.EXE" "c:\personal\myfilenamehere.xls"
    startin...
  16. 'Could be better but works Option Explicit...

    'Could be better but works

    Option Explicit
    Sub LineEmUpSAS()
    Dim i As Long
    Application.ScreenUpdating = 0
    i = 1
    Do Until IsEmpty(Cells(i, 1))
    If Len(Application.Trim(Cells(i, 4))) <> 0 Then...
  17. Option Explicit Sub TransposeSAS() Dim c As...

    Option Explicit
    Sub TransposeSAS()
    Dim c As Integer
    Dim lc As Integer
    Dim i As Long

    With ActiveSheet
    .Columns.ClearContents
    For c = 1 To 3
    lc = Cells(1,...
  18. Replies
    7
    Views
    270

    And set wbdata= should not be necessary

    And set wbdata= should not be necessary
  19. To avoid leaving a formula or formula=value just...

    To avoid leaving a formula or formula=value just use
    Range("A" & Row & ":C" & Row).value=application.transpose(etc).value
  20. Thanks, I usually try to avoid all selections...

    Thanks, I usually try to avoid all selections and copy/pastes where possible
  21. Replies
    7
    Views
    270

    The error is not that. It will run with/without...

    The error is not that.
    It will run with/without the set wbData=
    It will run with/without the wbData=

    The problem is that the macro is asking for .xls files to open and the list has the...
  22. I always thought selections should be avoided...

    I always thought selections should be avoided where possible?

    'COPY DAY ROW TO BOTH SHEETS
    week.Range("B" & weekRow).Resize(, 50).Value = _
    day.Cells(51, 2).Resize(, 50).Value...
  23. Replies
    4
    Views
    260

    I stand corrected IF the header part was needed....

    I stand corrected IF the header part was needed. As I understood (not well explained) OP just wanted to get info from the file and not to make it pretty.
    We should always be trying to improve our...
  24. Replies
    4
    Views
    260

    If that is the need then this should be a bit...

    If that is the need then this should be a bit more efficient

    Option Explicit
    Sub UnmergeCellsSAS()
    Dim fr As Long
    Dim lr As Long
    Application.ScreenUpdating = 0...
  25. Replies
    9
    Views
    458

    provide sample FILE with before/after

    provide sample FILE with before/after
Results 1 to 25 of 127
Page 1 of 6 1 2 3 4