Satırdaki bilgileri kolonlara kopyalama

[yaslan]

Merhaba Arkadaşlar,

Ekteki dosyada bulunan listede araç bilgilerini kolonlara kopyalamam ve sonrada satırları silmem gerekiyor. Bu sorunun makro ile yapılabilmesi mümkünmü ?
Şimdiden yardımlarınız için teşekkür ederim

 

[Recep İpek]

Aşağıdaki kodu deneyiniz.

Sub Aktar()
On Error Resume Next
Application.ScreenUpdating = False
son = WorksheetFunction.CountA([f1:f500])
[f1].Select
For i = 1 To son
If ActiveCell.Offset(0, -1).Value = "" Then
veri = ActiveCell.Value
a = ActiveCell.Address
Range(b).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
ActiveCell.Value = veri
Range(a).Select
Else
b = ActiveCell.Address
End If
ActiveCell.Offset(1, 0).Select
Next i
[f1].Select
'********************************************
For k = son To 1 Step -1
If Cells(k, "a").Value = "" Then
Cells(k, "a").EntireRow.Delete Shift:=xlUp
End If
Next k
Application.ScreenUpdating = True
End Sub

 

[yaslan]

Sayın ripek,

Yardımlarınız için çok teşekkür ederim, işimi büyük ölçüde kolaylaştırdı.

Başarılarınızın devamını dilerim.