• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Aynı Çalışma Kitabındaki İki Excel Sayfası Arasında Şarta Bağlı Veri Aktarımı

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

ERDAL

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
3 Nis 2021
Mesajlar
255
Çözümler
1
Aldığı beğeni
43
Excel V
Office 2013 TR
Konuyu Başlatan
Merhaba Değerli ExcelCozum.Com kullanıcıları;

Öncelikle herkesin Kurban Bayramı Mübarek Olsun.

Yapmak istediğim; sayfa1 deki verileri sayfa1 deki Kurum_türü1 kriterine göre;
If ana(i, 6) = "ilkokul" Or ana(i, 6) = "İlkokul (İşitme Engelliler)" Or ana(i, 6) = "İlkokul (Görme Engelliler)" Or ana(i, 6) = "Özel Türk İlkokulu" Or ana(i, 6) = "Özel Eğitim Uygulama Okulu (I. Kademe)" Then
Sayfa3 teki çizelgeye aktarmak. Aktarımı yapıyorum, fakat ya sayfa1 deki kurumların tamamı geliyor ya da ortaokulların satırlarını boş olarak sayfa3 e getiriyor. Benim istediğim sadece yukarıda türlerini belirtiğim ilkokulların sayfa3 teki çizelgeye A5’ ten başlayarak aktarılması.
Yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

  • İLKOKUL Ve ORTAOKUL İST. ( 2020 - 2021 ).xlsm
    259.9 KB · Gösterim: 7
Çözüm
askan
ERDAL' Alıntı:
hocam birde E ve C sütunlarını A' dan Z' ye sıralamak istediğimde aşağıdaki kodda renklendirdiğim kısımda hata veriyor.

With Sayfa3.Sort
.SortFields.Clear
.SortFields.Add Key:=ws.Range("E5"), Order:=xlAscending
.SetRange ws.Range("A5:M" & son)
.Header = xlGuess
.Apply
End With

With Sayfa3.Sort
.SortFields.Clear
.SortFields.Add Key:=ws.Range("C5"), Order:=xlAscending
.SetRange ws.Range("A5:M" & son)
.Header = xlGuess
.Apply
End With
Genişletmek için tıkla...
ws ler set edilmemiş "ws." leri silip deneyin
Tarihe göre sırala Oylara göre sırala
İstediğiniz bu düzen değil mi?
 
Olumlu oy 0 Negatif oyla
Merhaba

Dosya derken?
 
Olumlu oy 0 Negatif oyla
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Kodu şu şekilde düzenleyin
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Hocam çok teşekkür ederim. Elinize emeğinize sağlık.

Hocam acaba benim kodda atladığım nokta ne imiş
 
Olumlu oy 0 Negatif oyla
hocam birde E ve C sütunlarını A' dan Z' ye sıralamak istediğimde aşağıdaki kodda renklendirdiğim kısımda hata veriyor.

C:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
ERDAL' Alıntı:
hocam birde E ve C sütunlarını A' dan Z' ye sıralamak istediğimde aşağıdaki kodda renklendirdiğim kısımda hata veriyor.

With Sayfa3.Sort
.SortFields.Clear
.SortFields.Add Key:=ws.Range("E5"), Order:=xlAscending
.SetRange ws.Range("A5:M" & son)
.Header = xlGuess
.Apply
End With

With Sayfa3.Sort
.SortFields.Clear
.SortFields.Add Key:=ws.Range("C5"), Order:=xlAscending
.SetRange ws.Range("A5:M" & son)
.Header = xlGuess
.Apply
End With
Genişletmek için tıkla...
ws ler set edilmemiş "ws." leri silip deneyin
 
Olumlu oy 1 Negatif oyla
Çözüm
ERDAL' Alıntı:
Hocam çok teşekkür ederim. Elinize emeğinize sağlık.

Hocam acaba benim kodda atladığım nokta ne imiş
Genişletmek için tıkla...
döngünüzdeki i değişkeni kullanıyorsunuz. Eğer onu kullanırsanız verinizi 1. satırda da bulabilir arkasından 100. satırda da bulabilir. O yüzden aralıklı görürsünüz verileri. If içerisinde "n" değişkenini her defasında 1 artırarak satır 5-6-4... şeklinde devam etmesini sağlıyoruz.
 
Olumlu oy 0 Negatif oyla
Teşekkür ederim. Haklısınız burayı fark edememişim.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst