Sub data_getir()
Application.DisplayAlerts = False
Application.Calculation = XlCalculation.xlCalculationManual
Dim X As Date
Dim t As Date
Dim AWB As String
X = Application.WorksheetFunction.WorkDay(Date, -1, Worksheets("Makro").Range("S1:S20"))
t = InputBox("Lütfen tarih giriniz"...