For ıle tabloda sınama

[xxxcitixxx]

asagidaki excel tablosunun olusturulmasi icin gerekli makro kodu ve bu kodun nasil excelin icine gomulecegi hakkinda bilgi verirseniz sevinirim. daha once hic makro islemi gerceklemedigimden bu bilgiyede ihtiyacim vardir. yapmak istedigim su sekildedir:

--1 2 3 4 5 3 5 1----S1 S2 S3 S4 S5
A 2 1 3 8 4 8 7 2----4 - 2 - 11 - 8 -11
B 3 6 2 1 5 3 9 4----7 - 6 - 5 - 1 - 14
C 4 3 2 6 4 1 2 7----11-3 - 3 - 6 - 6
D
seklinde bir tablomuz oldugu dusunulsun. burada yapmak istedigim ustteki 1 degerine sahip degerlerin A hizasindaki degerleri toplanarak S1 sonuc tablosunda A ya denk gelen hizaya sonuclari yazdirmasi (2+2=4), ayni sekilde yukaridaki 3 degerlerine karsilik gelen A satirindaki degerler yani 3 ve 8 degeri toplanarak S3e 11 degerini yazan bir program ihtiyacim vardir. bu sadece bir ornek teskil edecek olup buna ozgu bir yazilimi kendim gelistirecegim
ilginize simdiden tesekkurler

 

[1Al2Ver]

Merhaba,

Aynı konu ve soru aşağıdaki link'te de açılmış,

http://www.excel.web.tr/f50/excel-yle-byr-tablo-t103469.html#post563202

Çözüm üretecek olanlar hangi linke cevap verecekler, dolayısı ile bir tanesini iptal edin, başlığı kaldıramazsanız ilgili link adresini verebilirsiniz,

Teşekkür ederim.

 

[xxxcitixxx]

Merhaba,

Aynı konu ve soru aşağıdaki link'te de açılmış,

http://www.excel.web.tr/f50/excel-yle-byr-tablo-t103469.html#post563202

Çözüm üretecek olanlar hangi linke cevap verecekler, dolayısı ile bir tanesini iptal edin, başlığı kaldıramazsanız ilgili link adresini verebilirsiniz,

Teşekkür ederim.

oncelikli olarak makro olayi olmadan cozmek istedigim icin iki ayri cozum yolunada acigim

 

[N.Ziya Hiçdurmaz]

yanıt

Sub topla()
[k2:o5].Clear
For sut1 = 2 To 9
For sut2 = 11 To 15
For sat = 2 To Cells(Rows.Count, "a").End(xlUp).Row
    If Cells(1, sut1) = Cells(1, sut2) Then
        Cells(sat, sut2) = Cells(sat, sut2) + Cells(sat, sut1)
    End If
Next
Next
Next
End Sub

 

[xxxcitixxx]

ziya ilgine tesekkurler bide makrolarin nasil icine eklendigi hakkinda da bilgi verirsen cok sevinirim

 

[xxxcitixxx]

makrolar olayini kendi kendime cozdum simdi ogrenmek istedigim sonuc bilgisayarimda visualbasic olmadanda bu excel tablosu calismaya devam eder mi?