hücreye aktarıp toplama

[LeVeLuP]

öncelikle selam arkadaşlar.
siteye baka baka bişeyler yapmaya çalışıyorum.
soru soran ve cevap verenlere bu yüzden çok teşekkür ederim.

sorum şu:
örn.D hücrelerindeki (en az 150 satır) sayıları örn.F hücrelerine aynı sırayla aktarmak istiyorum ama F deki sayıya ekleyerek.

örn. D5 6 F5 4
D6 5 F6 7 olsun.

aktarma sonucu F5 10
F6 12
olmalı.

 

[Ali]

Aşağıdaki kodları deneyin

Sub topla()
For i = 5 To 200
Cells(i, 6) = Cells(i, 6) + Cells(i, 4)
Next
End Sub

 

[LeVeLuP]

valla hocam anlayamadım.
belki ben anlatamadım.

örn.B sütunundaki sayıları D sütununa aktaracağız.D sütununda da mevcut olan sayıya eklenecek.
Bu işlem her zaman değil aktarmak istediğimizde olmalı.

 

[Korhan Ayhan]

Selamlar,

Sn. fructose'nin vermiş olduğu kodu sayfa üzerinde bir buton ekleyerek kullanmalısınız. İstediğiniz anda butona bastığınızda işlem gerçekleşecektir. Ama sanırım siz bu işlemi değişken sütunlarda yapmak istiyorsunuz. Eğer öyle ise çalışmanızın küçük bir örneğini eklerseniz daha faydalı olacaktır.

 

[Ali]

Bununla ilgili örnek ekte.İnceleyiniz.

 

[LeVeLuP]

çok teşekkür ederim istediğim oldu.
macroya baktım orada B sütununda D Sütununa aktarma gözükmüyor.
bunu şey için soruyorum.B ve D örnekti.
benim uygulayacağım hücreleri nasıl ayarlayacağım.
birde i satır sayısı mı

 

[Ali]

Sub Düğme1_Tıklat()
For i = 2 To 13
Cells(i, 4) = Cells(i, 4) + Cells(i, 2)
Next
End Sub

i'ye 2 değerini ata bu durumda döngü ilk döndüğünde şu durumu alacaktır.

Cells(2,4)=Cells(2,4)+Cells(2,2)

yani Cells(2,4) 2 satır aşağı 4 sütun yandaki değere (D2 hücresi),2 satır aşağı 2 sütunda bulunan değeriCells(2,2) (B2 hücresini ekle) bu eklemiş olan değeri Cells(2,4)=Cells(2,4)+Cells(2,2) D2 hücresinin yeni değeri olarak kabul et diyoruz.
Sonra i değişkenine 3 değerini ata diyecek ve bu 13'ün satırdaki hücreye kadar devam edecek.

 

[Korhan Ayhan]

Selamlar,

İşinizi biraz daha kolaylaştıracak farklı bir örnekte ben sunmak istiyorum. Sayfada sarı renkli alanlara sütunları belirtip butona bastığınızda işleminiz gerçekleşecektir. Umarım işinize yarar.

 

[LeVeLuP]

çözüme ulaşılmıştır.çok teşekkür ederim arkadaşlar
hoşçakalın.