bir hücrede 18den fazla karakter varsa o hücreye sadece il

[hakan43]

BİR HÜCREDE EÐER 18 DEN FAZLA KARAKTER VARSA O HÜCREYE SADECE İLK 18 KARAKTERİN YAZILMASINI NASIL SAÐLAYABİLİRİZ.

BAÞKA DOSYALARDAN KOPYALAMA YAPIYORUZ ÇOK FAZLA KARAKTER OLUNCA .excelle çalışan prog var PROG ÇALIÞMIYO .


satırları tek tek silmek zor oluyo

YARDIM LÜTFEN

 

[selections]

Sub kırp()
Dim i As Variant
For i = 1 To 50
     Cells(i, 1) = Left(Cells(i, 1), 18)
Next i
End Sub

Not: Bu tür işlemleri yapmadan önce mutlaka yedeğinizi alınız.

 

[hakan43]

SELECTİONS BU MACRO MESELA E HÜCRESİNİN BÜTÜN HÜCRELERİ İÇİN GEÇERLİ OLACAK KOMUTLARDA DEÐİÞİCEK Bİ ÃžEY VARMI??

BANA TEK Bİ SÜTUN İÇİN LAZIM

 

[hakan43]

yada şöle diyelim bi hücreye en fazla 18 karakter yazılabilsin

 

[osmantelci]

yada şöle diyelim bi hücreye en fazla 18 karakter yazılabilsin

Son kararınız ise:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Len(Target) > 18 Then Target = Mid(Target, 1, 18)
End Sub

 

[hakan43]

valla son kararımda sanırım bu konuda çok acemiyim makroları yerleştirmeyi beceremedim açıkcası

 

[Metin Karaağaç]

veri doğrulama ile de olmazmı?
hem geri alma ve düzeltme imkanı olur. makroda geri almak mümkün olmuyor çünki..

 

[hakan43]

acemi olur ama ben acemiyim en basit şekil nasılsa öle olsun biliosan yazarmısın

 

[selections]

Sub kırp() 
Dim i As Variant 
For i = 1 To 65536 
     Cells(i, 5) = Left(Cells(i, 5), 18) 
Next i 
End Sub

Çalışması yaklaşık 1 dk. sürer ama işini görür,
Sn. acemi1 veri doğrulama ile kayıtlı verilerin ilk 18 karekterininden sonrasını nasıl siliyorsunuz? biraz açıklarmısınız?.

 

[Metin Karaağaç]

Veri/Doğrulamayı tıkla.
İzin verilen kısmına; "metin uzunluğu",
veri kısmına "küçük",
en fazla kısmına "18"...


Hata uyarısı seçeneğine ise;
stili istediğin şekilde ayarlayabilirsin.
başlık kısmına UYARI! ya da DİKKAT!
hata iletisine de bu hücreye sadece 18 karakter girebilirsiniz.


Ancak bişeyi yeni farkettim. 18 den fazla karakter girilirse, veri doğrulama kendisi kırpmıyor, kullanıcının kırpmasını bekliyor.

 

[Metin Karaağaç]

selections un mesajı ben cevabı yazdıktan sonra geldi.
üstadım haklı. benim de belirttiğim gibi otomatik kırpmıyor.
Kusura bakmayın yanlış yönlendirdim.

 

[selections]

Re: bir hücrede 18den fazla karakter varsa o hücreye sadec

yanlışlıkla gönderildi.