Otomatik Hesaplatma

[Eser Gökay]

İyi geceler arkadaşlar

Ekteki çalışmada OCGD isimli Sayfada 5.satırdan başlamak üzere
=TOPLA(K5:M5)-TOPLA(R5:S5) diye başlayan ve aşağı doğru devam eden formülün yaptığı işi sayfaya nasıl bir kod yazarak otomatik yaptırabilirim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub topla()
Dim sat, deg1, deg2 As Byte
For sat = 5 To 54
deg1 = WorksheetFunction.Sum(Range(Cells(sat, "k"), Cells(sat, "m")))
deg2 = WorksheetFunction.Sum(Range(Cells(sat, "r"), Cells(sat, "s")))
Cells(sat, "n") = deg1 - deg2
Next
End Sub

 

[Eser Gökay]

İyi geceler arkadaşlar

Ekteki çalışmada OCGD isimli Sayfada 5.satırdan başlamak üzere
=TOPLA(K5:M5)-TOPLA(R5:S5) diye başlayan ve aşağı doğru devam eden formülün yaptığı işi sayfaya nasıl bir kod yazarak otomatik yaptırabilirim.

üstadım alakanıza teşekkür ediyorum. ancak sanırım eksik anlatmışım.
benim istediğim sayfa güncellendikçe çalışacak bir kod. aralık ise 5.ci satırdan başlayıp son dolu satıra kadar devam edecek. teşekkür ediyorum

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kodlarına entegre edilmiştir

 

[Eser Gökay]

teşekkür ediyorum üstadım. iyi günler dilerim.

 

[N.Ziya Hiçdurmaz]

Birşey değil.Sayın Eser Gökay