S
scottnshelly
I have a simple little workbook. the code looks similar to:
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("sheet1").Select
Range("IS65532").Select
ActiveCell.Value = TextBox1.Value
Range("IT65532").Select
ActiveCell.Value = TextBox2.Value
Range("IU65532").Select
ActiveCell.Value = TextBox3.Value
Range("IV65532").Select
ActiveCell.Value = TextBox4.Value
Range("A1").Select
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "(e-mail address removed)"
.CC = ComboBox1.Value
.Subject = TextBox2.Value
.Body = ActiveSheet.Range("it65536").Text & vbCrLf
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
Unload Me
End Sub
then in IT65536 i have a concatenate for several different cells. Thi
worked great for about two weeks. now it seems like the concatenat
isn't concatenating anymore. when i erase and then re-type th
concatenate formula is works fine, but then stays the same when i eras
the other cells.
any suggestions?
thank
Private Sub CommandButton1_Click()
ActiveWorkbook.Sheets("sheet1").Select
Range("IS65532").Select
ActiveCell.Value = TextBox1.Value
Range("IT65532").Select
ActiveCell.Value = TextBox2.Value
Range("IU65532").Select
ActiveCell.Value = TextBox3.Value
Range("IV65532").Select
ActiveCell.Value = TextBox4.Value
Range("A1").Select
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurrFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = "(e-mail address removed)"
.CC = ComboBox1.Value
.Subject = TextBox2.Value
.Body = ActiveSheet.Range("it65536").Text & vbCrLf
.Display
End With
Set olMail = Nothing
Set olApp = Nothing
Unload Me
End Sub
then in IT65536 i have a concatenate for several different cells. Thi
worked great for about two weeks. now it seems like the concatenat
isn't concatenating anymore. when i erase and then re-type th
concatenate formula is works fine, but then stays the same when i eras
the other cells.
any suggestions?
thank