- Katılım
- 30 Haziran 2005
- Mesajlar
- 157
Merhaba,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
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.
Son düzenleme: