birinci sayfada bulunanları ikinci sayfada nasıl çıkarırım

[lrdofstn]

birinci sayfada bulunan ali veli ahmet mehmet ayşe nin hesaplanmış notlarını otomatik olarak sayfa 2 de ki yerlerine geçmesini istiyorum tek tek uğraşmak istemiyorum. kısa yoldan hepsini birden nasıl geçirebilirim? teşekkürler.
office 2003 turkce. bir de makro nedir ne işe yarar nasıl kullanılır yeniyim biraz da kusura bakmayın. inşallah ileride daha iyi olacağım.

 

[lrdofstn]

yani

yani ben birinci sayfa da yazacağım ikinci sayfada isminin altına kendisi gidecek.

 

[lrdofstn]

aslında

tek tek yapmayı biliyorum ama. adi formulle değil de tüm satırı birden gösterebilmek istiyorum

 

[gezgin-49]

tek tek yapmayı biliyorum ama. adi formulle değil de tüm satırı birden gösterebilmek istiyorum

adi formül demekle B4 hücresine =Sayfa1!A14 C4 hücresine =Sayfa1!B14 E4 hücresine =Sayfa1!C14 F4 hücresine =Sayfa1!D14 G4 hücresine =Sayfa1!E14 yazmayı mı kastettiniz, eğer sayfa1 deki not tablonuzun şablonu bu ise yukarıdaki aktarmalar işinizi görür,

 

[gezgin-49]

tek tek yapmayı biliyorum ama. adi formulle değil de tüm satırı birden gösterebilmek istiyorum

ama ille de formülle yapmak istiyorsanız şu formülü bir deneyin

sayfa2 B4 hücresine aşağıdaki formülü yazın ve yana doğru çekin

=EĞER(EĞERSAY(Sayfa1!$A$1:$E$14;B$2)>0;Sayfa1!A$14;EĞER(EĞERSAY(Sayfa1!$A$1:$E$14;C$2)>0;Sayfa1!B$14;EĞER(EĞERSAY(Sayfa1!$A$1:$E$14;D$2)>0;Sayfa1!C$14;EĞER(EĞERSAY(Sayfa1!$A$1:$E$14;E$2)>0;Sayfa1!D$14;EĞER(EĞERSAY(Sayfa1!$A$1:$E$14;F$2)>0;Sayfa1!D$14)))))
inşallah işinizi görür, kolay gelsin

 

[necokara]

Sayın gezgin gerekeni yapmış, naçizane küçük bir ilavede benden.
Saygılarımla !

 

[lrdofstn]

tesekkurler

ellerinize sağlık istedigim bunun gibi bir sey ancak bunu yapmanın kolay bi yolu yok mu? formul yazmadan excell bunu yapamıyor mu? çünkü bu sadece bir örnek. farklı farklı bir çok öğrenci not girişini, değerlendirme formunu, karneye benzer bir şeyde toplamam gerekli. var mı bir kolay yolu bunu yapabileceğim.

 

[lrdofstn]

evet

adi formul derken onu kastetmiştim. ama 26 şar kişilik okadar çok sayfa var ki kolay bi yolu olmalı bunu yapmanın.

 

[lrdofstn]

meraba

yok mu bunun kolay bir yolu. tüm stırları birden yükleyebileceğim?

 

[Turk]

Bu hatirlatmayi yapmak benim haddime dusmez ve niyetim sizi rencide etmek de degil fakat yazdiginiz mesaja surekli eklemeler yaparak mesaj kirliligi yaptiginizin farkinda misiniz? Eger verilen cevap yeterli degilse bir yeni mesajla isteginizi belirtir ve yanit gelene kadar da sabirla beklersiniz. Bazen biz de sizin gibi davraniyoruz ama bunu sizin gibi aliskanlik haline getirmiyoruz. Mesajlarinizi inceledim, kisa surede cevap alamadiginiz her sorunuza bir iki ilave mesaj daha yazarak sorunuzu guncellemissiniz. Bu ikazi lutfen dostca alin. Diger arkadaslar da bu uyarimin sadece bir kisiye degil, hepimize yonelik oldugunu dusunun lutfen. Bu guzel paylasim platformunun gelismesine katki saglamak icin ustumuze dusen gorevleri yerine getirmek ve kurallara uymaya ozen gostermek zorundayiz. Affiniza siginarak yazdigim bu mesaji kirici bulmadiginizi umarim.

Saygilarimla,

 

[ileriexcel]

®

Sub test()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.Select
s2.Range("a2:e2") = ""
For Each ali In Range("a2:a20")
If s1.Range("a1") = s2.Range("a1") Then
s2.Range("a2") = s2.Range("a2") + ali
End If
Next
For Each veli In Range("b2:b20")
If s1.Range("b1") = s2.Range("b1") Then
s2.Range("b2") = s2.Range("b2") + veli
End If
Next
For Each ahmet In Range("c2:c20")
If s1.Range("c1") = s2.Range("c1") Then
s2.Range("c2") = s2.Range("c2") + ahmet
End If
Next
For Each mehmet In Range("d2:d20")
If s1.Range("d1") = s2.Range("d1") Then
s2.Range("d2") = s2.Range("d2") + mehmet
End If
Next
For Each ayşe In Range("e2:e20")
If s1.Range("e1") = s2.Range("e1") Then
s2.Range("e2") = s2.Range("e2") + ayşe
End If
Next
End Sub

 

[lrdofstn]

selam

tekrar yazmamın nedeni mesajımın üst sıralarda olup tekrar goruntulenip cevabı daha kısa surede alabilmek. yeni başlayanlar bölümüne farklı farklı başlıklar açıp kirlilik yapmadım aynı başlık altında ekleme yaptım. ayrıca yardımı olan arkadaşlara teşekkürler.

 

[Liberty]

Arkadaşlardan farklı olarak bir öneride bulunabilirim(eğer yanlış anlamadıysam). Eğer bir hücredeki değerin hangi sayfa olursa olsun(aynı çalışma kitabı içinde) bir başka hücrede de görünmesini istiyorsanız en kolay yolu onu okutmaktır.

örneğin; planlama isimli sayfada A1 satırında bir formul var ve bu formulun sonucunu ilgili başka bir sayfada görmek isterseniz okutmak istediğiniz sayfa ve hücre içinde "+" işaretine basın. sonra okumasını istediğiniz hücreyi seçin ve enter basın. hücreyi kenarından tutup çekerseniz bütün satırları okutabilirsiniz. Kolay gelsin..