макросы в Excel, показывая ошибку

Question

Sub Month_Update() 
    Dim dDate As Date 
    dDate = Range("$C$1").Value 
    Range("$E$1").Value = _ 
    DateSerial(Year(dDate), _ 
    Month(dDate) + 1, Day(dDate)) 
End Sub 

ошибку во время запуска: 13
Тип несовпадение

Answer 1

Вы можете иметь проблемы с модулем доступ к данным на другом листе. Попробуйте следующее: указать точный лист, который вы хотели бы, чтобы вытащить из:

Sub Month_Update() 
    Dim ws As Worksheet 
    Set ws = Excel.Sheets("Sheet1") 'Replace This Sheet1 Value with the Name of the Sheet that the data is on 
    Dim dDate As Date 
    dDate = ws.Range("$D$1").Value 
    ws.Range("$E$1").Value = _ 
    DateSerial(Year(dDate), _ 
    Month(dDate) + 1, Day(dDate)) 
End Sub