Excel Makro Kod Satır Aralığı Vermek

[okakalb]

Aşağıda Örnekte Olduğu Gibi Sayfa1 Bilgi Girdiğimizde Sayfa2 Tarih Ve İsim Olarak Alt Alta
Sıralı Olabilirmi Burda Mühim Olan Sayfa2 Osman İle Hale nin Arasında En Az 50 Satır Boşluk Olmasını İstiyorum Yükarıdan Aşağıya 50 Satır Veya 100 Bu İsteğe Göre Değişebilir Daha Önce Alt Alta Sıralı Yapmıştık Aşağıda Komut Sistemilen Fakat Satır Aralığı Veremdim Bu Konuda Yardımcı Olursmunuz Şimdiden Teşekkürler


Sub Kopyala_sırala()
Columns("A:K").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
Range("A:K").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Bu Kodla Sıralama Oldu Fakat Satır Boşluğu Veya Aralığı Veremdik Bunu Nasıl Yapabiliriz
Not:Makroda Kod Veya Komut Eğtimi Nasıl Alabiliriz Başvuru Kaynağı Varmı

A1 İle A50 Arası Veli
A51 Den Başlayıp A100 Osman Bitmesi
Örnek
Sayfa2
A B C D E F G H I J K

A1 21.05.2008 veli

A50 A1 İLE A50 ARASI VELİ HANESİ OLDU

A51 21.05.2008 osman

A100 A51 İLE A100 ARASI OSMANIN OLDU


Sayfa1
A B

21.05.2008 veli
21.05.2008 osman
21.05.2008 ayşe
21.05.2008 jale
21.05.2008 hale

22.05.2008 osman
22.05.2008 hale
22.05.2008 veli
22.05.2008 ayşe
22.05.2008 jale

Sayfa2
A B
1 21.05.2008 veli
22.05.2008 veli
2 21.05.2008 osman
22.05.2008 osman
3 21.05.2008 ayşe
22.05.2008 ayşe
4 21.05.2008 jale
22.05.2008 jale
5 21.05.2008 hale
22.05.2008 hale

 

[Ayhan Ercan]

Merhaba Sn okakalb

Sorunuzu Örnek bir dosya ile anlatabilirmisiniz?

 

[okakalb]

dosya hazırlıyp gönderim

 

[okakalb]

ekli doysa sayfa2 de satır aralığı daha fazla olabilir
ilginiz için teşekkür
kolay gelsin

 

[okakalb]

ilk mesajımda olduğu gibi sıralama oldu fakat satır aralığı olmadı makroda işlemi yaptık

 

[okakalb]

Aşağıda Örnekte Olduğu Gibi Sayfa1 Bilgi Girdiğimizde Sayfa2 Tarih Ve İsim Olarak Alt Alta
Sıralı Olabilirmi Burda Mühim Olan Sayfa2 Osman İle Hale nin Arasında En Az 50 Satır Boşluk Olmasını İstiyorum Yükarıdan Aşağıya 50 Satır Veya 100 Bu İsteğe Göre Değişebilir Daha Önce Alt Alta Sıralı Yapmıştık Aşağıda Komut Sistemilen Fakat Satır Aralığı Veremedim Bu Konuda Yardımcı Olursmunuz Şimdiden Teşekkürler .


NOT(Ayhan Ercan): Aynı konu tekrar açıldığından konular birleştirilmiştir..

 

[Ayhan Ercan]

Sayın okakalb,

Sorunuz ve ekinizde isteğiniz anlaşılmıyor.
Daha anlaşılır biçimde sormaya deneyiniz....

 

[okakalb]

Sayın Ayhan Ercan

Aşağıda Örnekte Olduğu Gibi Sayfa1 Bilgi Girdiğimizde Sayfa2 Tarih Ve İsim Olarak Alt Alta
Sıralı Olabilirmi Burda Mühim Olan Sayfa2 Osman İle Hale nin Arasında En Az 50 Satır Boşluk Olmasını İstiyorum Yükarıdan Aşağıya 50 Satır Veya 100 Bu İsteğe Göre Değişebilir Daha Önce Alt Alta Sıralı Yapmıştık Aşağıda Komut Sistemilen Fakat Satır Aralığı Veremdim Bu Konuda Yardımcı Olursmunuz Şimdiden Teşekkürler


