isme göre sicil no ??

[gokdag]

dosya ektedir.

 

[BG]

Merhaba

dosyanız ektedir.

 

[gokdag]

Teşekkürler

 

[Necdet]

Merhaba,

Makrolu çözüm isterseniz.

Sub Yaz()
Dim i, j As Long
j = 0
Range("A2:A65536").ClearContents
Application.ScreenUpdating = False
For i = 2 To [D65536].End(3).Row
    j = j + 2
    Cells(j, "A") = Cells(i, "D")
    Cells(j + 1, "A") = Cells(i, "E")
Next i
Application.ScreenUpdating = True
MsgBox "İşimi Bitirdim...."
End Sub

 

[gokdag]

Teşekkürler