Makro ile boyutu değişen range için fonksiyon çalıştırma

[siyahyedili]

Merhaba,

Yaptığım bir çalışma için boyutu değişebilen hücreler için bazı fonksiyonlar çalıştırmam gerekiyor. Detaylı açıklamalar dosyada mevcuttur.

Yardımlarınız için şimdiden teşekkürler

 

[apocalyt]

Meraba..

bir modüle kopyalayıp çalıştırın..

Sub daylight()
Range("e2:e10000").ClearContents
For x = 2 To [a10000].End(3).Row
For y = 1 To [a10000].End(3).Row
If Cells(x, 1) = Cells(x + y, 1) Then
a = a + 1
Else: Exit For
End If
Next y
Cells([e10000].End(3).Row + 1, "e").Formula = "=linest(b" & x & ":b" & a + x & ")"
x = x + a
a = 0
Next x
End Sub

 

[siyahyedili]

Sayın apocalyt çok teşekkürler

 

[apocalyt]

rica ederim..