Otomatİk Olarak Plakalari DÜzeltme

[RIKU]

Arkadaşlar otomatik olarak girilen plakaları düzeltmeyle alakalı olarak acil bir çözüme ihtiyacım, hücre biçimlendirme veya soldan formülü ile denedim ama olmadı. İlgili dosyada daha iyi anlattım. Şimdididen Teşekkürler...

 

[Haluk]

A sütununa girilenler, B sütununda formülle istediğiniz şekle çevrilmiştir.

Ekli dosyayı inceleyin...

 

[RIKU]

Sayın Haluk Bey, gerçekten Çok Teşekkür Ederim. Buna Paralel bir soru sormak istiyorum. Bu işlem girilen hücrede gerçekleşebilirmi. Yani aynen girdikten sonra enter tuşuna basdığımızda boşluk bırakılmış şekilde hücrede yer alırmı?

 

[Haluk]

VBA kullanmadan olmaz.

Ama, biraz daha kısa bir formül isterseniz .... ekteki dosyaya bakabilirsiniz.

 

[RIKU]

Tekrardan Teşekkürler bu da güzel bir çözüm; fakat VBA kullanarak bir çözüm yolu bulmak mümkünmü yani yazıldığı anda hemen enter'a basar basmaz istenilen formatta belirmesi?

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin. Sadece B sütununda çalışacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
If InStr(Target, " ") = 0 Then
Set regEx = CreateObject("vbscript.RegExp")
regEx.Pattern = "[0-9/]"
regEx.Global = 1
deg = Replace(Target, Left(Target, 2) & regEx.Replace(Target, ""), "")
Target = Left(Target, 2) & " " & regEx.Replace(Target, "") & " " & deg
End If
End Sub

 

[RIKU]

Sayın Leventm, teşekkür ediyorum gerçekten Excel'e her geçen gün hayran olmamak elde değil, tabii ki sizlerin de bilgi ve becerisini takdir etmek boynumuzun borcu.
İzin verirseniz bir şey daha sormak istiyorum, "34 KBN 125" şekilnde girilen plakayı, sağındaki hücrede "34KBN125" şeklinde yazdırmak formülle mümkünmü acaba? Yani boşlukları kaldırarak yazdırmak mümkünmü?

 

[Levent Menteşoğlu]

Örneğin B1 hücresine aşağıdaki formülü kopyalayın.

=YERİNEKOY(A1;" ";"")

 

[RIKU]

Çok Teşekkürler, bu siteden ve dolayısıyla sizden yeni birşey daha öğrendiğim için çok memnunum. Saygılarımla...