Son dört karakteri silmek

[tiwamo]

İyi günler arkadaşlar,
47 satırlık tablomdaki her satırın sonunda bulunan 4 karakteri (biri boşluk) bir defada silmek istiyorum. Ne yapmalıyım?

 

[bugrakaratas]

Satırda bulunan değerlerden bir örnek yazabilir misiniz?

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod'u sayfanın kod bölümüne yapıştırın ve çalıştırın.
(Sayfanın kod bölümü: Alt taraftan sayfa adına fareyla sağ tıklayıp
KOD GÖRÜNTÜLEyi seçtiğinizde açılan ekranın sağ tarafındaki boş alan)
Kırpmak istediğiniz verilerin A sütununda olduğu ve birinci satırdan itibaren yer aldığını varsaydım.
.

[FONT="Arial Narrow"]Sub KIRP()
For s = [B][COLOR="Red"]1[/COLOR][/B] To [[B][COLOR="Blue"]A[/COLOR][/B]65536].End(3).Row
    If Len(Cells(s, [B][COLOR="blue"]1[/COLOR][/B])) > 4 Then Cells(s, [B][COLOR="blue"]1[/COLOR][/B]) = Mid(Cells(s, [B][COLOR="blue"]1[/COLOR][/B]), 1, Len(Cells(s, [B][COLOR="blue"]1[/COLOR][/B])) - 4)
Next
End Sub[/FONT]

 

[tiwamo]

Satırda bulunan değerlerden bir örnek yazabilir misiniz?

Michael'ın Sesi 161
Yanıtlanan Dua 166
Üç Arkadaş 169
Ya Bu, Ya Hiç 172
Kader Rüyası 174
Rama'ya Dönüş 176
Tehlikedeki Uzay Aracı 178
...gibi

 

[tiwamo]

Merhaba.

Aşağıdaki kod'u sayfanın kod bölümüne yapıştırın ve çalıştırın.

Tamam, yapıştırmayı başardım da... Çalıştırma nasıl olacak?

 

[tiwamo]

Buldum onu da... "run" ileymiş. Çok teşekkürler

 

[sakman26]

selam,
formül ile alternatif çözüm
Veriler A kolonunda ve A2 den itibaren ise

B2 hücresine

=YERİNEKOY(A2;SAĞDAN(A2;4);"")

formülünü yazaıp aşağıya doğru kopyalayın..

kolay gelsin..

 

[Asri]

Formül ve makro kullanmadan, tüm excel dosyalarında aynı işlemi yapabilmek için aşağıdaki eklentiyi inceleyiniz.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html