- Katılım
- 31 Ağustos 2010
- Mesajlar
- 387
- Excel Vers. ve Dili
- Excel 2007-2010 Eng
Open Office Trk
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Tarih_Ayir()
Dim i As Long
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, "B").End(3).Row
Cells(i, "H") = Left(Cells(i, "B"), 11)
Cells(i, "I") = Right(Cells(i, "B"), 8)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır"
End Sub
=METNEÇEVİR(B2+0;"gg-aaa-yyyy")+0
=MOD(B2;1)