veri okuyup yazdırma

[bobcan]

selamlar dosyada kı n kolonundakı her 36 luk bloku s kolonundan baslıyarak otomatık yazdırmak ıstıyorum ama basaramadım yardımlarınızı beklıyorum

Ekli dosyayı görüntüle ornek.xls

 

[öğrtm]

sadece n kolonunda ki eşleşen veriler mi s ye aktarılacak yoksa eşleşen verinin bulunduğu tüm satır mı?

 

[bobcan]

n kolonundakı ılk 36 sı s kolonuna 36 dan 72 e kdr olanlar t kolonunua devam edıcek swekılde hepsını yazıdrmam gerekıyo

 

[bobcan]

bunu yapan olmadı acaba vısual da bellı bı sayı kumesını baska bı stuna yasdırmak hangı komutla oluyo acaba buna yardım edıcek kımse varmıdır

 

[Orion1]

Dosyanız ektedir.
Not:excelde 2003 versiiyonında 256 sütun vardır.Oysa satır sayısı 65536 dır.Bu durumda satır fazla olursa hepsi atanmayacak ve kodlar hata verscektir.

Sub sutuna_aktar()
Dim sut As Integer
sut = 19
Range("S4:IV54").ClearContents
For i = 4 To Cells(65536, "N").End(xlUp).Row Step 50
    Range("N" & i & ":N" & i + 49).Copy
    Range(Cells(4, sut).Address).PasteSpecial Paste:=xlPasteValues
    sut = sut + 1
Next
MsgBox "İşlem tamadır"
End Sub

 

[bobcan]

cok sagol elıne saglık

 

[Orion1]

cok sagol elıne saglık

Rica ederim.
İyi çalışmalar.