• DİKKAT

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

Benzer kelimeleri farklı bir sayfada sıralamak

T

talebe41

Katılım
23 Şubat 2007
Mesajlar
2
Excel Vers. ve Dili
2003 excel kullanıyorum
Merhaba Arkadaşlar;

Şöyle bir sorunum var:

A sütünu [şehir] -- B sütunu [Banka adı] ----C sütunu [ilçe adı]

istanbul ----------------- Bankasya ------------------beykoz
istanbul ----------------- ziraatbankası -----------------üsküdar
istanbul -------------- garanti bankası --------------------- kadıköy
ankara ---------------- vakıfbank ------------------------ mamak
izmir---------------------- Bankasya----------------------karşıyaka
istanbul-------------------- Nakit---------------------------- şişli
izmir------------------------- PTT-------------------------- karşıyaka
istanbul----------------------Havale------------------------ümraniye

tabloda B sütununda bulunan hücrelerden "bank" kelimesinin geçtiği satırlar olduğu gibi başka bir sayfaya aktarılsın istiyorum. yani "nakit", "ptt" ve" havale" satırları kopyalanmasın istiyorum.
bununla ilgili bir makro yazacak arkadaş varsa şimdiden çok teşekkür ediyorum.
 
Merhaba,

Bu şekilde deneyin. Sayfa1 deki veriler B sütunundaki ölçüte göre Sayfa2 ye aktarılır.

Kod: 
Sub Bul_Aktar()
 
    Dim S2 As Worksheet, sat As Long, c As Range, Adr As String
 
    Set S2 = Sheets("Sayfa2")
 
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Select
 
    S2.Range("A2:C" & Rows.Count).ClearContents
 
    sat = 2
    With Range("B2:B" & Rows.Count)
        Set c = .Find("bank")
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Range("A" & c.Row & ":C" & c.Row).Copy S2.Cells(sat, "A")
                sat = sat + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With
 
End Sub
.
 
Merhaba,

Benimde böyle bir sorunum var.

Şöyleki ;

Çalıştığım işyerinde, excel formatında her gün gelen listelerin içinden, bu örnekte olduğu gibi belli bir kelimeye göre filitreleme yapılması isteniyor. Kullanıcılarımız Excel'in filitreleme işlevini kullanamadığından benden böyle bir şey istendi. Yukarıdaki buton sadece bu excel dosyası için çalışıyor, bu butonu diğer dosyalarda da nasıl kullanabilirim? excel'de bu işlemi yapmak mümkün mü?

NOT : Kullanıcılarımız sayfayı boşaltıp, yeni verileri bu sayfaya kopyalayamaz veya bu butonu işlem yapmak istediği sayfada tekrar yaratamaz.Yardımlarınız için şimdiden teşekkür ederim.

iyi çalışmalar.
 
Son düzenleme:
Merhaba,

Sorunuzu tam olarak anlayamadım. Daha detaylı açıklarmısınız.
 
Ömer' Alıntı:
Merhaba,

Sorunuzu tam olarak anlayamadım. Daha detaylı açıklarmısınız.
Genişletmek için tıkla ...

Merhaba,
Öncelikle ilginizden dolayı size teşekkür ederim :)

Yukarıdaki "talebe41"rumuzlu arkadaşın göndermiş olduğu örnekte "bank" kelimesinin geçtiği satırlar bir başka sayfada toplanmak istiyor. Ama bu işlem sadece bir excel dosyasıı için geçerli.

Benim sorum ise ,hergün excel formatında bir liste geliyor ve bu listeden (örneğe sadık kalarak açıklama yapmak adına)"bank" sözcüğünün geçtiği satırları başka bir sayfaya taşınması isteniyor.

Bu işlemi kendim yapacak olsam, örnekteki çözüm bana yeterli ama bunu kullanıcılar yapacak. Kullanıcalr, yeni gelen excel doyasını "butonu" koruyarak bu sayfaya yapıştıramazlar veya yeni gelen excel dosyasında bu "butonu" tekrar oluşturamazlar. Yani yapılması istenen kullanıcıya fazla iş bırakmayan küçük bir program oluşturmk.

Excel'de küçük programlar yazmak mümkünmü? Mesela kullanıcıyı önce bir ana ekran karşılayacak, o sayfada bir buton olacak "yeni gelen excel dosyasını pc'den alıp ilgili çalışma sayfasına kopyalayacak". Yine başka bir buton olacak " bu ikinci buton", bu örnekteki işlemi yaptıracak"

Biraz karışık oldu ama umarım sorunumu anlatabilmişimdir.:frown:

iyi çalışmalar.
 
Merhaba,

Ömer bey size nasıl yapılacağı konusunda ipucunu vermiş. Bende bu konuyla ilgili bir dosya hazırladım.

Dosyanın VBA şifresi; +++

Ekli dosyayı açıp FARKLI KAYDET yapın.
Açılan ekranda dosya türünden "Excel Eklentisi" yada "Microsoft Office Excel Eklentisi" seçeneğini seçip dosyayı kayıt edin.
Son olarak Ömer beyin verdiği 2. linkteki adımları takip edin.

Filtre uygulamak istediğiniz dosyanızı açın. İlgili sayfayı açın.
F12 tuşuna bastığınızda karşınıza bir form gelecek.
Form üzerindeki bilgileri doldurup butona tıkladığınızda işlemler gerçekleşecektir.

Filtrelenen bilgiler "RAPOR-14042012_112145" şeklinde sayfalara aktarılmaktadır.

İsteğe göre dosyaya eklemeler yapılabilir.
 

Ekli dosyalar

Korhan Ayhan' Alıntı:
Merhaba,

Ömer bey size nasıl yapılacağı konusunda ipucunu vermiş. Bende bu konuyla ilgili bir dosya hazırladım.

Dosyanın VBA şifresi; +++

Ekli dosyayı açıp FARKLI KAYDET yapın.
Açılan ekranda dosya türünden "Excel Eklentisi" yada "Microsoft Office Excel Eklentisi" seçeneğini seçip dosyayı kayıt edin.
Son olarak Ömer beyin verdiği 2. linkteki adımları takip edin.

Filtre uygulamak istediğiniz dosyanızı açın. İlgili sayfayı açın.
F12 tuşuna bastığınızda karşınıza bir form gelecek.
Form üzerindeki bilgileri doldurup butona tıkladığınızda işlemler gerçekleşecektir.

Filtrelenen bilgiler "RAPOR-14042012_112145" şeklinde sayfalara aktarılmaktadır.

İsteğe göre dosyaya eklemeler yapılabilir.
Genişletmek için tıkla ...

Korhan bey merhaba,

Sizede çok teşekkür ederim. Hazırlamış olduğunuz eklentiyi , excel dosyama ekledim ve çalıştı :) Daha önce Eklentilerle hiç çalışmamıştım, sizinkini örnek olarak alıp kendi eklentimi oluştururum. :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst