Hello,

I have an Excel micro to fill in a form. I am getting the data from Sheet 1 and placing it on Sheet6. All works except the last part.
I want to place in sheet6 on C20 the following: Ad runs from: Estartdate "- " +Eendate. I know that Ad runs from is a string and Estartdate and Eenddate are dates.
I believe that this should be simple but I have worked with this and cannot get it to work.

Also, once this is finished and working can you tell me if it is possible to collect date from a sheet and the put that information into a gmail? If so can you direct me to a good video that explains how to do that?

Your help is greatly appreciated.

Regards,
Jim


Sub Add_Data_To_Invoice_All_Years()
Dim erow As String
Dim EOrderNum As String
Dim EInternetOrder As String
Dim EFName As String 'Column H
Dim ELName As String ' Column I
Dim ECompany As String ' Column J
Dim EAddress As String ' Column K
Dim ECity As String ' Column L
Dim EState As String ' Column M
Dim EZip As String ' Column N
Dim EFullName As String ' EFname + ELName
Dim ECityStZip As String ' ECity, EState and EZip
Dim Edescription As String ' Column V
Dim Eduration As String ' Column W
Dim Equantity As String ' Column X
Dim Ecost As String ' Column y
Dim Estartdate As Date ' Column E
Dim Eenddate As Date ' Column F
Dim Eadrunsfrom As String
Dim Erunsfromdate As String


erow = InputBox("enter Row Number")
EOrderNum = Sheet1.Range("A" & erow).Value
EInternetOrder = Sheet1.Range("B" & erow).Value
EFName = Sheet1.Range("H" & erow).Value
ELName = Sheet1.Range("I" & erow).Value
ECompany = Sheet1.Range("J" & erow).Value
EAddress = Sheet1.Range("K" & erow).Value
ECity = Sheet1.Range("L" & erow).Value
EState = Sheet1.Range("M" & erow).Value
EZip = Sheet1.Range("N" & erow).Value
EFullName = EFName + " " + ELName
ECityStZip = ECity + ", " + EState + " " + EZip
Edescription = Sheet1.Range("V" & erow).Value
Eduration = Sheet1.Range("W" & erow).Value
Equantity = Sheet1.Range("X" & erow).Value
Ecost = Sheet1.Range("Y" & erow).Value
Estartdate = Sheet1.Range("E" & erow).Value
Eenddate = Sheet1.Range("F" & erow).Value
Eadrunsfrom = "Ad runs from:"
Erunsfromdate = Erunsfrom + Estartdate + "- " + Eenddate

Sheet6.Range("G6").Value = EOrderNum
Sheet6.Range("G7").Value = EInternetOrder
Sheet6.Range("C12").Value = EFullName
Sheet6.Range("C13").Value = ECompany
Sheet6.Range("C14").Value = EAddress
Sheet6.Range("C15").Value = ECityStZip
Sheet6.Range("C19").Value = Edescription
Sheet6.Range("D19").Value = Eduration
Sheet6.Range("E19").Value = Equantity
Sheet6.Range("F19").Value = Ecost
Sheet6.Range("C20").Value = Erunsfromdate