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 13-10-2017, 19:54   #1
cemal42
 
Giriş: 28/05/2007
Mesaj: 63
Excel Vers. ve Dili:
2010 tr
Varsayılan Veri süzme ve sayfaya aktarma

İyi akşamlar. 5000 satırlık 10 sütunluk bir veri sayfası var. D ve E sütunlarından birinde veya her ikisinde de bulunan, ancak farklı satırlarda "DENEME" yazan sütunların süzülerek alt alta gelecek şekilde tüm satırla birlikte diğer sayfaya nasıl aktarabiliriz. Teşekkürler.
cemal42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-10-2017, 09:36   #2
hoguz2
 
Giriş: 06/10/2004
Şehir: Antalya
Mesaj: 219
Excel Vers. ve Dili:
MSOffice 2010 TR
Varsayılan

Merhaba ,

aşağıdaki kodu kullanırsanız önce D yi filitreleyip sayfa 2 ye aktaracak sonra o tablonun altına e yi filtreleyip aktaracak bu şekilde işinizi görür mü yoksa D ve E satır sırasına göremi olmalı ..

Sub suz_aktar()

Application.ScreenUpdating = False
Sheets("Sayfa2").Select
Range("A1:J5000").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("Sayfa1").Select
Range("A1").Select
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter Field:=4, Criteria1:="=*deneme*"
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("A1").Select
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter Field:=5, Criteria1:="=*deneme*"
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Sayfa2").Select
ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:J").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

Bu mesaj en son " 14-10-2017 " tarihinde saat 10:42 itibariyle hoguz2 tarafından düzenlenmiştir.... Neden: hatali kod
hoguz2 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-10-2017, 14:23   #3
cemal42
 
Giriş: 28/05/2007
Mesaj: 63
Excel Vers. ve Dili:
2010 tr
Varsayılan

Bu şekilde de işimi görür. Ancak Sayfa1'den Sayfa2'ye aktarırken Sayfa1'deki veriler kayboluyor. Bu da olmazsa güzel olacak. Alakanız için teşekkürler.
cemal42 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-10-2017, 15:07   #4
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,252
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Alternatif olarak ek dosyayı deneyin.

http://s6.dosya.tc/server11/0poqtn/Aktar1.zip.html

Bu mesaj en son " 14-10-2017 " tarihinde saat 15:14 itibariyle PLİNT tarafından düzenlenmiştir....
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-10-2017, 20:29   #5
cemal42
 
Giriş: 28/05/2007
Mesaj: 63
Excel Vers. ve Dili:
2010 tr
Varsayılan

Alıntı:
PLİNT tarafından gönderildi Mesajı Görüntüle
Merhaba
Alternatif olarak ek dosyayı deneyin.

http://s6.dosya.tc/server11/0poqtn/Aktar1.zip.html
Emekleriniz ve alakanız için teşekkürler. Dosya işimi gördü. İyi akşamlar.
cemal42 Ç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 11:24


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