Aynı hücredeki tarihler

Katılım
8 Mayıs 2006
Mesajlar
17
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

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,899
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
B1 hücresine

=PARÇAAL(A1;1;10)

C1 hücresine

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

yazıp deneyiniz.
 

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
Ekli dosyayı inceleyiniz.:cool:
Kod:
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
 
Son düzenleme:

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Alternatif,

B1

Kod:
=LEFT(A1;10)+0
=SOLDAN(A1;10)+0
C1
Kod:
=RIGHT(A1;10)+0
=SAĞDAN(A1;10)+0
B1 ve C1 Hücrelerini Tarih olarak Biçimlendiriniz.
 
Katılım
8 Mayıs 2006
Mesajlar
17
yardımınız için teşekkür ederim iyi çalışmalar dilerim
 
Üst