• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

filtreleme ile istenilen değerleri başka bir sayfaya aktarma?

M

manisali16

Katılım
21 Ekim 2010
Mesajlar
19
Excel Vers. ve Dili
Office 2003 ve Office 2007 dili Türkçe
merhaba arkadaşlar.daha öncede filtreleme ile ilgili konuma yardımcı olmuştunuz yardımcı olan arkadaşlara ben bir kez daha teşekkür ederim.şimdi ki sıkıntıma gelirsem.

olayı kısaca şöyle özetleyeyim bir tane üretim tablom var.bu tablomda tarih,plaka,irsaliye no, üretici,kg vs... diye giden 11 tane sütunum var.benim için burada kilit rol oynacak sütün ÜRETİCİ.şimdi ben istiyorum ki "üretim" isimli çalışma kitabımda iki tane çalışma sayfası yer alsın(bu sayfalar artabilir). sayfalardan birinde bahsini ettiğim 11 sütundan oluşan verilerim var.ve o veriler sürekli eklenerek çığ gibi büyüyor.ikinci sayfama da istiyorum ki misal üretici adı "Ali Şahin", ben ikinci sayfada üretici diye bir alan açtım.Ali Şahin ismini ben buradaki sütuna yazdığım an da bana doğrudan Ali şahin ismine kayıtlı ilk çalışma sayfasında yer alan tüm verileri tek tek bu ikinci sayfa getirecek.

aslında daha net söylemek gerekirse ilk sayfa da var olan veriler sevk irsaliyesinde yazan verileri taşımakta.bu yüzden üretici isimleri her sevk irsaliyesinde ya var oluyor ya olmuyor ama farklı satırlarda ve tarihlerde mutlaka verileri bulunuyor.bende istiyorum ki bunu düzenli bir şekilde ikinci sayfaya aktarabileyim.ilk sayfadaki aynı alan isimleri ikinci sayfa da yer alacak ve ben üretici ismini girdiğim anda bana onun verilerini çekecek.

bilmiyorum çok mu karmaşık anlattım ama bir tane örnek dosya attım.iki çalışma sayfasından oluşan ilk çalışma sayfasını görün ve ne istediğimi belki o zaman anlatabilirim size :)
 
Son düzenleme:
Necdet Yeşertener' Alıntı:
Merhaba,

Aşağıdaki linkler işinizi görebilir, inceleyiniz.


Diğer Sayfaya Süzerek Veri Getirmek

Sayfalararası Veri Aktarımı
Genişletmek için tıkla ...

öncelikle size teşekkür ederim hocam.örnek olarak verdiğiniz linkler benim aradığım şeyleri içeriyor :) yalnız benden kaynaklanan bir sorun var ki işte burada sizin insiyatifinize kalıyor durum :)

olay şu ki ben exceli basit tablolar vs... oluşturmak için kullanıyorum.excelin acemilerindenim ve hayatımda hiç makrolarla çalışmadım.programlama mantığını az çok çözdüm verdiğiniz linklerdeki fakat kendime uyarlamada nasıl yapabilirim onu bilmiyorum işte :s

durumu kısaca özetlemek gerekirse ekteki örnekte 11 adet sütun var. E sütununda yer alan "Üretici" başlıklı alanda filtreleme uyguladığım anda aynı sayfada ben seçtiğim üreticiden hangi tarhilerde mal gelmiş, ne kadar gelmiş, malın cinsi, nemi vs... orada yer alan tüm sütundaki bilgileri alabiliyorum.

böyle yaptığım zaman ise sadece ortada bir görüntü oluyor uygulanabilirlik yok.ben istiyorum ki seçtiğim üretici ismine göre filtreleyip karşıma sonuçları getirdiğinde seçili olan üreticiye ait farklı satırlarda yer alan tüm bu bilgileri başka bir sayfaya aynı tablo özellikleri ile atsın.oraya attıklarını da ben kendim alıp belli formata sokup çıktısını alırım.mesele seçili olan üreticiye ait farklı satırlardaki bilgileri başka bir sayfada alt alta aynı formatta toplamak :s

çok mu karmaşık anlattım bilmiyorum ama bu hususta benim gibi acemi birine yardımcı olursanız çok çok minnettar kalırım size hocam saygılarımla :)

güncel yeni bir örnek attım ekte mevcut
 

Ekli dosyalar

yurttas' Alıntı:
.

Bir de buradaki örnekleri inceleyiniz:

http://www.excel.web.tr/f119/verileri-lgili-sayfalara-formul-makro-ile-daoytylmasy-t20271.html

.
Genişletmek için tıkla ...

çok özür dilerim :) verdiğiniz örnek benim istediklerimle uyumlu gibi görülüyor.incelediğimde aradığım şeyleri bana verebileceğini gördüm.

yalnız cahilliğime verin lütfen örnek dosyada açıklama sayfasına "Insert > Name > Define'dan WSN diye bir ad tanımlayıp "Refers to:"

