Rakamla kelimeyi ayırma makrolu

[qhacks]

S.a. Arkadaşlar,

A sutünundaki rakam ile kelime karışık bir vaziyette. Ben bunları makro ile ayırmak istiyorum. Lütfen formül olmasın. Çünkü o değerler başka yere de aktarmam lasım. Örnek vermem gerekirse;
A B C
25.01.2006VELİAHMET 25.01.2006 VELİ AHMET

Umarım anlatabilmişimdir. Şimdiden teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Örneğinize göre tarih ile isim ayrılabilir ama isim ile soyisim ayrımı yapılamaz.

 

[qhacks]

ben bundan 6 ay önce gibi sitenizde bulmuştum.

ilk 6 haneyi siliyosunuz ondan sonrakiler diğer sütüna geçiyo
4567989ali mehmet 7 hane rakam siliniyo ali mehmet karşıya geçiyo

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub HARF_RAKAM_AYIR()
    For X = 1 To [A65536].End(3).Row
    For Y = 1 To Len(Cells(X, 1))
    If IsNumeric(Mid(Cells(X, 1), Y, 1)) Or Mid(Cells(X, 1), Y, 1) = "." Then
    RAKAM = RAKAM & Mid(Cells(X, 1), Y, 1)
    ElseIf Not IsNumeric(Mid(Cells(X, 1), Y, 1)) Then
    HARF = HARF & Mid(Cells(X, 1), Y, 1)
    End If
    Next
    Cells(X, 2) = RAKAM
    Cells(X, 3) = HARF
    RAKAM = ""
    HARF = ""
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[qhacks]

ÖncellikLe ilginiz için Teşekkür ederim. Ben bu makroyu butona nasıl veririm. Yani butona tıklıyınca böyle tamamlandı diyecek.

 

[ugurnet]

açıklanan kodlar nasıl denenecek.?bende ayıramadım sütundaki sayıları ve metini

0203
97
0604
0103ARKABALATA örnekteki tüm sayıları kaldırmak istedim sütünda ama olmadı

 

[Ömer]

açıklanan kodlar nasıl denenecek.?bende ayıramadım sütundaki sayıları ve metini

0203
97
0604
0103ARKABALATA örnekteki tüm sayıları kaldırmak istedim sütünda ama olmadı

Merhaba,

İnceleyiniz..

Modül Ekleme (Resimli Anlatım)

Sayfaya Ait Kodlar ve Uygulama Yöntemleri (Resimli Anlatım)

.

 

[ugurnet]

ilginize teşekkürler ama bu yapabileceğim bir şey değil ..6300 satır var.tek tek silmekten başka çare yok gibi.

 

[Ömer]

Ne yapmak istiyorsanız küçük bir örnek dosya ekleyerek açıklarsanız elimizden geleni yapmaya çalışırız..

.

 

[ugurnet]

buraya nasıl dosya konuyor bilmiyorum..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte resimli olarak anlatım bulunmaktadır. İncelermisiniz.

http://www.excel.web.tr/showthread.php?t=32554

 

[ugurnet]

neyse artık kitap eklemeye hacet kalmadı


ben rakamları harflerden ayıracaktım yapamadık. tek tek rakamları silerken uzman biri öyle olmaz o dedi. dosyayı yazıcıdan çıkardı 30 kırk kadar kağıt çıktı. sonra kağıttan rakamlar olan kısmı makasla kesti. sonra fotokopi makinesine koydu . bilgisayar ekranında çıktı istediğim harfli kısımlar ama
arı kovanı gibi olan kutular çalışmadı.öyle kaldılar hiç kımıldamadan.kimse yerinden oynatamıyorda.. buda işe yaramadı büyük ihtimalle.
allahtan eski rakamlı yazılı olan duruyorduda ordan tek tek sildik bir haftada

selametle

 

[Korhan Ayhan]

Selamlar,

Benim anlamadığım nokta siz dosya ekledinizde yardımmı alamadınız? Yoksa sorunuza çözümmü bulunamadı?

 

[ocamsul]

Arkadaşlar merhabalar.

öğrenmek istediğim bu işlemi textboxlara nasıl uyarlayabiliriz. yani textbox1 içindeki ad ve soyadı textbox2 ve textbox3 e nasıl ayırarak yazdırabiliriz?