VBA formülü tüm kolona uygulama

[SATYON]

merhaba, konu başlıklarını taradım ancak verdiğiniz örnekleri kendi dosyama uyarladığımda sonuç alamadım bu nedenle yeni bir konu başlığı olarak açmak zorunda kaldım yardımcı olursanız sevinirim. yapmak istediğim şu: aşağıda koda girdiğim formülleri o kolon boyunca bir önceki kolondaki verinin son satırına kadar devam ettirmek.


Sheet4.Cells(4, 39) = "=(AJ4/(TODAY()-DATE(2016,12,31)))*365"
Sheet4.Cells(4, 40) = "=(AK4/(TODAY()-DATE(2016,12,31)))*365"
Sheet4.Cells(4, 41) = "=(AL4/(TODAY()-DATE(2016,12,31)))*365"


yardımlarınız için şimdiden teşekkür ederim

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Sub formulle()
 Sheet4.Select
 sonsatir = Cells(Rows.Count, "AL").End(3).Row
 For i = 4 To sonsatir
   Sheet4.Cells(i, 39).Formula = "=(AJ" & i & "/(TODAY()-DATE(2016,12,31)))*365"
   Sheet4.Cells(i, 40).Formula = "=(AK" & i & "/(TODAY()-DATE(2016,12,31)))*365"
   Sheet4.Cells(i, 41).Formula = "=(AL" & i & " /(TODAY()-DATE(2016,12,31)))*365"
  Next i
End Sub

 

[SATYON]

öncelikle yardımınız için teşekkürler ama malesef olmadı hata aldım

Compile Error: Expected End Sub hatası veriyor

 

[Asri]

öncelikle yardımınız için teşekkürler ama malesef olmadı hata aldım

Compile Error: Expected End Sub hatası veriyor

Kopyala yapıştır yaparken, End Sub almamış olabilir misiniz.

Tüm kodu koyalayıp dener misiniz.

 

[SATYON]

evet öyle yapmışım. çalıştı ancak doğru çalışmadı. bütün satırlara aynı formülü yazdı.yani
Sheet4.Cells(i, 39).Formula = "=(AJ4/(TODAY()-DATE(2016,12,31)))*365"
Sheet4.Cells(i, 40).Formula = "=(AK4/(TODAY()-DATE(2016,12,31)))*365"
Sheet4.Cells(i, 41).Formula = "=(AL4/(TODAY()-DATE(2016,12,31)))*365" bunu. oysa satırlar aşağı doğru uzadıkça AJ4 ,AJ5,AJ6 şeklinde formül değişmeli. bunu nasıl sağlayacağım.
teşekkürler.

 

[Asri]

evet öyle yapmışım. çalıştı ancak doğru çalışmadı. bütün satırlara aynı formülü yazdı.yani
Sheet4.Cells(i, 39).Formula = "=(AJ4/(TODAY()-DATE(2016,12,31)))*365"
Sheet4.Cells(i, 40).Formula = "=(AK4/(TODAY()-DATE(2016,12,31)))*365"
Sheet4.Cells(i, 41).Formula = "=(AL4/(TODAY()-DATE(2016,12,31)))*365" bunu. oysa satırlar aşağı doğru uzadıkça AJ4 ,AJ5,AJ6 şeklinde formül değişmeli. bunu nasıl sağlayacağım.
teşekkürler.

Kodu güncelledim.

Kontrol ediniz.

 

[SATYON]

Teşekkür ederim tekrar. kodu çalıştırdım bu kez de
Run-time Error '424' : Object Required
hatası aldım. Debug ettiğimde de
Shett4.Cells(i, 41).Formula = "=(AL" & i & " /(TODAY()-DATE(2016,12,31)))*365"

satırını sarıya boyadı.

Bir de bunu raporumdaki Private Sub CommandButton1_Click() e nasıl bağlarım. Private Sub CommandButton1_Click() in altındaki koda yapıştırdığımda çalışmıyor.

teşekkürler.

 

[Asri]

Teşekkür ederim tekrar. kodu çalıştırdım bu kez de
Run-time Error '424' : Object Required
hatası aldım. Debug ettiğimde de
Shett4.Cells(i, 41).Formula = "=(AL" & i & " /(TODAY()-DATE(2016,12,31)))*365"

satırını sarıya boyadı.

Bir de bunu raporumdaki Private Sub CommandButton1_Click() e nasıl bağlarım. Private Sub CommandButton1_Click() in altındaki koda yapıştırdığımda çalışmıyor.

teşekkürler.

Benim excel Türkçe olduğu için Sayfa4 yazmak gerekiyor.
Sizin ingilizce, elle Sheet4 yazacağıma Shett4 yazmışım.

Kontorl ediniz.

Private Sub CommandButton1_Click()
 Sheet4.Select
 sonsatir = Cells(Rows.Count, "AL").End(3).Row
 For i = 4 To sonsatir
   Sheet4.Cells(i, 39).Formula = "=(AJ" & i & "/(TODAY()-DATE(2016,12,31)))*365"
   Sheet4.Cells(i, 40).Formula = "=(AK" & i & "/(TODAY()-DATE(2016,12,31)))*365"
   Sheet4.Cells(i, 41).Formula = "=(AL" & i & " /(TODAY()-DATE(2016,12,31)))*365"
  Next i
End Sub

 

[SATYON]

oldu. çok teşekkür ederim. ellerinize sağlık :dua: