gereksiz verileri silme hücre sadeleştirme

[gezgin-49]

Sayın üstadlarım ekte sunduğum dosyada Açık yeşil olan hücrelerdeki rakamların dışındaki tüm tarih ve yazıların silinmesini ve mavi renkte olduğu şekilde aynı hücre içine yazılmasını istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[Ziynettin]

Merhaba,
.....

Sub gezgin()
 Dim i, j As Integer
 On Error Resume Next
 For j = 2 To 9
    For i = 2 To Range("B" & Rows.Count).End(3).Row
       Cells(i, j) = Split(Cells(i, j), " ", -1)
       Cells(i, j) = Cells(i, j) * 1
    Next i
    Next j
End Sub

 

[turist]

Dosyanız eklidir.

Data / Text to Columns (Veri/Metni Sütunlara Dönüştür) ile yapılmıştır.

 

[gezgin-49]

Allah razı olsun sayın üstadlarım tam istediğim gibi olmuş, her ikinizede teşekkür ederim