diye bir yazı var.anlamadığım nokta da tam burası Türkçe karşılıklarla ne yapacağımı anlatmanızı istersem ayıp etmiş olmam umarım :) office 2007 kullanıyorum bu arada.

ilginiz ve sabrınız için teşekkür ederim ayrıca :)
 
manisali16' Alıntı:
çok özür dilerim :) verdiğiniz örnek benim istediklerimle uyumlu gibi görülüyor.incelediğimde aradığım şeyleri bana verebileceğini gördüm.

yalnız cahilliğime verin lütfen örnek dosyada açıklama sayfasına "Insert > Name > Define'dan WSN diye bir ad tanımlayıp "Refers to:"

diye bir yazı var.anlamadığım nokta da tam burası Türkçe karşılıklarla ne yapacağımı anlatmanızı istersem ayıp etmiş olmam umarım :) office 2007 kullanıyorum bu arada.

ilginiz ve sabrınız için teşekkür ederim ayrıca :)
Genişletmek için tıkla ...


2003 için:

Insert / Name / Define
Ekle / Ad / Tanımla

Refers to:
Başvuru yeri:


Excel 2007 ve 2010 için:

Name Manager'e bakın.

Türkçesi Ad yöneticisi olabilir mi?

.
 
Merhaba,

Aşağıdaki kodların dosyanıza uyarlanmış halini inceleyiniz.
Önce ilgili firmayı süzdüreceksiniz, sonra butona basacaksınız.

Kod: 
Sub Suz_Aktar()
 
    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("örnek")
    Set s2 = Sheets("gelen data")
    
    s1.Select
    
    If s1.AutoFilterMode = False Then
        MsgBox "Süzme İşlemini Gerçekleştirmemişsiniz...", vbCritical, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
        Exit Sub
    End If
    
    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
    s2.Range("A" & i & ":K" & i).ClearContents
    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub
 

Ekli dosyalar

Necdet Yeşertener' Alıntı:
Merhaba,

Aşağıdaki kodların dosyanıza uyarlanmış halini inceleyiniz.
Önce ilgili firmayı süzdüreceksiniz, sonra butona basacaksınız.
Genişletmek için tıkla ...

verdiğiniz ekte dosya için çok teşekkür ederim tam işimi gören bir makro.size zahmet verdim hakkınızı helal edin :)

şu aşamada sorunsuz bir şekilde kullanabiliyorum.sadece meraktan sormak istediğim bir sorum var.makro yerine bu işi formülle halletmenin yöntemini de belirtmişsiniz o konunuzda.bu alanları kapsayan ve sağlıklı çalışan bir formül yazmak mümkün mü acaba :))


ilginiz ve yardımınız için bir kez daha teşekkür ederim
 
manisali16' Alıntı:
.makro yerine bu işi formülle halletmenin yöntemini de belirtmişsiniz o konunuzda.bu alanları kapsayan ve sağlıklı çalışan bir formül yazmak mümkün mü acaba :))

ilginiz ve yardımınız için bir kez daha teşekkür ederim
Genişletmek için tıkla ...

Bunu yapacak formülü yazacak bilgiye sahip değilim :)
 
Necdet Yeşertener' Alıntı:
Bunu yapacak formülü yazacak bilgiye sahip değilim :)
Genişletmek için tıkla ...

yine de ilgi ve alakanız için teşekkür ederim.göndermiş olduğunuz makro işimizi fazlasıyla görücektir.zamanınızı fazlasıyla çaldım sanırım :) arada sırada başınızı ağrıtabilirim belki şimdide kusura bakmayın :) iyi günler iyi çalışmalar dilerim
 
Necdet bey,
İşletmelerde çalışıpta excel kullanan binlerce kişinin ihtiyacını görecek örnek bir çalışma.
Ellerinize sağlık.
 
Filitrelenen Değerleri Başka Sayfada Hesaplama

Selam arkadaşlar benimde şöyle bir sorunum var. Şimdi ekde yolladığım dosyada Üretim Takip adlı sayfada makine kodu olarak listeyi süzdüğümde bir sonraki sayfada o makine(örnek:1-001-140) kesime harcanan toplam süreyi imalat montaja harcanan süreyi hesaplanmış olarak görmek istiyorum yardımlarınızı bekliyorum
 

Ekli dosyalar

1-005-110 09-00 montaj temizlik-toplama
1-005-110 09-00 montaj klavuz çekme-Büküm
1-005-110 09-00 montaj pnomatik bağlantı

Bazı makina kodlarınızda birden fazla işlem var ama özet sayfanızda tek işlem hücresi var. Bu durumda ne olması gerekiyor?

Ayrıca yeni bir başlık altında sorunuzu yayınlarsanız cevap olasılığı çok daha yüksek olur.
 
