Dim QuestoBook As Workbook Set QuestoBook = ActiveWorkbook Application.EnableEvents = False QuestoBook.Sheets(1).Range("E6").Value = SourceSheet.Range("E2").Value QuestoBook.Sheets(1).Range("E6").Value = CDate(QuestoBook.Sheets(1).Range("E6").Value) QuestoBook.Sheets(1).Range("F6").Value = SourceSheet.Range("E" & UltimaRiga).Value QuestoBook.Sheets(1).Range("F6").Value = CDate(QuestoBook.Sheets(1).Range("F6").Value) Application.EnableEvents = True
QuestoBook.Sheets(1).Range("E6").NumberFormat = "mm/dd/yyyy" QuestoBook.Sheets(1).Range("E6").NumberFormat = "dd/mm/yyyy"
MsgBox IsDate(QuestoBook.Sheets(1).Range("F6").Value)
SourceSheet.Range("E2")
QuestoBook.Sheets(1).Range("E6").Value = SourceSheet.Range("E2").Value QuestoBook.Sheets(1).Range("E6").Value = CDate(QuestoBook.Sheets(1).Range("E6").Value)
QuestoBook.Sheets(1).Range("E6").Value = CDate(SourceSheet.Range("E2").Value)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)