Aynı Sütündaki Tarih ve Seri Nosunu Ayırma

[My Jörk]

Selam;
Sayın ustalarım, Otomasyon proğramından almış olduğumuz bir rapor var. Tarih ve Seri Nosu aynı sütünda çıkıyor. Fakat bana tarih ve Seri Nosunun ayrı ayrı sütünlarda çıkması lazım. hepsini tek tek girmek çok fazla zamanımı alacak. Bir el atarsanız çok sevineceğim.

Şimdiden anlayışınız için teşekkürler.

 

[İhsan Tank]

Selam;
Sayın ustalarım, Otomasyon proğramından almış olduğumuz bir rapor var. Tarih ve Seri Nosu aynı sütünda çıkıyor. Fakat bana tarih ve Seri Nosunun ayrı ayrı sütünlarda çıkması lazım. hepsini tek tek girmek çok fazla zamanımı alacak. Bir el atarsanız çok sevineceğim.

Şimdiden anlayışınız için teşekkürler.

merhaba
Not : Birleştirilmiş hücre kullanmayınız
formül ile isterseniz A5 hücresine

=PARÇAAL(C5;1;BUL("-";C5)-1)*1

bu formülü
B5 hücresine

=PARÇAAL(C5;BUL("-";C5)+1;UZUNLUK(C5))

bu formülü yazınız.
yok ben makro ile istiyorum derseniz
boş bir module kopyalayarak deneyiniz

Option Explicit
Sub ayır()
Dim ts, kaplan
On Error Resume Next
For ts = 5 To Cells(65536, "C").End(xlUp).Row
If Cells(ts, "C") <> "" Then
Cells(ts, "A") = Mid(Cells(ts, "C"), 1, InStr(1, _
Cells(ts, "C"), "-") - 1)
Cells(ts, "B") = Mid(Cells(ts, "C"), InStr(1, _
Cells(ts, "C"), "-") + 1, Len(Cells(ts, "C")))
End If
Next
End Sub

 

[My Jörk]

Çok teşekkürler İhsan Hocam Allah sizden razı olsun.

 

[İhsan Tank]

Çok teşekkürler İhsan Hocam Allah sizden razı olsun.

rica ederim
Allah Hepimizden Razı Olsun
:yazici: