hücre içinden bazı verileri alma

[ilbars]

arkadaslar aranızda yeniyim bir sorum olacak benim elindeki bi r excel dosyasında hücrede de şu bilgi yeralıyor 2011-6956 (02 may 20011 15:10) fakat ben bu bilginin sadece parentez içindeki kısmını başka bir hücreye atmak istiyorum bunu yaklaşık 10 bin hücrede yapmak zorundayım hepsi faklı tarihte bunu nasıl bir fornülle yapabilirim saygılar

 

[serqet]

metinleri sütunlara dönüştür deyip parantez işaretinden ayırın.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim sat As Integer
    For sat = 1 To Cells(Rows.Count, "a").End(xlUp).Row
        Cells(sat, "b") = "(" & Split(Cells(sat, "a"), "(")(1)
    Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[ilbars]

tesekkürler