• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ters yapıştır

Katılım
10 Temmuz 2012
Mesajlar
44
Excel Vers. ve Dili
Office 365 - English
Merhabalar,

Ekli dosyadaki çalışma sayfasında bulunan verileri,çalışma sheetine nasıl dönüştürebiliriz.Desteğinizi rica ederim.
 

Ekli dosyalar

Merhaba.
Aşağıdaki formülü B2 hücresine uygulayıp aşağı doğru 2441'inci
(244 sütun var, o nedenle 2440*10 + başlık satırı=2441) satıra kadar (bu satır dahil)
kopyalayınız.
Kod:
=İNDİS(ÖRNEK!$A$2:$IJ$11;EĞER(MOD(SATIR()-1;10)=0;10;MOD(SATIR()-1;10));TAMSAYI((SATIR()-2)/10)+1)
 
Kod:
Sub TEST()
    
    Set so = Sheets("Örnek")
    Set sc = Sheets("ÇALIŞMA")

    sonSat = sc.[a65536].End(3).Row
    
    sat = 15
    For i = 1 To sonSat Step 10
        sut = sut + 1
        If sut > 256 Then sut = 1: sat = sat + 11
        so.Cells(sat - 1, sut) = sut
        sc.Cells(i, 2).Resize(10).Copy so.Cells(sat, sut)
    Next i
    
End Sub
 
Kod:
Sub TEST()
    
    Set so = Sheets("Örnek")
    Set sc = Sheets("ÇALIŞMA")

    sonSat = sc.[a65536].End(3).Row
    
    sat = 15
    For i = 1 To sonSat Step 10
        sut = sut + 1
        If sut > 256 Then sut = 1: sat = sat + 11
        so.Cells(sat - 1, sut) = sut
        sc.Cells(i, 2).Resize(10).Copy so.Cells(sat, sut)
    Next i
    
End Sub



Teşekkürler çok işime yaradı.
 
Geri
Üst