Satırlarda Sütün oluşturma hak.

[mydestek]

Excel bu tabloyu yan taraftaki gibi nasıl yaparım

Kod + Parametre şeklinde satırlara çevirmek istiyorum.
Teşekkür.

KOD PARAMETRE
100 5 6 8
200 5 6
200 400 100 8
200 500 100


Boş hücreleri atlayacak
Bu hale getirmek istiyorum
100 5
100 6
100 8
200 5
200 6
200 400

 

[hamitcan]

Sub Aktar()
    Columns("f:g").Clear
    c = 2
    d = 2
    
    For i = 3 To 6
        For j = 2 To 4
            If Cells(i, j) = "" Then GoTo 10
            c = c + 1
            d = d + 1
            Cells(c, "f") = Cells(i, 1)
            Cells(d, "g") = Cells(i, j)
10
        Next
    Next
End Sub

 

[mydestek]

SLM

Öncelikle teşekkür.

Peki sayfa2 nasıl yazdırırım.

 

[hamitcan]

Satırı aşağıdaki şekilde değiştirerek kullanabilirsiniz.

Cells(c, "f")

[B]Sayfa2.[/B]Cells(c, "f")

 

[mydestek]

Tekrar merhaba

Sizin makroyu ayrı sayfaya yazma işini çalıştıramadım.

Ek dosyayıda güncelledim. Tekrar inceleme şansınız var mı?

 

[mydestek]

If Cells(i, j) = "" Then GoTo 10

bu satırda ki 10 tam anlayamadım. Yana doğru 10 kolon mu kontrol et anlamında ?

 

[YUSUF44]

If Cells(i, j) = "" Then GoTo 10

bu satırda ki 10 tam anlayamadım. Yana doğru 10 kolon mu kontrol et anlamında ?

Bu satır eğer i. satır j. kolon yani o anki ji hücresi boşsa kodun 10 olan satırına git demektir. Kodun bir yerlerinde 10: şeklinde bir satır vardır, makro o satıra gider ve o satırdan sonrakileri yapar.

Ekleme: Yukardaki kodları yeni gördüm. Orda gördüğünüz gibi alttan 4. satır 10 olarak belirlenmiş. Kod eğer hücre boşsa doğrudan 10'a atla yani next'e geç (j'yi 1 arttır) diyor.