hücre içerisindeki yazıları ayırmak

[arshvy]

selamlar,

ekteki dosyadaki A hücresindeki filmlerin parantez içindeki tarihlerini B hücresine nasıl alabilirim. liste 2000 e kadar gittiği için tek tek yapmak çok zor. teşekkürler..

 

[Ömer]

Merhaba,

B2 Hücresine;

=SOLDAN(SAĞDAN(A2;5);4)

Formülünü yazıp denermisiniz..

 

[arshvy]

çok sağol arkadaşım oluyor bu işimi görüyor teşekkür ederim ama bir sorum daha olucak. tarihi aldıktan sonra A hücresinden silme şansımız varmı. gerçekten çok teşekkür ederim..

 

[arshvy]

çok sağol arkadaşım bu işimi görür teşekkür ederim ama birşey daha sorucam. tarihi sağa aldıktan sonra soldakini silme şansımız varmı. çok teşekkür ederim.

 

[Ali]

Bunun için makro gerekir.Aşağıdaki kodları bir modüle ekleyip çalıştırınız.

Sub tarihlerisil()
s = Range("A65536").End(xlUp).Row
For i = 2 To s
Cells(i, 1) = Trim(WorksheetFunction.Substitute(Cells(i, 1), Right(Cells(i, 1), 6), ""))
Next
End Sub

 

[Skorpiyon]

Sayın espiyonajl ve Ali Hocam'ın kodlarını birleştirerek 2 işlemi tek kodda şöyle halledebilirsiniz.

Sub Düğme1_Tıklat()
For a = 2 To WorksheetFunction.CountA(Worksheets("hakan123").Range("A1:A65536"))
Cells(a, 2).Value = Left(Right(Cells(a, 1), 5), 4)
Cells(a, 1) = Trim(WorksheetFunction.Substitute(Cells(a, 1), Right(Cells(a, 1), 6), ""))
Next a
End Sub