Excelldeki verileri şekillendirmek (ACİL)

[ranemus]

Elimdeki excell dosyasındaki verileri bir makro yardımı ile nasıl şekillendirebilirim.
Örnek dosya ektedir.

Yardımlarınız için şimdiden teşekkürler.

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub deneme()
c = 1
son = [a65536].End(3).Row
For i = 2 To son Step 2
With Sheet3
c = c + 1
.Cells(c, 1) = Cells(i, 1)
.Cells(c, 2) = Cells(i, 2)
.Cells(c, 3) = Cells(i + 1, 2)
.Cells(c, 4) = Cells(i, 3)
End With
Next
End Sub

 

[ranemus]

Teşekkür

Aşağıdaki şekilde deneyin.

Sub deneme()
c = 1
son = [a65536].End(3).Row
For i = 2 To son Step 2
With Sheet3
c = c + 1
.Cells(c, 1) = Cells(i, 1)
.Cells(c, 2) = Cells(i, 2)
.Cells(c, 3) = Cells(i + 1, 2)
.Cells(c, 4) = Cells(i, 3)
End With
Next
End Sub

Üstad çok sağolasın vallah kurtardın bizi .:hihoho: