Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 08-08-2017, 14:32   #1
ADER_34
 
Giriş: 02/06/2015
Şehir: İstanbul
Mesaj: 205
Excel Vers. ve Dili:
2010
Varsayılan Özet sayfasına aktar

selam arkadaşlar benim şöyle bir isteğim olacak,örnek dosyamda "sayfalarda" "F" sütununda değeri "FALSE" olanları "ÖZET AKTAR" sayfasına "A B C D E F" sütunlarında ki verileri aktarmak istiyorum kolay gelsin teşekkürler..
http://s9.dosya.tc/server3/hvc6yo/SAYIM.rar.html
ADER_34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-08-2017, 14:57   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,096
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Askm_Aktar()
Dim s1, s2, sayfa As Worksheet
Dim Str, SonSat As Long
Set s1 = Sheets("ÖZET AKTAR")
Str = 2
s1.Range("A2:F1000000").ClearContents
For Each sayfa In Worksheets
If sayfa.Name <> "ÖZET AKTAR" Then
    SonSat = Worksheets(sayfa.Name).Range("A65536").End(xlUp).Row
    For i = 2 To SonSat
        If Worksheets(sayfa.Name).Cells(i, "F").Text = "YANLIŞ" Then
            s1.Cells(Str, "A") = Worksheets(sayfa.Name).Cells(i, "A")
            s1.Cells(Str, "B") = Worksheets(sayfa.Name).Cells(i, "B")
            s1.Cells(Str, "C") = Worksheets(sayfa.Name).Cells(i, "C")
            s1.Cells(Str, "D") = Worksheets(sayfa.Name).Cells(i, "D")
            s1.Cells(Str, "E") = Worksheets(sayfa.Name).Cells(i, "E")
            s1.Cells(Str, "F") = Worksheets(sayfa.Name).Cells(i, "F")
            Str = Str + 1
        End If
    Next i
End If
Next
MsgBox "Aktarma işlemi tamamlandı..." & Chr(10) & Chr(10) & "İyi çalışmalar...", vbInformation, "ASKM"
End Sub
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 08-08-2017, 15:01   #3
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 8,642
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Alternatif olsun.
Aktarma işlemi için, For..Next döngüsü yerine FİLTRE yöntemi kullanıldı.
Veri yığını büyüdüğünde filtre yöntemi daha hızlı sonuç verecektir.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub OZETE_AKTAR()
Set oz = Sheets("ÖZET AKTAR")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
oz.Cells.Clear: Sheets("ANASAYFA").[A1:F1].Copy oz.[A1]
oz.Cells(1, "G") = "KAYNAK": oz.[F1].Copy: oz.[G1].PasteSpecial Paste:=xlPasteFormats
For Each s In ThisWorkbook.Worksheets
    If s.Name <> "ÖZET AKTAR" Then
        s.Range("A1:F" & Rows.Count).AutoFilter Field:=6, Criteria1:="YANLIŞ"
        If s.Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
            sat = oz.Cells(Rows.Count, 1).End(xlUp).Row + 1
            s.Range("A2:F" & s.Cells(Rows.Count, 1).End(xlUp).Row).Copy
            oz.Cells(sat, 1).PasteSpecial Paste:=xlPasteValues
            oz.Range(oz.Cells(sat, 7), oz.Cells(oz.Cells(Rows.Count, 1).End(xlUp).Row, 7)) = s.Name
        End If
        s.Range("A1:F1").AutoFilter
    End If
Next
oz.Range("A1:G" & oz.Cells(Rows.Count, 1).End(xlUp).Row).Borders.LineStyle = xlContinuous
oz.Activate: oz.Columns.AutoFit: oz.[A1].Activate
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı", vbInformation, "..::.. Ömer BARAN ..::.."
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-08-2017, 16:54   #4
ADER_34
 
Giriş: 02/06/2015
Şehir: İstanbul
Mesaj: 205
Excel Vers. ve Dili:
2010
Varsayılan

Sayın askm,ve Ömer Bey çok teşekkür ederim kodlarınız denedim, Ömer beyin kodları söylediği gibi büyük verilerde çok hızlı,sayın askm kodlarınız sorunsuz fakat büyük verilerde yavaş çalışıyor,birde kodlara ilave olarak "Anasayfaya" "A" sütununda diğer sayfalarda olamayan, 1 part_no eklediğimde o part_no yu, ÜRÜN koduna bakarak, ilgili sayfaya kopyalaması mümkün mü?
ADER_34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 13:42   #5
ADER_34
 
Giriş: 02/06/2015
Şehir: İstanbul
Mesaj: 205
Excel Vers. ve Dili:
2010
Varsayılan

Merhaba askm ve Ömer bey yardımcı olabilirmisiniz? kolay gelsin..
ADER_34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 14:13   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,096
Excel Vers. ve Dili:
2010-2016
Varsayılan

Son eklediğiniz ifadeyi örnek dosyanıza ekleyip anlatabilir misiniz.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 09-08-2017, 15:46   #7
ADER_34
 
Giriş: 02/06/2015
Şehir: İstanbul
Mesaj: 205
Excel Vers. ve Dili:
2010
Varsayılan

Sayın askm kısaca söyle kodlar aktarım yaptıktan sonra , Tekrar çalışma kitabında "ANASAYFA" da "A" sütununu süzme işlemi yapıp,eğer "ANASAYFA" "A" sütununda olup diğer tüm sayfalarada olmayan bir kod varsa, o ürünü "ANASAYFA" "C" sütununda ki karşılığına bakıp örnek: MB ise MB sayfasına
LCD ise LCD sayfasına kopyalacak kolay gelsin.
ADER_34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-08-2017, 15:58   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,096
Excel Vers. ve Dili:
2010-2016
Varsayılan

Anasayfadaki A sütunundaki değerlerin tamamı AAAAAA şeklinde. Asıl örneği sakıncası yoksa bana mail ya da özelden atarsanız yardımcı olayım. Bu şekilde tüm veriler sayfalara gitmiş olacak zaten.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-08-2017, 12:06   #9
ADER_34
 
Giriş: 02/06/2015
Şehir: İstanbul
Mesaj: 205
Excel Vers. ve Dili:
2010
Varsayılan

Merhaba sayın askm sizden şöyle bir istekte bulunmak istiyorum bu şekilde olursada işime yarayacak
"ANASAYFADA" bir ürün arama "userforumu" oluşturup ,ürün kodunu önce "ANASAYFA" da ara yoksa tüm sayfalarda ara bulursan üzerine git,eğer bulamazsan yeni kayıt oluştur diyip, "part_no" "part_name",Ürün," "SAĞ T", "Fiziki Adet" manuel girdikten sonra ürünü önce "Anasayfa" da en alt satıra,sonrada ürünün "ÜRÜN" koduna bakarak ilgili sayfa kopyalamasın istiyorum,kolay gelsin teşekkürler..
özet: ürün ara bul, bulursan üzerine git
bulamazsan yeni kayıt oluştur..
http://s9.dosya.tc/server3/59o54w/sayim.rar.html
ADER_34 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-08-2017, 08:47   #10
ADER_34
 
Giriş: 02/06/2015
Şehir: İstanbul
Mesaj: 205
Excel Vers. ve Dili:
2010
Varsayılan

Merhaba sayın askm yardımcı olabilirmisiniz? kolay gelsin
ADER_34 Ç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 17:21


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Excel Eğitimi - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Karton Bardak- Çorlu Pimapenci- İstanbul Avukat- Çorlu Kekemelik- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- 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 Kamera- Çorlu Fiber- Çorlu Araç Takip-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden