Girilen bilgilerin arasına tire işareti

[Mdemir63]

Selamlar,

Arkadaşlar, ben bilgileri girdikçe aralarına tire işareti koymasını nasıl yapabilirim.

Örneğin: AliVeliSelami gibi yazdığımda yazdığım hücrede ;

Ali-Veli-Selami gibi yazmasını istiyorum.


Saygılar

 

[BG]

Sayın komutan63

Selamlar,

Arkadaşlar, ben bilgileri girdikçe aralarına tire işareti koymasını nasıl yapabilirim.

Örneğin: AliVeliSelami gibi yazdığımda yazdığım hücrede ;

Ali-Veli-Selami gibi yazmasını istiyorum.


Saygılar

bilgiler girildikçe "-" işaretinin koyulabilmesi için kelimeler arasında bir ölçüt olması gerektiğini düşünüyorum, yani bir algoritma oluşturabilmek için bir kelimenin bittiğini ve diğer kelimeye başlandığını bir şekilde belirtmek gerekmez mi ? bu mantıkla kelimeler arasında boşluk yaptığınızı düşünürek aşağıdaki kodu deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Replace What:=" ", Replacement:="-", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[Mdemir63]

bilgiler girildikçe "-" işaretinin koyulabilmesi için kelimeler arasında bir ölçüt olması gerektiğini düşünüyorum, yani bir algoritma oluşturabilmek için bir kelimenin bittiğini ve diğer kelimeye başlandığını bir şekilde belirtmek gerekmez mi ? bu mantıkla kelimeler arasında boşluk yaptığınızı düşünürek aşağıdaki kodu deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Replace What:=" ", Replacement:="-", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Selamlar,
Hocam ilginize teşekkür ederim .Evet kodlar boşluk bırakınca aralarına tire koyuyor ama ben belli sütunlarda bu işlemi yapmasını istiyorum.

Saygılar hocam

 

[BG]

Sayın komutan63

Selamlar,
Hocam ilginize teşekkür ederim .Evet kodlar boşluk bırakınca aralarına tire koyuyor ama ben belli sütunlarda bu işlemi yapmasını istiyorum.

Saygılar hocam

işlemi kullanmak istediğiniz sütunların A:E aralığındaki sütunlar olduğunu varsayarsak kod aşağıdaki gibi olabilir.


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:E]) Is Nothing Then Exit Sub
Cells.Replace What:=" ", Replacement:="-", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[Mdemir63]

Hocam

Sadece K N ve R sütunlarında kullanacağım.

 

[Orion1]

Hocam

Sadece K N ve R sütunlarında kullanacağım.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B][COLOR="Red"]Range("K:K,N:N,R:R")[/COLOR][/B]) Is Nothing Then Exit Sub
Cells.Replace What:=" ", Replacement:="-", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[Mdemir63]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B][COLOR=red]Range("K:K,N:N,R:R")[/COLOR][/B]) Is Nothing Then Exit Sub
Cells.Replace What:=" ", Replacement:="-", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

sELAMLAR,

Hocam çok teşekkürler sağolun

Saygılar

 

[Orion1]

sELAMLAR,

Hocam çok teşekkürler sağolun

Saygılar

Rica ederim.
İyi çalışmalar.

 

[murikko]

ustalar bana bunun ,yeni girilen her veri arasına tire koyanı lazım tabi mümkünse satırda en son girilen veri görünecek fakat formül çubuğunda tüm girilmiş veriler ;aralarında tire ile görünecek tabi olursa böle bişe .çok memnun kalırım şimdiden teşşekürler..