Search:

Type: Posts; User: Kenneth Hobson

Page 1 of 2 1 2

Search: Search took 0.01 seconds.

  1. Use HTML to set your fonts. IF you don't know...

    Use HTML to set your fonts. IF you don't know html, you could put your text into an Excel range and then use Ron de Bruin's RangeToHTML().
    https://www.rondebruin.nl/win/s1/outlook/bmail2.htm

    He...
  2. Welcome to the forum! In a Module: Sub...

    Welcome to the forum!

    In a Module:

    Sub Main()
    Dim c As Range, f As Range, source As Worksheet, master As Worksheet, s As String
    'Add reference: Microsoft Outlook xx.x Library, where xx.x...
  3. Sub CopyAndRenameSheet() Sheets("2018").Copy...

    Sub CopyAndRenameSheet()
    Sheets("2018").Copy Before:=Sheets(1)
    With ActiveSheet
    .Name = "2018 NewSheetName"
    .Unprotect
    '(do other stuff . . . )
    End With
    End Sub
    ...
  4. Welcome to the forum! If data in A2 and down: ...

    Welcome to the forum! If data in A2 and down:

    Sub cDates()
    Dim r As Range, c As Range
    Set r = Range("A2", Cells(Rows.Count, "A").End(xlUp))
    For Each c In r
    c.Value =...
  5. Seems like you have asked this in other forums. ...

    Seems like you have asked this in other forums.

    First, get the help file script56.chm. It will show properties and methods and examples. Get it in the 3rd link in Reference section....
  6. Replies
    2
    Views
    1,749

    Welcome to the forum! =SUBTOTAL(109,F2:F12)

    Welcome to the forum!

    =SUBTOTAL(109,F2:F12)
  7. Replies
    1
    Views
    874

    I don't see an error or "not working" using...

    I don't see an error or "not working" using Display to test rather than Send. For your test emails in A2, the Like is not matched.

    While you could use InStr() to test for the "@" character, this...
  8. Replies
    8
    Views
    1,937

    Change that one line as Admin showed or this way....

    Change that one line as Admin showed or this way. I did not catch that as I only tested using your example.

    I did not see a problem with column F. I did not see a Dr in your example.
    ...
  9. Replies
    8
    Views
    1,937

    Place code in a Module. Run for active sheet. ...

    Place code in a Module. Run for active sheet. Be sure to run on a backup copy as usual when testing copy.


    Sub MoveRowsUp()
    Dim r As Range, r1 As Range, r2 As Range, v, i As Long

    Set...
  10. Replies
    8
    Views
    1,937

    Welcome to the forum! What happens to the...

    Welcome to the forum!

    What happens to the cells with data already in them like B1 and B2? Delete B2, or combine B1 and B2 delimited by a space character, or...

    ...
  11. Welcome to the forum! That looks like an 18...

    Welcome to the forum!

    That looks like an 18 IF()s formula. The easier route would be to use a macro as a worksheet change event to do the check.
  12. Welcome to the forum! When you overlay, I...

    Welcome to the forum!

    When you overlay, I guess you want the inserted picture to be the same size? As such, both pictures would be there but the overly would be the only one directly visible.
    ...
  13. Replies
    1
    Views
    1,213

    Welcome to the forum! Did you want a formula...

    Welcome to the forum!

    Did you want a formula or VBA? Mid() would be used in both. Where is the day in that or is day 1 sufficient?

    Click the Go Advanced button in lower right of a reply, and...
  14. For the UDF method, add this to a Module and use...

    For the UDF method, add this to a Module and use it as the comment demonstrates.

    ' =Month2(A1+180)
    Function Month2(aDate As Date) As String
    Dim d() As String
    Application.Volatile False
    ...
  15. Right, which is why 3 characters are used for...

    Right, which is why 3 characters are used for abbreviations for month names. If you don't mind using a UDF, what you want can be done and simplified.
  16. Welcome to the forum! You can use strings. In...

    Welcome to the forum!

    You can use strings. In B1:
    =YEAR(A1+180)&"/"&UPPER(LEFT(TEXT(A1+180,"mmm"),2))&"/"&DAY(A1+180)
  17. The fewer times that you reference an object the...

    The fewer times that you reference an object the better. This is easy to read anyway.

    Private Sub CommandButton2_Click()
    With Range("E4:N4")
    .Interior.ColorIndex = 3
    .Font.Bold =...
  18. To go beyond the recorder: Beyond Excel's...

    To go beyond the recorder: Beyond Excel's recorder
  19. Of all of those cross-posts and more, I did not...

    Of all of those cross-posts and more, I did not see any help other than here.

    For other posts, look for the word Choropleth.

    Regarding cross-posts, posting in several places is not uncommon...
  20. I answered this in one of your cross-posts. You...

    I answered this in one of your cross-posts. You simply need to use concatenation to build your SQL string. As I had posted before:


    Dim s as string
    s = "Select * from Employee_Database where...
  21. Patel, maybe you read it right and I read it...

    Patel, maybe you read it right and I read it wrong. Sometimes I read well and sometimes not. Only pritee knows for sure, or your hair dresser....
  22. Patel, the op said: Either "...export all...

    Patel, the op said:

    Either "...export all sheets into a single csv file" or "...export each sheet into separate csv files." was the intent. I read it as the former. You can see the referenced...
  23. I guess the most efficient way would be to export...

    I guess the most efficient way would be to export the data using ADO.

    If you export each sheet as patel explained, you can use this method providing you did not add a header/fieldnames row....
  24. I see only one method, save the object content as...

    I see only one method, save the object content as a PDF file. If you have Adobe Acrobat, not the reader, I am sure that is possible. Otherwise, I would have to think about how to save it by some...
  25. I only saw 1 or 2 decimal places in the 2nd...

    I only saw 1 or 2 decimal places in the 2nd column. That file and a new one was doing something that my other tests yesterday did not. After I set the formats, saved, closed, and opened, it rounded...
Results 1 to 25 of 31
Page 1 of 2 1 2