hücre karakteri sınırlama

[zulfuernek]

buton yardımıyla sheet1 ve sheet2 deki verileri sheet3 de tek sayfada bir araya getirebiliyorum.

sayfa 3 de b sütununda müşteri isimleri yazıyor. ancak sayfa 3 gelen müşteri isimleri bazen çok uzun olabiliyor. b sütununa gelen müşteri ismi 40 karakterden fazla ise gelen verinin geri kalan kısmını silmesini istiyorum. yani 40 karakterden fazlasını göstermesin.

saygılarımla

 

[Orion1]

Kendi dosyanıza göre uyarlayın.
Buyurun.

Dim deg As String
deg = "aswqrtyuıoklndeswajygfdsartyumnbvcxzişjhyt"
If Len(deg) > 40 Then
    deg = Left(deg, 40)
    MsgBox deg
    Else
    MsgBox deg
End If

 

[zulfuernek]

Orion hocam bu koda göre yanlış algılamadıysam mesajla uyarı veriyor. benim amacım kopyalanan (örneğin. 100 karakterlik kopyalanan) yazının sayfa 3 e yapıştırırken sadece ilk 40 karakterini yazması

 

[Orion1]

Orion hocam bu koda göre yanlış algılamadıysam mesajla uyarı veriyor. benim amacım kopyalanan (örneğin. 100 karakterlik kopyalanan) yazının sayfa 3 e yapıştırırken sadece ilk 40 karakterini yazması

Örnek dosya ekleyiniz.

 

[zulfuernek]

http://dosya.co/azxzwuwk0857/DEVRE_SONU_PROGRAMI_-_Kopya.xlsm.html

örnek dosya ektedir hocam

 

[Orion1]

Buyurun.

Private Sub CommandButton1_Click()
Dim sonsat As Long, i As Long, deg As String
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To sonsat
    deg = Cells(i, "B").Value
    If Len(deg) > 40 Then Cells(i, "B").Value = Left(deg, 40)
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[zulfuernek]

Range("B1") = Left(Range("B1"), 16)

ORİON hocam bu kodu buldum fakat bu sadece b1 hücresinde yapıyor be sütunu için uygulayabilirmiyiz. daha sade bir kod

 

[Orion1]

Range("B1") = Left(Range("B1"), 16)

ORİON hocam bu kodu buldum fakat bu sadece b1 hücresinde yapıyor be sütunu için uygulayabilirmiyiz. daha sade bir kod

6# numaralı mesajda cevabı verdim.

 

[zulfuernek]

oldu hocam çok teşekkür ederim emeğinize sağlık

 

[Orion1]

oldu hocam çok teşekkür ederim emeğinize sağlık

Rica ederim.
İyi çalışmalar.