Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 08-11-2017, 14:02   #1
marmara1453
 
Giriş: 26/10/2009
Şehir: bursa
Mesaj: 35
Excel Vers. ve Dili:
2003
Varsayılan Otamatik tablo yapımı

Merhabalar ,

alttaki adreste belirtmiş olduğum excel dosyanın sheet1 deki verileri otamatik olarak sheet 2 de bulunan tabloya şartlı olarak aldırmak istiyorum.Yapılabilir mi ? Yardımlarınız için şimdiden teşekkür ederim.

Not : Almak istediğim sonuç Örnek olarak sheet3 de gösterilmiştir.


https://www.dosyaupload.com/54hw
marmara1453 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-11-2017, 15:48   #2
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

.

Sheet1 sayfasındaki liste ortalama kaç satır olabilir.

.
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-11-2017, 15:59   #3
marmara1453
 
Giriş: 26/10/2009
Şehir: bursa
Mesaj: 35
Excel Vers. ve Dili:
2003
Varsayılan

en fazla 100 olarak dikkate alabiliriz
marmara1453 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-11-2017, 16:35   #4
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub KOD()
    
    Dim SD As Worksheet: Set SD = Sheets("Sheet1")
    Dim SO As Worksheet: Set SO = Sheets("Sheet2")

    Dim dic As Object, liste(), dizi()

    son = SD.Cells(Rows.Count, "C").End(3).Row
    liste = SD.Range("C5:G" & son).Value

    ReDim dizi(1 To son, 1 To 5)

    Set dic = CreateObject("scripting.dictionary")

    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 5)

        If Not dic.exists(aranan) Then
            n = n + 1
            dic.Add aranan, n
            ReDim Preserve dizi(1 To son, 1 To 5)
            dizi(n, 1) = liste(x, 5)
            dizi(n, 2) = liste(x, 4)
        End If
        dizi(dic.Item(aranan), 3) = dizi(dic.Item(aranan), 3) & liste(x, 1) & "-"
    Next x

    SO.Range("a2:c" & Rows.Count).ClearContents
    SO.Range("A2").Resize(dic.Count, 3) = dizi

End Sub
.
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 06:11


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden