Aynı Hücredeki Doğum Yeri ve Tarih Bilgisini Ayırmak

[vurkan]

Arkadaşlar merhaba Bir çalışmamda kullanmak üzere I3 hücresinden başlayıp aşağı doğru devam eden yaklaşık 1500 tane;

PENDİK 27/11/2013
PENDİK 02/08/2013
TUZLA 14/08/2013
EDREMİT BALIKESİR 17/08/2013
TUZLA 14.01.2013
PENDİK 08/04/2013
PENDİK 31.10.2011
PENDİK 05/03/2012
PENDİK 07/11/2012
KARTAL 21.02.2011
formatında (tarihlerin bazıları noktalı) verilerim var. Bunları başka bir excel sayfasından aktarırken ayırıyordum. Ama kod şimdi çalışmıyor.
Makro kaydetme yöntemiyle kod oluşturmak istedim yapamadım. Sizden yardım istediğim konu Doğum yeri bilgilerinin I sütununda kalması, tarih bilgilerini J sütununa aktaracak bir kod oluşturmamız. Şimdiden teşekkürler.

 

[ASLAN7410]

Merhaba, aşağıdaki kodu bir modele yapıştırıp çalıştırın.

Sub Düzenle()

    Range("J3:L" & Rows.Count).ClearContents

    With Range("J3:J" & Cells(Rows.Count, "I").End(3).Row)
        .Formula = "=LEFT(RC[-1],FIND(RC[1],RC[-1])-1)"
    End With

    With Range("K3:K" & Cells(Rows.Count, "I").End(3).Row)
        .Formula = "=RIGHT(RC[-2],10)"
    End With

    With Range("L3:L" & Cells(Rows.Count, "I").End(3).Row)
        .Formula = "=DATE(YEAR(RIGHT(RC[-3],10)),MONTH(RIGHT(RC[-3],10)),DAY(RIGHT(RC[-3],10)))"
        .Value = .Value
    End With

    Range("J3:J" & Rows.Count).Copy
    Range("I3").PasteSpecial Paste:=xlPasteValues
   
    Range("L3:L" & Rows.Count).Copy
    Range("J3").PasteSpecial Paste:=xlPasteValues
   
    Range("K3:L" & Rows.Count).ClearContents
    Columns("J:J").NumberFormat = "m/d/yyyy"
   
    Range("I3").Select

End Sub

 

[vurkan]

Sayın ASLAN7410 ilgine teşekkür ediyorum. Kod çalıştı fakat Yardımcı sütun olarak kullandığınız K ve L sütunlarında veri var. Kod çalışınca bu veriler gidiyor. Kullandığım dosyada T sütununa kadar veri var. Yardımcı sütun olarak U ve V sütunlarını kullanabilir miyiz acaba?
Veya daha önceden aktarırken çalışan kodu onarabilir miyiz acaba?Teşekkürler.

 

[ASLAN7410]

Merhaba.

Sub Düzenle()

    Range("AA3:AC" & Rows.Count).ClearContents
    Range("J3:J" & Rows.Count).ClearContents

    With Range("AA3:AA" & Cells(Rows.Count, "I").End(3).Row)
        .Formula = "=LEFT(RC[-18],FIND(RC[1],RC[-18])-1)"
    End With

    With Range("AB3:AB" & Cells(Rows.Count, "I").End(3).Row)
        .Formula = "=RIGHT(RC[-19],10)"
    End With

    With Range("AC3:AC" & Cells(Rows.Count, "I").End(3).Row)
        .Formula = "=DATE(YEAR(RIGHT(RC[-20],10)),MONTH(RIGHT(RC[-20],10)),DAY(RIGHT(RC[-20],10)))"
        .Value = .Value
    End With

    Range("AA3:AA" & Rows.Count).Copy
    Range("I3").PasteSpecial Paste:=xlPasteValues
 
    Range("AC3:AC" & Rows.Count).Copy
    Range("J3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
    Range("AA3:AC" & Rows.Count).ClearContents
    Columns("J:J").NumberFormat = "mm/dd/yyyy"
   
    Range("I3").Select

End Sub

 

[vurkan]

Üstadım. Verdiğiniz kodu sayfada çalıştırdım.güzel çalıştı. Sayfa adı verip (VERİ isimli sayfa) modüle koydum Ama I sütununu boşalttı. (doğum yeri) Sebebini çözemedim.
eklediğim satırlar:
Sheets("VERİ").Select

Sheets("YAZICI").Select. Saygılar.

 

[ASLAN7410]

Kod içerisinde sayfa ismi yok zaten, hangi sayfada bu kodu çalıştırırsanız o sütunda işlem yapar. I sütunundaki veriler, I sütununda kalsın, J sütununa da tarihler aktarılsın demişsiniz, kod da bu işlemi yapıyor.

 

[vurkan]

Üstadım kodda sıkıntı yok bir düğmeye atayınca çalışıyor sıkıntı bende. Kodu Call komutuyla başka bir kodun ardından otomatik çalıştırmak istedim. Bunun için modüle koydum. Modülden çalıştıracağı sayfayı belirlemek içinse; VERİ isimli sayfada işlem yaptırmak için ;

Sub Düzenle()

Sheets("VERİ").Select (bu satırı ekledim)

Range("AA3:AC" & Rows.Count).ClearContents
Range("J3:J" & Rows.Count).ClearContents

With Range("AA3:AA" & Cells(Rows.Count, "I").End(3).Row)
.Formula = "=LEFT(RC[-18],FIND(RC[1],RC[-18])-1)"
End With

With Range("AB3:AB" & Cells(Rows.Count, "I").End(3).Row)
.Formula = "=RIGHT(RC[-19],10)"
End With

With Range("AC3:AC" & Cells(Rows.Count, "I").End(3).Row)
.Formula = "=DATE(YEAR(RIGHT(RC[-20],10)),MONTH(RIGHT(RC[-20],10)),DAY(RIGHT(RC[-20],10)))"
.Value = .Value
End With

Range("AA3:AA" & Rows.Count).Copy
Range("I3").PasteSpecial Paste:=xlPasteValues

Range("AC3:AC" & Rows.Count).Copy
Range("J3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AA3:AC" & Rows.Count).ClearContents
Columns("J:J").NumberFormat = "mm/dd/yyyy"

Range("I3").Select

Sheets("YAZICI").Select (işlem bitince yazıcı sayfasına dönmesi için bu satırı ekledim)

End Sub

J sütunu tamam ama I sütunundaki verileri sildi. saygılar

 

[asimavi50]

Harfleri (Kelimeleri) ayırmak için C1'E Kopyalayıp alta çekiniz

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

Tarihleri ayırmak için B1'E Kopyalayıp alta çekiniz

=PARÇAAL(YERİNEKOY(A1;" ";"?";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";"")));BUL("?";YERİNEKOY(A1;" ";"?";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))+1;UZUNLUK(YERİNEKOY(A1;" ";"?";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";""))))-BUL("?";YERİNEKOY(A1;" ";"?";UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;" ";"")));1))

 

[ASLAN7410]

Merhaba, istediğiniz böyle bi şey mi?

Hazırlanmış örnek dosya linki.

https://dosya.co/v9iywpggm1zj/Örnek_1.xlsm.html
.

 

[Seyit Tiken]

Veri > Metni Sütunlara Dönüştür'ü deneyiniz. ... Diğer kutucuğuna bir boşluk(Space) bırakın.

 

[vurkan]

Sayın Asimavi50 ve Sayın Seyit Tiken ilginize teşekkür ediyorum. Sayın Aslan7410 Verdiğiniz örnekteki kodu dosyama uyarladım ve çalıştı İlgi ve emeğine teşekkür ediyorum. Ayrıca şehirdışında olduğumdan geç cevap verebildiğim için de sizlerden özür diliyorum. Sağlıcakla kalın.