ilk rakamları silme

[sevensuleyman]

merhaba ; hücrede birleştirilmiş rakamlar mevcuttur. makro kulanarak ilk rakamları silip sadece sonraki rakamların kalmasını istiyorum. dosya ekinde örnek excell mevcuttur. yardımcı olursanız sevinirim. şimdiden teşekkürler

2.240,00 1.840,00
2.240,00 1.940,00
1.600,00 1.480,00
61,32 50,00
61,32 50,00
127,18 110,00
1.689,22 1.350,00
1.050,03 800,00
74,76 57,51
485,70 380,00
245,70 210,00
245,70 210,00
245,70 210,00
394,82 329,00
701,82 580,00
134,52 118,60
168,50 139,50
237,54 170,00
33,24 27,00
33,24 27,00
177,34 150,00
175,40 140,00
33,24 27,00
33,24 27,00
177,34 150,00
175,40 140,00
824,04 680,00

 

[necati]

Merhaba, tüm hücreler açık yapıştırdığınız örnekteki gibi ise:
* Hücreleri seçin
* Bul kutusuna * yıldız ve bir boşluk
* Değiştir kutusu boş kalacak
* Tümünü değiştir.

 

[sevensuleyman]

Merhaba, tüm hücreler açık yapıştırdığınız örnekteki gibi ise:
* Hücreleri seçin
* Bul kutusuna * yıldız ve bir boşluk
* Değiştir kutusu boş kalacak
* Tümünü değiştir.

ilginiz için teşekkürler. fakat makro ile yapmak istiyoru. kod yazabilirseniz çok sevinirim.

 

[Greenblacksea53]

Sub hücre_ayir()
Dim ilksayi As String
Dim SonSayi As String
Application.ScreenUpdating = False
For hucre = 1 To Range("A" & Rows.Count).End(xlUp).Row
Uzunluk = Len(Range("A" & hucre).Text) 'BAŞVURULAN HÜCRENİN METİN UZUNLUĞU
For Karakter = 1 To Uzunluk
If Mid(Range("A" & hucre), Karakter, 1) = " " Then 'EĞER BAKILAN KARAKTER " " İSE AYIRMA İŞLEMİ YAPILACAK VE BİR SONRAKİ HÜCREYE GEÇİLECEK
ilksayi = Left(Range("A" & hucre), Karakter - 1)
SonSayi = Mid(Range("A" & hucre), Karakter + 1, Uzunluk - Len(ilksayi))
'+1 VE -1 LER BOŞLUĞU ALMAMAK İÇİN EKLENDİ
Range("B" & hucre).Value = SonSayi

Exit For
End If
Next Karakter
Next hucre
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Modüle ekleyip çalıştırın

 

[necati]

Alternatif

Sub Makro1()
    Range("A1").Resize(Cells(Rows.Count, "A").End(xlUp).Row, 1).Select
    Selection.Replace What:="* ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[sevensuleyman]

Alternatif

Sub Makro1()
    Range("A1").Resize(Cells(Rows.Count, "A").End(xlUp).Row, 1).Select
    Selection.Replace What:="* ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

çok teşekkür ederim. emeğiniz için

 

[sevensuleyman]

Sub hücre_ayir()
Dim ilksayi As String
Dim SonSayi As String
Application.ScreenUpdating = False
For hucre = 1 To Range("A" & Rows.Count).End(xlUp).Row
Uzunluk = Len(Range("A" & hucre).Text) 'BAŞVURULAN HÜCRENİN METİN UZUNLUĞU
For Karakter = 1 To Uzunluk
If Mid(Range("A" & hucre), Karakter, 1) = " " Then 'EĞER BAKILAN KARAKTER " " İSE AYIRMA İŞLEMİ YAPILACAK VE BİR SONRAKİ HÜCREYE GEÇİLECEK
ilksayi = Left(Range("A" & hucre), Karakter - 1)
SonSayi = Mid(Range("A" & hucre), Karakter + 1, Uzunluk - Len(ilksayi))
'+1 VE -1 LER BOŞLUĞU ALMAMAK İÇİN EKLENDİ
Range("B" & hucre).Value = SonSayi

Exit For
End If
Next Karakter
Next hucre
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Modüle ekleyip çalıştırın

çok teşekkür ederim. emeğiniz için