Bir sütundaki verilerin ilk 10 karakterden sonrasını silme

[fütüvvet]

Bir sütundaki verilerin ilk 10 karakterden sonrasını silme ile ilgili makro yazmam gerekiyor. yardımcı olabilirmisiniz.

Kısaca takıldığım yeri yazmak istiyorum :
"25/07/2013 - 16:34:26" bu bilgi hücrelerde kayıtlı. tarih formatı olduğu halde metin gibi hücrede duruyor.
Kısaca isteğim şu:

25/07/2013 tarihinin sağında kalan hücre değerlerini silmem lazım. bu işlem bir kaç yüz satırda yapılacak.

Yani:
Hücrenin içine gir sağa doğru 10 hane atla ve diğerlerini sil komutunu makro olarak yazmam gerek.
yardımcı olabilirmisiniz

 

[muygun]

Merhaba;
Moderatör arkadaşlardan birine mesaj ile ulaşırsanız mükerrer ve başlığı uymayan konunun silinmesini sağlarsınız.
Eki deneyin.
İyi çalışmalar.

 

[yerbakili]

Bir butona,

For i = 1 To Range("A65536").End(3).Row
Cells(i, 1).Value = Left(Cells(i, 1).Value, Len(Cells(i, 1).Value) - 10)
Next

kodlarını ekleyerek de @muygun'un aldığı sonucu alabilirsiniz. Kolay gelsin.

 

[fütüvvet]

Teşekkür ederim
ikiside tam istediğim sonuc aulaştırdı