Dosyanız ekte 3 makina kodu için Vba da aktarma kodları hazır, diğer makina kodları için devam edebileceğiniz açıklamalar dosya üstündedir.
Yanlız daha önce de uyardığım gibi ; bir makina kodunda birden fazla işlem olanlar var ve ilk işlemi+zamanı alacağından hatalı sonuçlanmaya açıktır. Lütfen birden fazla işlemde ne olacağına dair bir mantık bildirin.
 

Ekli dosyalar

Ben herhangi bir makine kodunu süzdüğümde 2. sayfada sadece o makine koduna ait bilgiyi görmek istiyorum. Mesela 1-001-140 nolu makineyi 1. sayfada süzdüm ikinci sayfada A1 de 1-001-140 yazıcak B1 de örnek kesim C1 de toplam süresi B2 de montaj C2 de toplam süresi
 
benimde aynı sorunum var. şöyle bir fark var. ben her filtrelediğim değerden kaçtane varsa o değerin ve bilgilerin olduğu tabloyu filtrelenmiş halde yeni bir sayfaya kopyalamak istiyorum. mahalle adına göre yapacağım. yaklaşık 300 tane mahalle var. her mahalleyi filtreleyip bilgilerini yeni bir sayfaya veya excel dosyasına kaydetmek istiyorum. yani ana veri tablosunu mahalleye göre kaç mahalle varsa o kadar parçaya ayırmak istiyorum
 
Necdet Yeşertener' Alıntı:
Merhaba,

Aşağıdaki kodların dosyanıza uyarlanmış halini inceleyiniz.
Önce ilgili firmayı süzdüreceksiniz, sonra butona basacaksınız.

Kod: 
Sub Suz_Aktar()
 
    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("örnek")
    Set s2 = Sheets("gelen data")
    
    s1.Select
    
    If s1.AutoFilterMode = False Then
        MsgBox "Süzme İşlemini Gerçekleştirmemişsiniz...", vbCritical, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
        Exit Sub
    End If
    
    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
    s2.Range("A" & i & ":K" & i).ClearContents
    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub
Genişletmek için tıkla ...

Merhabalar Sayın AYHAN,
bu konudaki 7 no'lu mesajınızda yer alan yukarıdaki kod ve örnek dosya ile ilgili iki sorun var, nasıl çözmek lazım acaba?

Birincisi, ilk adımda örneğin J sütununu AACCEL olarak südükten sonra düğmeye tıklayınca (süz sonrası kalan veri satır adeti:26) veriler diğer sayfaya aktarılıyor, ikinci adımda aynı sütunu bu kez HELEN olarak süzünce kalan satır adeti 11, düğmeye tıklandığında önceki 26 kaydın ilk 11'inin üstüne yeni süzülenler yazılırken, bir önceki süzden kalan 12-26'ncı satırlardaki veriler duruyor.

Çözümü için ne yapmak lazım acaba?

İkincisi, klavyeden Ctrl+End tuşlarına basınca, mevcut son satıra değil, daha evvel kullanılmış olan satırlar da doluymuş gibi daha aşağılarda bir satıra gidiliyor.

Bunun çözümü için ne yapılmalı acaba?
 
Kodu yazan Necdet beydir.

Sanırım isimler karıştı...

Kodu aşağıdaki gibi düzelip deneyiniz.

Kod: 
Sub Suz_Aktar()

    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("örnek")
    Set s2 = Sheets("gelen data")
    
    s1.Select
    
    If s1.AutoFilterMode = False Then
        MsgBox "Süzme İşlemini Gerçekleştirmemişsiniz...", vbCritical, "N. YEŞERTENER --> www.excel.web.tr"
        Exit Sub
    End If
    
    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
[COLOR="Red"]    s2.Range("A4:K" & i).ClearContents
[/COLOR]    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub
 
Korhan Ayhan' Alıntı:
Kodu yazan Necdet beydir.

Sanırım isimler karıştı...

Kodu aşağıdaki gibi düzelip deneyiniz.

Kod: 
Sub Suz_Aktar()

    i = s2.Cells(Rows.Count, "A").End(3).Row + 1
[COLOR="Red"]    s2.Range("A4:K" & i).ClearContents
[/COLOR]    
    Range("A3").CurrentRegion.Copy s2.Range("A4")
    
    s2.Rows("4:6").Delete
    
End Sub
Genişletmek için tıkla ...

Evet öyle olmuş, isminizin boyut ve rengi dolayısıyla karıştırdım galiba, biraz da uykum geldi sanırım. Sabah 09:30'dan bu yana neredeyse aralıksız bilgisayar başındaydım. Düzeltme için teşekküler. Sadece biçimler silinmiyor durumda ama böyle de iş görecektir. Sağlıcakla.
 
Satırları silen bölümü aşağıdaki gibi değiştirip deneyin.

Kod: 
s2.Range("A4:K" & i).Clear
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst