-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
sayfadan sayfaya veri aktarımı
- Konbuyu başlatan melam
- Başlangıç tarihi
- Katılım
- 4 Haziran 2005
- Mesajlar
- 15,618
- Excel Vers. ve Dili
- Ofis 365 Türkçe
Başka Sayfaya Aktarma ve Sıralama
Merhaba,
Dosyanız ekte, inceliyiniz.
Merhaba,
Dosyanız ekte, inceliyiniz.
Kod:
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
Özel Üye
- Katılım
- 21 Temmuz 2005
- Mesajlar
- 8,015
- Excel Vers. ve Dili
- Office 365 Türkçe
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.
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.
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.