Posts by Craig

    I am using the following code. What I would like to know can I place data into the body of the email?
    Thanks,
    Craig


    Sub Send_Schedule()


    Dim addr As String
    Sheets("Your Schedule").Select
    Range("b1").Select
    addr = Selection


    If Application.MailSystem <> xlNoMailSystem Then
    ActiveSheet.Copy
    With ActiveWorkbook
    .SendMail _
    Recipients:=addr, Subject:="Your Schedule"
    .Close SaveChanges:=False
    End With
    Application.MailLogoff
    Else
    MsgBox "No MS-postsystem are installed.", vbInformation, _
    "E-mail message"
    End If


    End Sub:puzzled:

    This macro is used on different worksheets to return the user to the main page on the row that corresponds with todays date. The cell I want to become active is A57 on the main page. I do not want to replace the value. There are 262 rows and when the user comes back to the "main" sheet he is only interested in the data in that row.
    Thanks!
    Craig
    Sorry for being so confusing

    This reply doesn't work. It places A57 in the cell A57.


    Sub copy_value()
    Sheets("Main").Select
    Range("A57").Value = Range ("A263").Value
    End Sub


    The contents of A263 is A57


    Thanks for the help!
    Craig

    How do I substitute the value contained in Main!A263 for the "A57" below?


    Sub Macro1()


    Sheets("Main").Select
    Range("A57").Select

    End Sub


    A57 represents today's date in column A on the main sheet and its location is computed in a263


    Thanks in advance!
    Craig

    Why does this not write to the test.txt?


    Sub WriteToTextFile()


    Range("A1:T133").Select


    Data = Range("A1:T133").Value


    Open "C:\EXCEl\test.txt" For Output As #1

    Write #1, Data

    Close #1

    End Sub

    Thank you very much. I just started last week with macros and VB. I was working on using a DO loop until the B4.value <>o
    Your solution is very clean and straightforward. I need to learn the objects? or whatever things like End(xlUp) are called.
    Thanks,
    Craig

    {How do I replace the 3 with the next empty row in this line of code; Range("B3").Select ?} Then line; Range("B4").Select needs to be one greater.


    Sub Macro1()
    '
    ' Macro1 Macro
    '
    Sheets("Sheet2").Select
    Range("A2:X2").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Range("B4").Select
    Sheets("Sheet1").Select
    End Sub

    Thanks for the welcome and reply. I currently use the option Jim gave. However, this is limited to the use of 4 different background colors. I need 7.
    Thanks again for the suggestions.
    Craig

    I would like to do a drop down list entry for a cell. I want the drop list to have the value in a cell PLUS have the background color associated with the choice value.
    Thanks
    Craig: