Satırdaki belli veriyi alan macro kod

[u.L.a.s]

Merhabalar

Formül olarak aşağıdaki örneğin ben macro halini istiyorum

Aşağıdaki formülde D2 hücresinde bulunan verinin sağdan 5 hanesini silip formülü yazdığım satıra geri kalan veriyi yazıyor.

=RIGHT(D2;LEN(D2)-5)

Ben bunu macro kod ile ama yine D hücresinde bulunduğu satırın içerisine yazsın istiyorum. Tabi bu şekilde alt alta tüm satırlarda bu işlemi yapsın istiyorum

Örneğin alt alta veriler şu şekilde aşağıya sıralanıyor.
D2 hücresinde Ping 10.10.10.10
D3 hücresinde Ping 10.10.10.11
D4 hücresinde Ping 10.10.10.12
.
.
.
..


Ben bu veriler bir butona atadığım makro ile aşağıdaki gibi hale gelsin istiyorum. yani başındaki Ping verisi silinmiş oluyor
D2 hücresinde 10.10.10.10
D3 hücresinde 10.10.10.11
D4 hücresinde 10.10.10.12


Bilgi ve yardımlarınızı rica ederim

 

[Saban Sertkaya]

Bir butona atayarak deneyiniz ...

Sub Düğme1_Tıklat()
For a = 2 To [D1048576].End(3).Row
Cells(a, 4) = Mid(Cells(a, 4), 6, Len(Cells(a, 4)))
Next a
End Sub

 

[u.L.a.s]

Çok teşekkür ederim üstadım ellerine sağlık bilgine sağlık

 

[Saban Sertkaya]

Rica ederim, kolay gelsin.