SAYILARI HÜCRELERE DAĞITMAK

[sellami2005]

500 civarında sicil numaram var. Bunları 65 satır ve 8 sütünlu bir sayfaya yerleştirmek istiyorum. her defasında bütün sicilleri bir sütuna topluyorum. oradan kes yapıştır yöntemiyle hazırladığım sayfaya yerleştiriyorum. bunun daha kısa bir yolu var mı?

 

[AS3434]

65 satır 8 sütun lu sayfada aktarcağınız verilerin " =başvuru hücre adresi " verin
siz sicil nosu ana sayfada yazınca otomatik oraya aktarsın.

 

[sellami2005]

benim aradığım basit bir şey. Hücreleri sıralama komutuyla nasıl ki bunlar büyüklüğüne göre sıralanıyor. ben acaba bu işlemi 65sıra 8 sütün seçilerek otomatik olarak sıralar mı diye sormuştum. Sayın AS3434, belki sizin öneriniz işimi görür. biraz acemi olduğum için anlayamadım bir ip ucu verirseniz sevinirim.

 

[AS3434]

Eki inceleyin belki işinize yarar.

 

[Seyit Tiken]

Ekteki örneği bir inceleyin. 1.sayfadaki 8 sütunlu verileri 2.sayfada tek bir sütun haline getirilmiştir. Bağ Yapıştırma yöntemiyle yapılmıştır.

 

[sellami2005]

Sayın Seyit Tiken, ilginiz için teşekkür ederim. Ben tam tersi olarak tek sütünlu veriyi benim ayarlayacağım, örneğin 65 satır ve 8 sütünlu bir sayfaya sıralanmasını istemiştim. bunun kes - yapıştır yolundan daha pratik olanı var mı? diye mesaj yazmayı düşünürken daha sonra inceleme imkanı bulduğum AS3434'ün eki imdadıma yetişti. Bu forum bir işimi daha kolaylaştırdı. Ne diyeyim; bu forumu kuranların ve foruma katkıda bulunanların da Allah işlerini kolaylaştırsın. Bu forumdakiler..... İYİKİ VARSINIZ

 

[Necdet]

Makrolu çözüm ister misiniz?

 

[sellami2005]

sayın Necdet_Yesertener, farklı bir yol için teşekkürler.Ama aktar butonuna basınca 2. sayfaya veriler aktarılmıyor. Ekte gönderdiğim resimdeki durumla karşılaşıyorum.sonuçta veri aktarımı olmuyor.

 

[Necdet]

Sayın sellami2005, bende çalışıyor, hata kodu için ustalara danışmak gerek

 

[nziya]

Sub Aktar()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Satir_Sayaci = s1.Cells(1, 3)
sat = 0
sut = 1
s2.[A1:IV65536].ClearContents 'BU ŞEKİL YAPIN

For i = 1 To s1.Cells(65536, 1).End(xlUp).Row

sat = sat + 1
If sat > Satir_Sayaci Then
sat = 1
sut = sut + 1
End If

s2.Cells(sat, sut) = s1.Cells(i, 1)

Next i
End Sub

 

[sellami2005]

Teşekkürler 'nziya',çok ğüzel çalıştı. sanki sihirli bir değnek değmiş gibi. işin yabancısı olduğum için bulamadım. satır sayısını nasıl değiştireceğiz.

 

[sellami2005]

dikkatsizliğimi bağışlayın.sayfanın tepesinde duruyor satır değiştirme.... Ben kodlarda arayınca...

 

[sellami2005]

Sub Aktar()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
Satir_Sayaci = s1.Cells(1, 3)
sat = 0
sut = 1
s2.[A1:IV65536].ClearContents 'BU ŞEKİL YAPIN

For i = 1 To s1.Cells(65536, 1).End(xlUp).Row

sat = sat + 1
If sat > Satir_Sayaci Then
sat = 1
sut = sut + 1
End If

s2.Cells(sat, sut) = s1.Cells(i, 1)

Next i
End Sub

Merhaba,
Bu ,sadece sicilleri sayfaya dağıtmakta kullandığım ( sayıları hücrelerine göre dağıtmak ) makroyu sadece sicilin yansına yanında 3 hane daha sütunla birlikte bir sayfaya dağıtmak istiyorum.Örneğin sicil, adı, soyadı ,yaşı v.b. yazacağım parametrelirin hepsi sayı olacak yalnız.Bu bilgileri alta doğru sırayla yazıp, makroyla bir sayfaya dağıtmak mümkün olur mu acaba.