Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Diğer Excel Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Diğer Excel Soruları Yukarıdaki başlıklara uymayan Excel sorularınızı bu bölüme gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 21-07-2017, 20:31   #1
cihangirali35
 
Giriş: 21/07/2017
Mesaj: 3
Excel Vers. ve Dili:
2016 türkçe
Varsayılan filtrelenmiş verileri başka sayfaya otomatik nasıl alabilirim

arkadaşlar öncelikle merhaba. kaç gündür forumunuzda bu konuyu araştırıyorum. ama herşeyi denememe rağmen bir türlü çözemedim.dosyayı eklemek isterdim ama nerden ekleme yapacağımı bulamadım. sorum şu. sayfa 1 de bulunan toplam parsonel listesinden pazartesi çalışacakları süzdüğümde elde edilen a ve b sütünündaki bilgilerin imza listesine ototmatik geçmesini istiyorum. bu konuda bana yardımcı olabilirmisiniz. şimdiden teşekkür ederim
cihangirali35 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-07-2017, 22:35   #2
dellerlim
Altın Üye
 
Giriş: 24/02/2012
Şehir: kırşehir
Mesaj: 294
Excel Vers. ve Dili:
office 2007 türkçe
Varsayılan

Merhaba.
Arama motoruna "dosya yükle" yazın orada çıkan herhangi bir siteye örnek dosya yüklerseniz sorununuz çözülebilir umarım.
dellerlim Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-07-2017, 22:50   #3
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,492
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Alıntı:
dosyayı eklemek isterdim ama nerden ekleme yapacağımı bulamadım.
Sisteme altın üyeler ekleyebilir , altın üye olmayanlar www.dosya.tc gibi sitelere zipli olarak yükleyip , görüntülenen linki burada paylaşarak dosyasına erişilmesini sağlayabilir. Cevap ya kod olarak burada verilir ya da aynı yoldan size gönderilir.
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-07-2017, 00:30   #4
cihangirali35
 
Giriş: 21/07/2017
Mesaj: 3
Excel Vers. ve Dili:
2016 türkçe
Varsayılan

ilginize teşekkür ederim. örnek çalışmayı aşağıdaki linke ekledim.

http://www.dosya.tc/server9/45lx7a/i...lgesi.rar.html
cihangirali35 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-07-2017, 10:54   #5
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,372
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Çok içime sinmemekle beraber daha iyi bir çözüm olana kadar kullanılabilir.

Sayfa1 in kod bölümüne kopyalayınız. Sayfada otomatik hesaplama açık olmalı.

Sayfa 2 de 28 satır sonra birleştirilmiş hücre var. Bu nedenle 28 satır dan fazla sonuç filtrelenir ise kopyalama yapılmaz.

Açılan web sayfasında büyük indir butonu değil en alttaki küçük indir butonunu tıklayın.
http://dosya.co/xwlsxzzyd4f2/imza_çizelgesi.xlsm.html

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Calculate()
   Call veri_aktar
End Sub

Sub veri_aktar()
    Set shveri = Sheets("Sayfa1")
    Set shliste = Sheets("Sayfa2")
    sonsatir = shveri.Cells(Rows.Count, "C").End(3).Row
    If sonsatir > 28 Then Exit Sub
    shveri.Range("C5:D" & sonsatir).SpecialCells(xlCellTypeVisible).Copy shliste.Range("M1")

    shliste.Columns("N:N").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    sonsatir = shliste.Cells(Rows.Count, "M").End(3).Row
    
    shliste.Range("M1:M" & sonsatir).Copy
    shliste.Range("B9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    shliste.Range("O1:O" & sonsatir).Copy
    shliste.Range("D9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    shliste.Columns("M:Z").Delete
End Sub
__________________
www.asriakdeniz.com

Bu mesaj en son " 22-07-2017 " tarihinde saat 11:12 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-07-2017, 11:09   #6
cihangirali35
 
Giriş: 21/07/2017
Mesaj: 3
Excel Vers. ve Dili:
2016 türkçe
Varsayılan

Alıntı:
asri tarafından gönderildi Mesajı Görüntüle
Çok içime sinmemekle beraber daha iyi bir çözüm olana kadar kullanılabilir.

Sayfa1 in kod bölümüne kopyalayınız. Sayfada otomatik hesaplama açık olmalı.

Sayfa 2 de 28 satır sonra birleştirilmiş hücre var. Bu nedenle 28 satır dan fazla sonuç filtrelenir ise kopyalama yapılmaz.


Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Calculate()
   Call veri_aktar
End Sub

Sub veri_aktar()
    Set shveri = Sheets("Sayfa1")
    Set shliste = Sheets("Sayfa2")
    sonsatir = shveri.Cells(Rows.Count, "C").End(3).Row
    If sonsatir > 28 Then Exit Sub
    shveri.Range("C5:D" & sonsatir).SpecialCells(xlCellTypeVisible).Copy shliste.Range("M1")

    shliste.Columns("N:N").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    sonsatir = shliste.Cells(Rows.Count, "M").End(3).Row
    
    shliste.Range("M1:M" & sonsatir).Copy
    shliste.Range("B9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    shliste.Range("O1:O" & sonsatir).Copy
    shliste.Range("D9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    shliste.Columns("M:Z").Delete
End Sub
Dediklerinizi yaptım. günlerden süzmeyi yaptığımda elde edilen verilerden hiç biri sayfa 2 deki yere gitmedi. ;(
cihangirali35 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 22-07-2017, 11:12   #7
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,372
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
cihangirali35 tarafından gönderildi Mesajı Görüntüle
Dediklerinizi yaptım. günlerden süzmeyi yaptığımda elde edilen verilerden hiç biri sayfa 2 deki yere gitmedi. ;(
Dosya eklendi.
__________________
www.asriakdeniz.com
asri Ç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 00:45


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- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden