Aynı hücredeki tarihler

[sabriktr]

aynı hücrede belli aralık verilerek yazılmış olan iki tarihi başka bir sayfaya aktarırken birbirinden ayırarak her birini farklı hücreye tarih formatında yazmasını nasıl sağlarız

 

[Ali]

B1 hücresine

=PARÇAAL(A1;1;10)

C1 hücresine

=KIRP(YERİNEKOY(A1;B1;""))

yazıp deneyiniz.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub tarih()
Dim i As Long, tar1, tar2 As Date, deg As String, sat As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:B65536").ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
    deg = Cells(i, "A").Value
    tar1 = Left(deg, 10)
    tar2 = Right(deg, 10)
    Sheets("Sayfa2").Cells(sat, "A").Value = tar1
    Sheets("Sayfa2").Cells(sat, "B").Value = tar2
    sat = sat + 1
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[Necdet]

Alternatif,

B1

=LEFT(A1;10)+0
=SOLDAN(A1;10)+0

C1

=RIGHT(A1;10)+0
=SAĞDAN(A1;10)+0

B1 ve C1 Hücrelerini Tarih olarak Biçimlendiriniz.

 

[sabriktr]

yardımınız için teşekkür ederim iyi çalışmalar dilerim