• DİKKAT !

    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 Dosya Yükleme 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

Gold Üye
Katılım
3 Nis 2021
Mesajlar
293
Çözümler
1
Aldığı beğeni
51
Excel V
Office 2013 TR
Gold Bitiş
21 Mart 2027
Konu Sahibi
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

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çö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
dosya:
 
Olumlu oy 0 Negatif oyla
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Kodu şu şekilde düzenleyin
 
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Konu Sahibi
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
Konu Sahibi
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.

HTML:
C:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
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
Konu Sahibi
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