Tarih Saat Ayırma

Katılım
27 Temmuz 2013
Mesajlar
46
Excel Vers. ve Dili
2007 ıngılızce
Merhaba Arkadaşlar ,

Bendeki dosyada M sutununda tarih saat birleşik bir format var bunu tek basına halledebılıyorum ama benım yapmak istediğimi olusturamadım .M sutunu değilde bu C sutununda olsa baska bır dosyada bu ayırımı yapabılırmıyız.Yani 1 kaç dosyam var ve bu dosyalarda hep farklı sutunlarda saat tarıh bırleşik istediğim sutunda bu değişikliği yapabileceğim bir kod var mı ?
 
Katılım
13 Kasım 2018
Mesajlar
27
Excel Vers. ve Dili
MS Excel 365
Eğer sorununuzu yanlış anlamadıysam Soldan işlevi işinizi görecektir. Örnek veriyorum 15.11.2018 11:21 için =SOLDAN(HÜCRE;10)

Aynısı saat ayırmak için de Sağdan işleviyle 15.11.2018 11:21 için =SAĞDAN(HÜCRE;5)
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Merhaba, cep telefonundan yazıyorum.
A1 hücresindeki değer için;
=TAMSAYI(A1) formülü (hücreyi TARİH olarak biçimlendirin) TARİH kısmını,
=MOD(A1;1) formülü (hücreyi SAAT olarak biçimlendirin) SAAT kısmını verir.
.
 
Katılım
27 Temmuz 2013
Mesajlar
46
Excel Vers. ve Dili
2007 ıngılızce
Asagıdaki döngüyü yazdıgımda B sutununda yapıyor işlemi ama aynı dosya içinde F, I, j sutunlarındada aynı format var benım dusundugum F sutununu secım macrıyo calıstırım tarıhı ayırsın sectıgım sutun için bu işlemı yapsın boyle bır sansım var mı ?

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"
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Alternatif.:cool:
Kod:
For i = 2 To Cells(Rows.Count, "B").End(3).Row
Cells(i, "H") = VBA.DateSerial(Year(Cells(i, "B").Value), Month(Cells(i, "B").Value), Day(Cells(i, "B").Value))
Cells(i, "I") = VBA.TimeSerial(Hour(Cells(i, "B").Value), Minute(Cells(i, "B").Value), Second(Cells(i, "B").Value))
Next i
 
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
Sütunu seçin, Veri/Metni Sütunlara Dönüştür de, Sınırlandırılmış ı seçin, ayraç için "boşluk" kullanın.
 
Üst