Soru Array kullanımı

[sirkülasyon]

B3= 14/04/2020
B4= 21/07/2024
B5= 20/02/2026
Array(Range("B3"), Range("B4"), Range("B5"))
yerine tarihleri yazacak olursam nasıl yapabilirim?

 

[hmtstc]

array("14/04/2020","21/07/2024","20/02/2026")

şeklinde dener misiniz

 

[sirkülasyon]

sayın hmtstc işlem yapmadı

 

[çıtır]

Aşağıdaki şekilde deneyiniz.

Sub arrrr()
Dizi = Array("14/04/2020", "21/07/2024", "20/02/2026")
Range("B3:B5") = Application.WorksheetFunction.Transpose(Dizi)
End Sub

 

[Ziynettin]

x = Array("14/04/2020", "21/07/2024", "20/02/2026") '0,1,2  = 3 elemam

MsgBox CDate(x(?))     ' soru(?) işareti yerine eleman sırasını giriniz.

ya da

x = Array(CDate("14/04/2020"), CDate("21/07/2024"), CDate("20/02/2026"))

MsgBox x(1)

 

[sirkülasyon]

sayın çıtır, hmtstc ve ziynettin
ayrı ayrı teşekkür ederim. Sağ olun