Parçala makrosuna parçalanan verileri temizle butonu ilavesi

[ahzola]

Merhabalar;

aşağıdaki makromuz A sütununa girilen
verileri parçalara ayırarak diğer sütunlara tekrardan yazıyor.

* Makronun parçaladığı verileri bir buton yardımı ile temizlemesini istiyorum.
(Blok verilerde dahil A sütunu)

* Birde mümkünse makronun B sütununda çalışması işimi çok daha
kolaylaştıracaktar olursa ne ala.

bilgilerini esirgemeyecek arkadaşlara şimdiden teşekkür ederim.

Sub parçala()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
For x = 1 To Len(Cells(i, 1).Value)
If Mid(Cells(i, 1).Value, x, 1) = " " Then
Cells(i, x + 2).Value = ""
Else
Cells(i, x + 2).Value = Mid(Cells(i, 1).Value, x, 1)
End If
Next x
Next i
End Sub

 

[ahmet kabadayı]

Aşağıdaki gibi denemenizi rica ederim.

İyi günler.

Sub parçala()
For i = 1 To Cells(Rows.Count, 2).End(3).Row
For x = 1 To Len(Cells(i, 2).Value)
If Mid(Cells(i, 2).Value, x, 1) = " " Then
Cells(i, x + 2).Value = ""
Else
Cells(i, x + 2).Value = Mid(Cells(i, 2).Value, x, 1)
End If
Next x
Cells(i, 2).Value = ""
Next i
End Sub

 

[ahzola]

Teşekkür ederim
Ahmet Bey

sizede iyi günler

 

[ahmet kabadayı]

Rica ederim.

 

[savasaysu]

Merhaba Ben Bu işlemin 50 karakterden sonra olan kısmının be sutununa yazdırılmasını istiyorum nasıl yapabilirm