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 09-11-2017, 15:30   #1
aksoy53
Altın Üye
 
Giriş: 21/11/2007
Şehir: RİZE
Mesaj: 72
Excel Vers. ve Dili:
windows 10
Varsayılan 2 Çalışma Sayfasının Renklı Alanları Tek Sayfa Yapma

Sayfa 1 ve sayfa 2'de renkli olan satırları "2 sayfayı birleştirme" yerine tek sayfa olarak aktarmak istiyorum.

Kitap sayımı yaparken 2 bilgisayardan daha hızlı olsun diye işaretleme yaptığımızdan 2 listeyi renkli olanları tek liste halıne getirmek istiyorum yardımlarınız için şimdiden teşekkür ederim.
Eklenmiş Dosyalar
Dosya Türü: xlsx tüm kitaplar 2017.xlsx SAYIMMM ÖRNEK.xlsx (704.6 KB, 9 Görüntülenme)
aksoy53 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 15:42   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,589
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm()
Dim s1, SAYFA As Worksheet
Dim Son As Long
Set s1 = Sheets("2 SAYFAYI BİRLEŞTİRME")
Application.ScreenUpdating = False
s1.Range("A2:D65000").Clear
For Each SAYFA In ThisWorkbook.Worksheets
    If SAYFA.Name <> "2 SAYFAYI BİRLEŞTİRME" Then
    Son = SAYFA.Range("B" & Rows.Count).End(xlUp).Row
        For i = 2 To Son
            If SAYFA.Cells(i, 1).Interior.Color <> xlNone Then
                SAYFA.Range("A" & i & ":D" & i).Copy s1.Cells(65536, "A").End(3).Offset(1, 0)
            End If
        Next i
    End If
Next SAYFA
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 16:40   #3
aksoy53
Altın Üye
 
Giriş: 21/11/2007
Şehir: RİZE
Mesaj: 72
Excel Vers. ve Dili:
windows 10
Varsayılan

Hocam eline koluna sağlık yaptım allah razı olsun fakat aktarırken unuttum aktarılan satırları silebilirmi eklenebilirmi (1. ve 2. Sayfadan) kodda işaretlenmeyeni bulmam için

Bu mesaj en son " 09-11-2017 " tarihinde saat 16:49 itibariyle aksoy53 tarafından düzenlenmiştir....
aksoy53 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-11-2017, 21:58   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,589
Excel Vers. ve Dili:
2010-2016
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm()
Dim s1, SAYFA As Worksheet
Dim Son As Long
Set s1 = Sheets("2 SAYFAYI BİRLEŞTİRME")
Application.ScreenUpdating = False
s1.Range("A2:D65000").Clear
For Each SAYFA In ThisWorkbook.Worksheets
    If SAYFA.Name <> "2 SAYFAYI BİRLEŞTİRME" Then
    Son = SAYFA.Range("B" & Rows.Count).End(xlUp).Row
        For i = 2 To Son
            If SAYFA.Cells(i, 1).Interior.Color <> xlNone Then
                SAYFA.Range("A" & i & ":D" & i).Copy s1.Cells(65536, "A").End(3).Offset(1, 0)
                SAYFA.Rows(i).Delete
                i = i - 1
            End If
        Next i
    End If
Next SAYFA
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-11-2017, 20:14   #5
aksoy53
Altın Üye
 
Giriş: 21/11/2007
Şehir: RİZE
Mesaj: 72
Excel Vers. ve Dili:
windows 10
Varsayılan

Sayın Hocam bu kod çalışmadı 1. sayfayı tamamen sildi 2. sayfadakileri aktardı ama silmedi.
Şöyle yapabilirmiyiz hocam sizide yordum hakkınızı helal edin renkli olmayanları 1. ve 2. sayfada "2 sayfayı birleştir" aktarabilirmi sorun daha çabuk çözülebilir.
aksoy53 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 17:06   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,589
Excel Vers. ve Dili:
2010-2016
Varsayılan

Örnek dosyanız.
Eklenmiş Dosyalar
Dosya Türü: xlsm tüm kitaplar 2017.xlsx SAYIMMM ÖRNEK (1).xlsm (762.8 KB, 6 Görüntülenme)
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 18:43   #7
aksoy53
Altın Üye
 
Giriş: 21/11/2007
Şehir: RİZE
Mesaj: 72
Excel Vers. ve Dili:
windows 10
Varsayılan

Çok teşekkür ederim duyarlılığınıza her şey gönlünce olsun allah razı olsun.
aksoy53 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-11-2017, 19:33   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,589
Excel Vers. ve Dili:
2010-2016
Varsayılan

Rica ederim. Hayırlı akşamlar.
__________________
excel 2010- türkçe
askm Ç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:50


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