aynı sayfa üzerinde gruplara ayırmak

[ahm11]

ekteki örneği cevaplarsanız çok sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:bb2afe57cd]Sub listele()
[h:iv].ClearContents
[a1:b65536].Sort Key1:=[a1]
For a = 1 To [a65536].End(xlUp).Row
c = c + 1
Cells(c, 8 + d) = Cells(a, 1).Value
Cells(c, 9 + d) = Cells(a, 2).Value
If Cells(a, 1) <> Cells(a + 1, 1) Then
c = 0
d = d + 2
End If
Next
End Sub[/vb:1:bb2afe57cd]

 

[ahm11]

sayın leventm,
çok teşekkür ederim.