Sub Kopyala_sırala()
Columns("A:K").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A1").Select
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
Range("A:K").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Bu Kodla Sıralama Oldu Fakat Satır Boşluğu Veya Aralığı Veremdik Bunu Nasıl Yapabiliriz
Not:Makroda Kod Veya Komut Eğtimi Nasıl Alabiliriz Başvuru Kaynağı Varmı

A1 İle A50 Arası Veli
A51 Den Başlayıp A100 Osman Bitmesi
Örnek
Sayfa2
A B C D E F G H I J K

A1 21.05.2008 veli

A50 A1 İLE A50 ARASI VELİ HANESİ OLDU

A51 21.05.2008 osman

A100 A51 İLE A100 ARASI OSMANIN OLDU


Sayfa1
A B

21.05.2008 veli
21.05.2008 osman
21.05.2008 ayşe
21.05.2008 jale
21.05.2008 hale

22.05.2008 osman
22.05.2008 hale
22.05.2008 veli
22.05.2008 ayşe
22.05.2008 jale

Sayfa2
A B
1 21.05.2008 veli
22.05.2008 veli
2 21.05.2008 osman
22.05.2008 osman
3 21.05.2008 ayşe
22.05.2008 ayşe
4 21.05.2008 jale
22.05.2008 jale
5 21.05.2008 hale
22.05.2008 hale

 

[Ayhan Ercan]

Sn okakalb

Sorunuzun anlaşılmadığını, dolayısyla soruyu daha anlaşılır biçimde sormanızı istemiştim.

Siz ise sorunuzu kopyala yapıştır ile birdefa daha aynı şekilde sormuşsunuz...

 

[okakalb]

Sayın Ayhan Ercan
Bugün saat 14,35 son mesajımdaki gibi sayfa1 veri giridiğinde sayfa2 de tarih ve isim olarak alt alta sıralı ve her veri için en az 50 satır aralık olmasını istiyorum örnek veli 10 adet olduğunda 50 satır atlayıp sonra veya 20 satır isteğe göre değişebilir hale başlasın hale bitiğinde tekrar satır atlayıp jale başlasın tabi bu alfebetik sıraylan olması lazım bilmiyorum anlatmaya çalıştım galiba kişi kendi sorununu anlatmasıda bir sanat ben biraz bu konuda zorlanıyorum sanırım
şimdiden teşekkürler kolay gelsin

 

[okakalb]

ekli dosya içinde sayfa1de 13 satırsa yazı var okurmusnuz lütfen

 

[okakalb]

Sayın Ayhan Ercan
bir hatırlatma daha
veli 10 tane var ama ilk veli den sonra 50 satır arlığı olsun A1 den A50 hucresi veliye ait olsun veli A1 den A10 kadar yazılı ama ikinci karaktere kadar A50 ye kadar boş kalsın

 

[okakalb]

Sayın Ayhan Ercan
Acıba Size sormuş Olduğum Konu Hakında Bir Gelişme Varmı Soruna Takılıp Kalmış Durumdayım Ne Tavsiye Edersiniz
İyi Çalışmalar
İyi Akşamlar

 

[okakalb]

yukarıdaki örnekte önce alfebtik sıralama yapıp sonra sayfa ikide aynı isimleri karışlaştırma yapmak istiyorum
çünki bazı isimler 10 tane bazı isimler 30 tane oluyor aynı isimlerden yani
aynı isimleri sayfa2 de yan yana dizdiğimde aynı sıradan başlamıyor biri aşağıda kalıyor biri yukarıda bunu çoğaltığımmızda ise arap saçına dönüyor istediğim alfebetik sıraya girdiğinde a ile başlayan isim ler A1 den başlayıp A50 de bitsin a ilen başlasa 10 adet a varsa bile a ismine ait 50 hane boş kalsın b ismi geldiğinde A51 den başlayıp A100 de bitsin çünki bu kitap1 - ilen başlayan isimler kitap 2 de + ilen başlayan isimleri kitap 3 te - ve + kopya yapıp yan yana dizmek istiyorum

Not: Kendimi İfade Etmek İçin Şöyle Bir Örnek Vereyim
500 kutucuk var dieylim her kutuya bir harf doldurmak istiyorum diyelim yukardan aşağıya doğru kutu boşta olsa doluda olsa o alanı kaplar kutu içinde kaç tane harf olduğunda mühim değildir ama hiç bir kutu diğerinin alanına girmez