Aynı Olanları Diğer Sayfaya sıralamak,

[sabri şirin]

EK'de verilmiş olan Dosyada görüleceği gibi,P Sütununda "ÖDEME BİTTİ" Yazılı olanları diğer Sayfaya nasıl sıralayabilirim.
Saygılarımla...

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub Aktar()
Set s1 = Sheets("Ödeme Sayfası")
Set s2 = Sheets("Kömür durumu")
For i = 7 To s1.Range("P" & Rows.Count).End(3).Row
If s1.Cells(i, 16).Value = "ÖDEME BİTTİ" Then
    ss = s2.Range("B" & Rows.Count).End(3).Row + 1
    s2.Cells(ss, 2).Value = s1.Cells(i, 2).Value
    s2.Cells(ss, 5).Value = s1.Cells(i, 3).Value
    s2.Cells(ss, 6).Value = s1.Cells(i, 4).Value
End If
Next i
s2.Select
s2.Range("A7:N" & ss).Sort Key1:=[B1], Order1:=1
MsgBox "Aktarma ve Sıralama Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[apocalyt]

alternatif olarak formulle denedim..eki inceleyin..kolay gelsin..

 

[sabri şirin]

Gerek Kodlar, gerekse Formül mükemmel çalışıyor.
Ellerinize sağlık.Çok Teşekkür ederim
Saygılarımla...

 

[sabri şirin]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sayın dEdE,
Kod, hata vermeye başladı.Hata veren kısmı düzeltmeye çalıştım fakat bu kez hiç veri aktarmamaya başladı. İlk Başda verileri aktardı ve bir daha hiç bir işlem yapmadı.Yardımcı olabilirseniz memnun olurum.
Saygılarımla...

 

[dEdE]

Sayın dEdE,
Kod, hata vermeye başladı.Hata veren kısmı düzeltmeye çalıştım fakat bu kez hiç veri aktarmamaya başladı. İlk Başda verileri aktardı ve bir daha hiç bir işlem yapmadı.Yardımcı olabilirseniz memnun olurum.
Saygılarımla...

Merhaba,
Kod ilk mesajınızdaki örnek dosyanıza göre yazıldı. Bu dosya üzerinden incelediğmde hiçbir hata vermiyor. Sizin dosyanız farklı ise hata vermesi normaldir. Kodun ona göre düzenlenmesi gerekir.
Yukarıdaki kodda küçük bir düzetme yaptım. Bu işe yaramazsa, hata veren dosyayı ve hatayı görmeden yorum yapmak falcılık olur.

 

[Gamma]

Merhaba benim de bir sorum olacak. "Eğer bir hücrede yazılanlar içinde belirli bir kelime geçiyorsa başka bir hücreye "Evet" yaz, böyle bir kelime geçmiyorsa boş kalsın" nasıl yapılabilir? teşekkür ederim.
Not: Hücrelerde birbirinden farklı açıklamalar var ama bazılarının içinde sadece belirli bir kelimenin geçmesi yeterli. Örneğin kelime "Alındı" olsun. Hücrelerin içinde "kola alındı", "Kağıt alındı ve gönderildi", "gazete pazar günü alındı" gibi yazıyor.

 

[dEdE]

Merhaba benim de bir sorum olacak. "Eğer bir hücrede yazılanlar içinde belirli bir kelime geçiyorsa başka bir hücreye "Evet" yaz, böyle bir kelime geçmiyorsa boş kalsın" nasıl yapılabilir? teşekkür ederim.
Not: Hücrelerde birbirinden farklı açıklamalar var ama bazılarının içinde sadece belirli bir kelimenin geçmesi yeterli. Örneğin kelime "Alındı" olsun. Hücrelerin içinde "kola alındı", "Kağıt alındı ve gönderildi", "gazete pazar günü alındı" gibi yazıyor.

Merhaba,
Sorunuzu yeni başlık açarak ve örnek dosya ile destekleyerek sorarsanız kısa sürede yanıt alırsınız.
Örnek dosya olmadan verilen yanıtlardan sonra; Ama benim dosyamda veriler şu kolonda ona uyarlayamadım gibi geri dönüşler Forumda kirliliğe yol açıyor.

 

[Gamma]

Merhaba,
Sorunuzu yeni başlık açarak ve örnek dosya ile destekleyerek sorarsanız kısa sürede yanıt alırsınız.
Örnek dosya olmadan verilen yanıtlardan sonra; Ama benim dosyamda veriler şu kolonda ona uyarlayamadım gibi geri dönüşler Forumda kirliliğe yol açıyor.

Çok teşekkür ederim yeni başlık oluşturmaya çalışacağım.