Bir sütunda belli karakteri taşıyan hücreleri sağındaki sütuna taşımak

[farisakboga]

Sub sil()
son = [A65536].End(xlUp).Row
For x = son To 1 Step -1
If WorksheetFunction.CountIf(Cells(x, 1), "*=*") > 0 Then
Rows(x).Delete
End If
Next
End Sub

forumda bulduğum yukarıdaki kod belirlenen karakteri içeren sütundaki hücreleri siliyor.
ben silsin istemiyorum. hücre içeriğini hemen sağındaki sütuna taşısın. bunu nasıl yapabilirim?

bir de 65536 satır ile sınırlı. bunu mümkün olduğunca artırmak istiyorum. yardımlarınız için teşekkür ederim.

 

[PLİNT]

Merhaba
Rows(x).Delete
satırı yerine
Cells(x, 2) =Cells(x, 1)
şeklinde denermisiniz?

 

[Muzaffer Ali]

Merhaba.

son = [A65536].End(xlUp).Row

satırı yerine

son = range("A" & rows.count).End(xlUp).Row

yazarsanız sınırı kaldırmış olursunuz.

 

[farisakboga]

İkinize de çok teşekkür ederim. tam istediğim gibi oldu.