sayfadan sayfaya veri aktarımı

[melam]

Şimdiden Emeği Geçenlere Teşekkür Ediyorum

 

[Necdet]

Başka Sayfaya Aktarma ve Sıralama

Merhaba,

Dosyanız ekte, inceliyiniz.

Public Sub Aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s2.Range("A2:E65000").ClearContents
SonSatır = s1.[A65536].End(3).Row
s1.Range("A2:E" & SonSatır).Copy (s2.[A2])
s2.Range("A2:E" & SonSatır).Sort Key1:=s2.[A2]
MsgBox "Aktarım ve Sıralama İşlemi Tamamlanmıştır....."
End Sub

 

[Ali]

Fonksiyonlar bölümüne sorduğunuz için fonksiyonlar ile bir örnek hazırladım.

Sayfa1 deki F sütunu yardımcı sütundur.

Sayfa2'deki K1 hücresi F sütununda sıfırdan büyük değer için 1 olan F sütunundaki verileri içindir.L1 hücreside bunların adetini sayar.

Formüller dizi formülü olup formül çubuğunda iken CTRL+SHIFT+ENTER tuşları ile girilmesi lazımdır.

Örneğiniz ektedir.

 

[melam]

Sn Necdet Yesertener öncelikli olarak yardımlarınızdan dolayı teşekkür ediyorum,elinize sağlık fakat benim istediğim tam olarak 2.sayfaya aktarılacak bilgilerin tutar kısmının değer ifade edenlerinin satır aralarında boşluk olmadan aktarılması idi yardım ederseniz memnun olurum.İyi çalışmalar.

 

[Ali]

Makrolu diğer alternatif ektedir.