formülün makro karşılığı

[metin_0606]

=EĞER(T2="";"";GÜN360($AD$1;T2)) formülün makro karşılığı nedir acaba

 

[systran]

Z1 hücresinin içeriğini değiştirir.

Sub ornek()
'=EĞER(T2="";"";GÜN360($AD$1;T2))

If Range("T2").Value = "" Then
    [Z1] = ""
Else
    [Z1] = WorksheetFunction.Days360([AD1], [T2])
End If
End Sub

 

[metin_0606]

Bu kodu T2:T15000 aralığında uygulayıp sonuçlarında U2:U15000 aralığına yazdırmak istiyorum

 

[çıtır]

Deneyiniz.

Sub gunyaz()
Dim s1 As Worksheet: Dim i As Integer
Set s1 = Sheets("Sayfa1"): Set wf = WorksheetFunction
son = s1.Cells(65355, "T").End(3).Row
s1.Range("U2:U" & Rows.Count).Cells.ClearContents
For i = 2 To son Step 2
If s1.Range("T" & i) <> "" Then
gun = wf.Days360(s1.Range("T" & i), s1.Range("T" & i + 1))
s1.Range("U" & i) = gun
End If
Next i
End Sub

 

[metin_0606]

Tşkler sayın çıtır

 

[çıtır]

Tşkler sayın çıtır

Rica ederim.Dönüş yaptığınız için teşekkür ederim.