makro ile toplama

[asilme]

arkadaşlar öncelikle kolay gelsin sorum kısaca
G3=I3+K3
G4=I4+K4
G5=I5+K5
G..=I..+K..
G hücresine aynı satırdaki I ve K hücrelerindeki değerleri toplamak istiyorum.sürekli satır sil yapmam gerektiğinden formülle kopyaladığımda hata veriyor.yukarıdaki formülün G3=I3+K3 ve devam eden yani satır sayısı artıkça toplayacak olan makrosu nedir.makro kodlarını söyleyebilirmisiniz şimdiden teşekkürler

 

[bzace]

Hayırlı sabahlar,
Şu şekilde deneyiniz.

Sub topla()
 
For i = 3 To 10
    Range("G" & i).Value = Range("I" & i).Value + Range("K" & i).Value
Next
 
End Sub

 

[asilme]

Hayırlı sabahlar,
Şu şekilde deneyiniz.

Sub topla()
 
For i = 3 To 10
    Range("G" & i).Value = Range("I" & i).Value + Range("K" & i).Value
Next
 
End Sub

kod çalışmıyor

 

[bzace]

Kod'u bir Modül'ün içine yazacakdınız.Olmaz ise bunu deneyiniz sayfanın kod bölümüne yazınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
For i = 3 To 10
    Range("G" & i).Value = Range("I" & i).Value + Range("K" & i).Value
Next
 
End Sub

 

[asilme]

ekledim çalışmadı evli dosyanın görev lis sayfasındaki G sütununa uygulanacak.ayrıca H sütununada uygulamam gerekiyor yardımcı olabilirmisiniz

 

[asilme]

dosya ekte

 

[asilme]

dosya ekte

dosya ekledim

 

[asilme]

hocam formül sayfa kodunda çalıştı ancak sadece G3 teki değerleri topluyor G4,G5,G6,G... İÇİN NE YAPMAM GEREKİYOR

 

[asilme]

Kod'u bir Modül'ün içine yazacakdınız.Olmaz ise bunu deneyiniz sayfanın kod bölümüne yazınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
For i = 3 To 10
    Range("G" & i).Value = Range("I" & i).Value + Range("K" & i).Value
Next
 
End Sub

hocam formül çalıştı ancak aşağı doğru nasıl devam edeceğim tek satırı topluyor sadece G3 topluyor G4,G5,G6,G..... Nasıl olacak

 

[bzace]

Hayırlı akşamlar,
Sizin bir şey yapmanız sadece kod da 10 yazan yeri sadece misal 1000 yazın 1000. satıra kadar istenilen işlem yapar.