Sayfa1 deki uygun verilerin sayfa2' ye otomatik atması

Katılım
2 Mart 2005
Mesajlar
82
Excel Vers. ve Dili
office xp, türkçe
Merhaba Benim Sorum Þu

Sayfa1' de bir tablo var. Bilgiler koda göre sınıflandırılmış yani a1' de 100 b1' de ne olduğu örneğin server, c1' de adet örneğin 2 adet, d1' de fiyat örneğin 1.000 ytl, e1' de ise alınış tarihi var. a2 de kodu yine 100 ancak b2' de malzeme bukez mouse c2' de adet 50, d2' de fiyat 45 ytl, e2 de yine alım tarihi var. bu verdiğim 100 koduna ait bilgisayar kasası veya printer ya da bilgisayar lara ait başka kalemler var. Benim istediğim şu. sayfa 1 de 100 koduna ait bir alım yapılmış ise sayfa2 ye aynı tabloya öyle bir formül yazmalıyım ki, bu koda ait alımları otomatik olarak bu hücrelere yazsın. Formülü aşağı ve yana çektiğimde neler alındığı diğer detaylarla beraber diğer sütunlara ve satırlara yazılsın. Aynı şeyi sayfa3' de 200 koda ait olan kalemler içinde yapacağım. düşeyara ile yapmaya çalıştım. ancak benim tablomda 100 kod altında çeşit çeşit malzeme var. düşeyara ise sadece bu koda ait olan ilk girişi görüyor.diğerlerini yazmıyor. Umarım anlatabilmişimdir.Saygılar.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bu şekilde cevap vermek zor, bir örnek dosya eklermisiniz.
 
Katılım
31 Ağustos 2005
Mesajlar
117
Excel Vers. ve Dili
office2003
arkadaşım bunu yapmanın iki yolu var.
1.özet tablo ile
2.query ile
nasıl yapacağına gelince sana burada sadece özet tablo şeklini gösterebilirim. çünkü queryler sadece belirtlen yol üzerin çalışıyor. bana mail atarsan sana dosyanı gönderebilirim,

Kod Malzeme Adı Alım Tarihi Adet Birim Fiyat
100
Kartuş Renkli
25.02.2005 50 45
Toplam Kartuş Renkli 50 45
Kartuş Siyah
25.02.2005 50 35
Toplam Kartuş Siyah 50 35
Klavye
09.05.2005 20 55
Toplam Klavye 20 55
Monitör
01.03.1945 15 300
Toplam Monitör 15 300
Mouse
02.05.2005 30 45
Toplam Mouse 30 45
Printer
25.03.2005 20 150
Toplam Printer 20 150
Server
01.01.2005 5 1000
Toplam Server 5 1000
Usb Ram
17.02.2005 25 75
Toplam Usb Ram 25 75
Toplam 100 215 1705

200
Ataç Kutu
31.01.2005 50 6
Toplam Ataç Kutu 50 6
Hesap Makinası
05.05.2005 20 30
Toplam Hesap Makinası 20 30
Tel Zımba
07.07.2005 15 15
Toplam Tel Zımba 15 15
Telefon Mak.
17.02.2005 65 55
Toplam Telefon Mak. 65 55
Telli Dosya
08.02.2005 100 2,5
Toplam Telli Dosya 100 2,5
Toplam 200 250 108,5

300
A4 Kağıt Koli
28.04.2005 50 100
Toplam A4 Kağıt Koli 50 100
Kurşun Kalem
19.07.2005 100 3,5
Toplam Kurşun Kalem 100 3,5
Toplam 300 150 103,5

Genel Toplam 615 1917
de çalışıyor.
 
Katılım
2 Mart 2005
Mesajlar
82
Excel Vers. ve Dili
office xp, türkçe
deneyeceğim teşekkürler. Yerleşik fonksiyonlarla yapılabilseydi iyi olacaktı ama ne yapalım.iyi akşamlar. saygılar...
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
VBA ile yapılmış ekteki örneği inceleyin. Bu sorunuzu formüllerle yapmakta mümkün olmakla beraber çoık zahmetlidir. Ayrıca dosyanızın hacmini çok fazla arttıracaktır.

[vb:1:0d5c212f1b]Sub aktar()
For a = 2 To [a65536].End(3).Row
Set s1 = Sheets("" & Cells(a, 1).Value)
say = s1.[a65536].End(3).Row + 1
For b = 1 To 5
s1.Cells(say, b) = Cells(a, b).Value
Next: Next
End Sub
[/vb:1:0d5c212f1b]
 
Katılım
2 Mart 2005
Mesajlar
82
Excel Vers. ve Dili
office xp, türkçe
sayın leventm cevabınıza teşekkür ederim. ancak eğer mümkünse formüllerle nasıl yapabileceğimide bilmek istiyorum. en azından bundan sonraki çalışmalarıma ışık tutacaktır. lütfen bu yöndeki çözümü bana iletebilirmisiniz. saygılar...
 
Katılım
2 Mart 2005
Mesajlar
82
Excel Vers. ve Dili
office xp, türkçe
sayın leventm bu olayın fonksiyonlarla nasıl çözülebileceğini bana gönderirmisiniz. Teşekkürler. Saygılar...
 
Katılım
2 Mart 2005
Mesajlar
82
Excel Vers. ve Dili
office xp, türkçe
arkadaşlar çalışma çok iyi. ancak ben kendi dosyama uyarlamak istediğimde başaramadım. Dosyayı daha önce göndermiş idim yine gönderiyorum. sayfa1 de giriş yapıyorum. bunların diğer sayfalara otomatik atmasını istiyorum. lütfen yapabilen arkadaşlar olursa bana göndersin.Teşekkürler...
 
Katılım
2 Mart 2005
Mesajlar
82
Excel Vers. ve Dili
office xp, türkçe
sayın leventm çok güzel olmuş. çok çok teşekkürler. iyi günler diliyorum.
 
Üst