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 28-09-2017, 01:18   #1
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 21
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan Hücre filitreleme

ek tabloya benzer bir veri çalışmam var, bu tabloda SAYFA 1 deki verilerin KALAN sayfada görüntülemesini istiyorum ancak örnek verdiğim veri uzun satırlardan oluşması nedeni ile bunun KALAN sayfasında sadece sıfırdan büyük olanların ve büyükten küçüğe doğru sıralanmasını istiyorum.
yardımlarınızı bekliyorum iyi çalışmalar
Eklenmiş Dosyalar
Dosya Türü: xlsx STOK.xlsx (9.6 KB, 10 Görüntülenme)
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-09-2017, 11:08   #2
emr123
Altın Üye
 
Giriş: 01/11/2012
Şehir: Bursa
Mesaj: 144
Excel Vers. ve Dili:
OFFICE 2013 TÜRKÇE
Varsayılan

Merhaba

Aşağıdaki kodu boş bir modüle yapıştırıp deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub aktarsirala()

Dim i As Integer, son As Integer

Application.ScreenUpdating = False

Sheets("Sayfa2").Range("A2:B10000").ClearContents
son = Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row + 1

    For i = 2 To Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row
        If Sheets("Sayfa1").Cells(i, 2).Value > 0 Then
            Sheets("Sayfa2").Cells(son, 1).Value = Sheets("Sayfa1").Cells(i, 1).Value
            Sheets("Sayfa2").Cells(son, 2).Value = Sheets("Sayfa1").Cells(i, 2).Value
            son = son + 1
        End If
    Next
Sheets("Sayfa2").Range("A2:B10000").Sort Sheets("Sayfa2").Range("B2"), Order1:=xlDescending

Application.ScreenUpdating = True

MsgBox "İşlem Tamamlandı"

End Sub
İyi Çalışmalar
emr123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-09-2017, 02:01   #3
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 21
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

EMR123
ilginize teşekkür ederim, vermiş olduğunuz formülü örnek tabloya uyguladım istediğim şekilde sonuç verdi ancak uygulayacağım tabloya bir tür uyarlayamadım yani asıl tablom AB sütünlerde olmadığı için ve bilgi yetersizliğimden dolayı başaramadım eklediğim dosyanın bulunduğu hücrelere göre formatı tekrarlarsan memnun olurum.
iyi çalışmalar
Eklenmiş Dosyalar
Dosya Türü: xlsm STOK 5.xlsm (18.8 KB, 14 Görüntülenme)
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-09-2017, 02:47   #4
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,243
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Alternatif olsun.

Veri yığını büyük olduğunda, For...If ..End If...Next yapısıyla verileri koşula göre aktarmak süre alabilir.
Bu nedenle filtre (AC sütununu 0'dan büyük kriterine göre filtreleme) yöntemi daha hızlı sonuç verecektir.
Aktarma sonrasında da büyükten küçüğe sıralama yapılıyor.

Kırmızı işaretlediğim 2 sayısı azalan sıralama anlamına geliyor, artan için onun yerine 1 kullanabilirsiniz.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub aktarsirala()
Set S1 = Sheets("Sayfa1"): Set S2 = Sheets("Sayfa2")
S2.[W:X].ClearContents
S1.AutoFilterMode = False
S1.[AB2:AB2].AutoFilter Field:=2, Criteria1:=">0"
S1.Range("AB2:AC" & S1.Cells(Rows.Count, "AB").End(3).Row).Copy S2.[W9]
S1.Range("AB2:AC" & S1.Cells(Rows.Count, "AB").End(3).Row).Copy
S2.[W9].PasteSpecial Paste:=xlPasteValues
S1.[AB2:AB2].AutoFilter Field:=2
S2.Range("W10:X" & Rows.Count).Sort S2.[X10], Order1:=2
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 07-10-2017, 00:50   #5
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 21
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

Ömer Bey yardımların için teşekür ederim önerdiğin kodlamayı uyguladım sayfa1 deki AB ile AC sabit olmuş olsaydı hatasız işlem gerçekleşiyor ancak AB sabit kalabilir AC ise önceki verilere bağlı olarak sürekli değişken olabiliyor yani örnek tablodaki gibi ilk işlemler uyguladığımda normal işliyor ancak bir iki defa değerleri değiştirdim anda örnekteki gibi hata veriyor,
yardımlarınızı bekliyorum. katkılarınız için teşekkür ederim
Eklenmiş Dosyalar
Dosya Türü: xlsm STOK 01.xlsm (19.7 KB, 9 Görüntülenme)
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-10-2017, 01:12   #6
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,243
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Hem konu açılış mesajındaki örnek belgede ve hem de ikinci eklediğiniz örnek belgede, ilgili hücrelerde formül değil değerler var ve
soru ve açıklamalarınızda da formüllerin varlığından hiç bahsetmemiştiniz.

Malesef forumda sıkça rastladığımız sıkıntı bu.
Soruların gerçek belgeyle aynı yapıda örnek belge üzerinden sorulmaması, gereksiz yazışmalara ve zaman kaybına neden oluyor.

Önceki kod'da kırmızı renklendirdiğim satır yerine mavi renklendirdiğim satırları kullanarak isteğiniz sonuca ulaşılır.
Sayfayı yenileyerek önceki kod cevabımı tekrar kontrol edin.
.
__________________
.
☾✭ İ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 11-10-2017, 23:41   #7
nrtas
Altın Üye
 
Giriş: 09/08/2012
Şehir: istanbul
Mesaj: 21
Excel Vers. ve Dili:
mikrosoft ofice 2003
Varsayılan

Ömer Bey zaman ayırdığınız için teşekkür ederim, ayrıca asıl tabloda özel kişi bilgileri olduğu için için örnek ile gerisini getiririm diye düşünmüştüm!
iyi çalışmalar
nrtas Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-10-2017, 23:58   #8
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,243
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Örnek belgeden maksat, yapının
(sayfa düzeni, sayfalar arası bağlantı, işlem yapılacak sütun/satır adresleri tabi, varsa formüller, varsa makrolar, varsa userformlar gibi)
gerçek belgeyle aynı olmasıdır.

Yoksa kimse kimsenin, gizli kalması lazım gelen bilgilerini istemiyor,
örnek belgedeki verierin gerçek verileri temsil edebilecek nitelikte olması önemli (METİN/SAYI/TARİH vs) .

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