Posts by daniel.c

    Re: Send Email To Receivers Range


    Quote


    without open the excel file's hyperlink automatically


    Which hyperlink you don't want to open ? Do you mean you don't want to open the "FATCheck.xls" workbook ? For I open no hyperlink.

    Re: Export Email Text Into Worksheet


    Fortunately enough, there are quite few differences, if any, between local and english versions of VB. Here is a macro i wrote a few weeks ago for a similar case. You'll find the result workbook as an attached file. Before running it, you'll have to display the VBE window, click on Tools / Reference and check "Microsoft Outlook xx Object Library". Select the messages and execute the macro :

    Re: Send Email To Receivers Range


    First, in the VBE window, click on Tools / Reference, and check "Microsoft Outlook nn Object Library" (where nn is your version of Outlook).
    Second select the message to be forwarded
    Then run the following macro. For testing purpose, the message is only displayed, not sent. If it's OK, comment the

    Code
    m.display


    and un-comment the :

    Code
    m.send


    line.
    Here is the code :

    Re: Emailing A Restricted View


    Hello,
    Have a look at the following macro. It creates a new workbook and copies columns 1 and 3 and paste it in the new workbook, columns 1 and 2. The workbook is sent as an attached file.

    Re: Fill "from" Field


    I think you can only do it with Outlook 2007 :

    Re: Send Email To Receivers Range


    Hello,
    I am not sure to fully understand what you want. Do you want the file to be joined as an attached file or only a hyperlink in the body of the mail ?
    The files looks like files in a Unix file system; Can't you have them Windows way ?
    When you have a duplicate user with different files, what must we do ?
    Can you save a message (File / Save as) with the .*msg extension and attached it to your next post ?

    Re: Creating An Author Index


    Source data is on sheet Sheet1. Results on sheet Sheet2 :

    Re: If Listbox2 Items Exist In Listbox1, Display Matches In Listbox3


    Have a look at the attached file. The code of the command button is :

    Re: Combine Data In Rows For Certain Fields Only


    Combining the ideas of StephenR and Kenneth Hobson, I obtain :


    Note that I keep the initial 5 columns. You'll have to modify that part.

    Re: Enabling Check Boxes From Dropdown List


    Look at the attached document. I put the code below in the "ThisDocument" module :

    Re: Macro Code To Add Formulas To Reference Different Sheets


    1. I don't see why. I executed your macro and mine and the results looks the same. The formula in I1 is "='11583'!P5" with both methods. Is there an other formula which is incorrect ?
    2. Use the array formula (validate with CTRL+Shift+Enter) below instead :
    =SUM(IF(ISNA(I8:I10),0,I8:I10))

    Re: Delete Rows Based On Adjacent Blank Cells


    I have set the row limit to 15 :

    Code
    Sub DeleteBlankARows()
        Dim r As Long, myRow As Long
        myRow = 15
        For r = Cells(Rows.Count, 30).End(xlUp).Row To 1 Step -1
            If r <= myRow Then Exit Sub
            If Cells(r, 3) = "" And Cells(r, 4) = "" Then Rows(r).Delete
        Next r
    End Sub

    Re: Enabling Check Boxes From Dropdown List


    Then :

    Code
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$C$2" And Target.Count = 1 Then
            If Target.Value = "Yes" Then
                CheckBox1.Value = True
            Else
                CheckBox1.Value = False
            End If
        End If
    End Sub

    Re: Look For Next Sheet To Summary Sheet, Until No More Sheets


    Give a try to :

    Re: Combining Data In Multiple Rows For Certain Fields Only


    Try :


    (the result is on sheet2)

    Re: Enabling Check Boxes From Dropdown List


    Look at the attached file. If the dropdown value is set to Yes, the checkbox is enabled, otherwise, it is disabled. The code below is in the sheet module :

    Code
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$C$2" And Target.Count = 1 Then
            If Target.Value = "Yes" Then
                CheckBox1.Enabled = True
            Else
                CheckBox1.Enabled = False
            End If
        End If
    End Sub