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
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.