Sayfadan belli sayıda satırı diğer sayfaya kopyalamak

[quantum32]

MERHBALAR,

1. SAYFANIN A SÜTUNUNDA N ADET VERİ VAR. (VERİ ŞEKLİ = F0987345 HARF ve RAKAMLARDAN OLUŞMAKTA) KENDİM BELİRLEYECEĞİM BİR SAYIDA ÖRNEK OLARAK 17 OLSUN. İLK 17 KAYDI ALACAK 2.SAYFANIN A SÜTUNUNA, 2. 17 Yİ AYNI SAYFANIN C SÜTUNUNA, 3. 17 Yİ 2. SAYFANIN 2. SAYFASININ A SÜTUNUNA, 4. 17 Yİ C SÜTUNUNA 5. 17 Yİ... DİYE DEVAM EDECEK. TAKİ 1. SAYFADAKİ VERİ BİTENE KADAR.
ASLINDA BURADA YAPMAK İSTEDİĞİM WORD DEKİ GİBİ DÜZ BİR METNİ AYNI SAYFADA 1 DEN FAZLA SÜTUNA BÖLMEK. DOLAYISI İLE BÖLME İŞLEMİNİN DİĞER SAYFALARADA AKMASI GİBİ.

ŞİMDİDEN TEŞEKKÜR EDERİM KOLAY GELSİN...

 

[janveljan]

Ekteki dosyada yapmaya çalıştım. Formül sonucunda 0 olan hücreleri Araçlar/Seçenekler/Görünüm sekmesinden Sıfır Değerlerinin işaretini kaldırarak görünmez yaptım.

 

[quantum32]

selam janveljan,
dosya olmuş gibi ama şu var. C sütunundan devam eden veri 2. sayfanın 2. sayfasının A sütunundan, D sütunundan devam eden veri 2. sayfanın 2. sayfasının B sütunundan devam edecek.

 

[janveljan]

Dosyayı dediğiniz şekilde düzenledim, A ve B sütunlarına diziyor.
Formül

=İNDİS(Sayfa1!$A:$A;TABANAYUVARLA((SATIR(A1)-0,1)/Sayfa1!$B$1;1)*Sayfa1!$B$1+((SÜTUN(A1)-1)*Sayfa1!$B$1)+SATIR(A1))

A ve C sütunlarında göstermek için formül

=EĞER(SÜTUN(A1)=2;"";İNDİS(Sayfa1!$A:$A;TABANAYUVARLA((SATIR(A1)-0,1)/Sayfa1!$B$1;1)*Sayfa1!$B$1+(((SÜTUN(A1)+1)/2-1)*Sayfa1!$B$1)+SATIR(A1)))

 

[quantum32]

selam,
dosya çok güzel olmuş tam istediğim gibi ellerinize sağlık. çok fazla olduğunu düşünmezseniz birşey daha sorsam makrolar hakkında çok bilgim yok ama bunu bir makro haline getirip bir döngü halinde yapabilirmiyiz? bir sabit alanımız olsa oraya istediğimiz satır sayısını yazıp bir butona bastığımızda otomatik olarak dağıtsa? bu döngüler hakkında bilgim yok bu konuda bilgiye sahipseniz bunu yapabilirmiyiz bende döngü işini öğrenmiş olurum.
yinede elinize sağlık çok teşekkürler...

 

[leumruk]

Selamlar,
Ekli örneği inceleyiniz.

 

[janveljan]

Makrolu çözümün kodları bunlar, dosya ekte.

Sub sutunlara_bol()
Cells.ClearContents
stp = Sheets("Sayfa1").Cells(1, 2)
For i = 1 To Sheets("Sayfa1").[A65536].End(xlUp).Row
        sut = ((i - 1) \ stp) Mod 2 + 1
        sat = (i - ((i - 1) \ stp) * stp) + (((i - 1) \ (stp * 2)) * stp)
        Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
Next
End Sub

 

[janveljan]

Araya sütun eklemek için;
1.Alternatif

Sub sutunlara_bol()
Cells.ClearContents
stp = Sheets("Sayfa1").Cells(1, 2)
For i = 1 To Sheets("Sayfa1").[A65536].End(xlUp).Row
        sut = ((i - 1) \ stp) Mod 2 + 1
        sat = (i - ((i - 1) \ stp) * stp) + (((i - 1) \ (stp * 2)) * stp)
        Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
Next
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
End Sub
'Columns("B:C").Select derseniz araya 2 sütun ekler
'Columns("B:D").Select derseniz araya 3 sütun ekler...

2.Alternatif

Sub sutunlara_bol2()
Cells.ClearContents
stp = Sheets("Sayfa1").Cells(1, 2)
For i = 1 To Sheets("Sayfa1").[A65536].End(xlUp).Row
        sut = 3 * (((i - 1) \ stp) Mod 2 + 1) - 2
        sat = (i - ((i - 1) \ stp) * stp) + (((i - 1) \ (stp * 2)) * stp)
        Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
Next
End Sub
'sut değerini 2 ile çarpıp 1 çıkarmak araya 1 sütun boşluk bırakır
'sut değerini 3 ile çarpıp 2 çıkarmak araya 2 sütun boşluk bırakır...

 

[janveljan]

Belirtilen kadar satır, satır ve sütun genişlikleri ayarlandıktan sonra her ekranda yanyana iki sayfa görünecek şekilde ayarlandı. İnceleyin
Not:Aradaki satır genişliğini Selection.ColumnWidth = 10 değerini değiştirerek ayarlayabilirsiniz.

Sub sutunlara_bol()
Cells.ClearContents
stp = Sheets("Sayfa1").Cells(1, 2)
For i = 1 To Sheets("Sayfa1").[A65536].End(xlUp).Row
        sut = ((i - 1) \ stp) Mod 2 + 1
        sat = (i - ((i - 1) \ stp) * stp) + (((i - 1) \ (stp * 2)) * stp)
        Cells(sat, sut) = Sheets("Sayfa1").Cells(i, 1)
Next
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
'......Biçimlendirme.......
Cells.Select
Cells.EntireRow.AutoFit
Columns("A:C").Select
Columns("A:C").EntireColumn.AutoFit
Columns("B:B").Select
Selection.ColumnWidth = 10
Range("A1:C" & stp).Select
ActiveWindow.Zoom = True
Cells(1, 1).Select
End Sub

 

[janveljan]

Bu versiyonda da ayarlanan satırları yazıcıya sayfa sayfa gönderecek şekilde düzenleme yapıldı.

 

[nukhet1616]

hocam bana da sadece ayşe yazan satırları ikinci sayfaya sırasına göre aktarabileceğim formülü yazarmısın. çok basit biliyorum ama, ben hiç anlamam formülden falan