text to column hakkında yardım

[mushakan]

Merhaba Ustadlar ,

Ben de baya yüklü bir dosya var tarih ve saatin arasında boşluk var ama aynı sutunda ben ornek veriyorum c sutunun yanına bır bos sutun acıp c degerlerin bosluktan sonra ayıracak. ben bunu tüm tabloda o sutunu secınce yapsın ıstıyorum ama başarılı olamadım yarıdmınız rica ediyorum .Saati hemen yanında bir sutun acıp oraya alsın ıstıyorum.


03.07.2019 13:41:29

 

[YUSUF44]

Tarih saat verisi excelde tarih ve saat olarak ayrı ayrı tutulmaz, ondalıklı sayı olarak tutulur. Örneğin belirttiğiniz 03.07.2019 13:41:29'un karşılığı excel için 43649,570474537'dir.

C sütununda veriniz varsa (örneğin C5) tarih kısmını D sütununa aşağıdaki formülle alabilirsiniz:

=AŞAĞIYUVARLA(C5;0)

Saat verisini de E sütununa aşağıdaki formülle alabilirsiniz:

=MOD(C5;1)

 

[çıtır]

Verilerinizin Sayfa1 C Sütunununda olduğu varsayılmışdır.

Sub saatayır()
Dim s1 As Worksheet: Dim i As Integer: Dim son As Integer
Set s1 = Sheets("Sayfa1")
son = s1.Cells(65355, "C").End(3).Row
s1.Range("D2:E" & Rows.Count).Cells.ClearContents
For i = 2 To son
On Error Resume Next
If s1.Cells(i, 3) <> "" Then
With s1.Cells(i, 3)
s1.Cells(i, 4) = DateValue(.Value)
s1.Cells(i, 5) = Format(TimeValue(.Value), "hh:mm:ss")
End With
End If
Next i
MsgBox "İşlem Tamam", vbInformation, "Bilgi"
End Sub