Hücre içinde boşluk bırakmayı engelleme

[zeugma35]

Merhabalar,

bir formum var bu forma ilgili kişiler excelde veri doldurduğunda A1 hücresinde boşluk bırakmadan yazsınlar istiyorum nasıl yapabılırım

ÖRN : personel ibanı TR04 0001 0000 vs yazıyor ben boşluksuz yazılsın istiyorum TR0400010000

 

[hamitcan]

KIRP yada YERİNEKOY fonksiyonlarını deneyin.

 

[zeugma35]

hocam bu hücrede boşluk bırakmayı engellıyecek bı kod ıle yardımcı olma sansınız varmıdır

 

[hamitcan]

Sub BoslukKaldir()
    For i = 1 To [a65536].End(3).Row
        Cells(i, 1) = Replace(Cells(i, 1), " ", "")
    Next
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Veri doğrulama uygulanmıştır.

Alternatif olarak doğrulamada ki formülü aşağıdaki gibi de değiştirip kullanabilirsiniz.

=DEĞİL(ESAYIYSA(BUL(" ";A1;1)))

 

[alicimri]

İlgili sayfanın modülüne aşağıdaki, kodu yapıştırarak deneyin..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Target.Value = Replace(Target, " ", "")
End If
End Sub

 

[zeugma35]

çok tesekkurler

 

[zeugma35]

son olarak birşey daha istesem ilgili hücrede küçük harfle girilenleri otomatik büyük harfe çevirebilirmiyiz

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = Replace(Evaluate("=UPPER(""" & Target.Value & """)"), " ", "")
10  Application.EnableEvents = True
End Sub

 

[Erdem Akdemir]

Konuları lütfen büyük harfle açmayalım.

 

[Korhan Ayhan]

Başlık tarafımdan düzenlenmiştir..

 

[zeugma35]

korhan hocam bu kod ile karakterler arası boşluklarıda kaldırabiliryoruz

pekı ben baska hücrede örn b1 hücresinde boşlukları kaldırmak istemesem kodda nasıl bir revize yapabılrıız

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 10
    If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Address(0, 0)
        Case "A1"
            Target.Value = Replace(Evaluate("=UPPER(""" & Target.Value & """)"), " ", "")
        Case "B1"
            Target.Value = Evaluate("=UPPER(""" & Target.Value & """)")
    End Select
10  Application.EnableEvents = True
End Sub