Hücreye girilen plakanın arasına otomatik boşluk eklemek.

[ilmtrz]

Merhaba, hücreye girmiş olduğumuz plakanın arasına otomatik olarak boşluk ekleyebileceğimiz bir formül var mı? Mesela hücreye 11AC222 veya 11AB321 veya 11A4321 şeklinde giriş yaptığımda otomatik olarak harflerle rakamların arasına boşluk eklesin. 11 AC 222 gibi.

 

[ofd2008]

A4 hücresinde 11AC222 var diyelim.

=SOLDAN(A4;2) & " " & YERİNEKOY(PARÇAAL(A4;3;98);EĞER(EHATALIYSA(ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))));"";ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))));"") & " " & EĞER(EHATALIYSA(ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))));"";ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))))

 

[ilmtrz]

A4 hücresinde 11AC222 var diyelim.

=SOLDAN(A4;2) & " " & YERİNEKOY(PARÇAAL(A4;3;98);EĞER(EHATALIYSA(ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))));"";ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))));"") & " " & EĞER(EHATALIYSA(ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))));"";ARA(9,99999999999999E+307;--PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));SATIR($1:$255))))

Çok Teşekkür ederim. İyi çalışmalar. Çok sağolasınız.

 

[ilmtrz]

Sayın odf2008, şöyle bir sorunla karşılaştım. Örneğin 11TD039, 12DZ022, 13V0364 gibi plakaları girdiğim zaman 11 TD0 39 olarak yazıyor. Galiba sıfırı o harfi olarak görüyor. Bunu nasıl düzeltebiliriz.

 

[ofd2008]

Merhaba, Bu kodu deneyin.

=SOLDAN(A4;2) & " " & YERİNEKOY(PARÇAAL(A4;3;98);PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));98);" " & PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));98))

 

[ilmtrz]

Merhaba, Bu kodu deneyin.

=SOLDAN(A4;2) & " " & YERİNEKOY(PARÇAAL(A4;3;98);PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));98);" " & PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));98))

Evet şimdi oldu. Çok teşekkür ederim. İyi çalışmalar.

 

[ilmtrz]

Merhaba, hücreye girmiş olduğumuz plakanın arasına otomatik olarak boşluk aşağıdaki formül ile yapılıyor. Mesela hücreye 11AC222 veya 11AB321 veya 11A4321 şeklinde giriş yaptığımda otomatik olarak harflerle rakamların arasına boşluk ekliyor. 11 AC 222 gibi.

Yapmak istediğim bunu koda dönüştürmek. Kod olarak eklemek. C sütununa plakayı girdiğimde bunu otomatik yapsın.

=SOLDAN(A4;2) & " " & YERİNEKOY(PARÇAAL(A4;3;98);PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));98);" " & PARÇAAL(PARÇAAL(A4;3;98);MİN(BUL({1\2\3\4\5\6\7\8\9\0};PARÇAAL(A4;3;98)&"0123456789"));98))

 

[tahsinanarat]

Sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Mid(Target, 1, 2) & " " & Mid(Target, 3, 2) & " " & Mid(Target, 5, 3)
Application.EnableEvents = True
End Sub

 

[ilmtrz]

Sn. tahsinanarat çalışma kitabımda bazı kodlar var vermiş olduğunuz kodu nereye eklemeliyim.
Kodlarım şöyle.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    Select Case Target.Column
        Case 12
            Target.Value = WorksheetFunction.Proper(Target.Value)
        Case 15
            Target.Value = WorksheetFunction.Proper(Target.Value)
        Case 16
            Target.Value = WorksheetFunction.Proper(Target.Value)
        Case Is < 101
            Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
    End Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Columns("A:CV").AutoFit
End Sub

 

[ilmtrz]

Merhaba, elimde iki kod var nasıl birleştirebilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    Select Case Target.Column
        Case 12
            Target.Value = WorksheetFunction.Proper(Target.Value)
        Case 15
            Target.Value = WorksheetFunction.Proper(Target.Value)
        Case 16
            Target.Value = WorksheetFunction.Proper(Target.Value)
        Case Is < 101
            Target.Value = UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ"))
    End Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Columns("A:CV").AutoFit
End Sub

Dim plaka, toplam, oncekiharf, harf As String
Dim kontrol1, kontrol2 As Boolean


Private Sub Worksheet_Change(ByVal Target As Range)

If ActiveCell.Column <> 1 Then Exit Sub
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Application.EnableEvents = 0

'plaka = "11ABC222"
plaka = Target.Value
toplam = Left(plaka, 1)
For i = 2 To Len(plaka)
oncekiharf = Mid(plaka, i - 1, 1)
harf = Mid(plaka, i, 1)
kontrol1 = IsNumeric(harf)
kontrol2 = IsNumeric(oncekiharf)

'kosul2 = IsNumeric(harf) And IsNumeric(oncekiharf) = False

If kontrol1 <> kontrol2 Then
toplam = toplam & " "
End If
toplam = toplam & harf

Next i

Target.Value = toplam
Application.EnableEvents = 1
End Sub

ikinci kod A sütununa girilen plakalar arasına boşluk eklemek için.

Yapmak istediğim bu kodu C sütunu olarak değiştirmek. Ve yukarıdaki iki kodu birleştirmek.

 

[ilmtrz]

Merhaba yardım edebilir misiniz? Yukarıdaki iki kodu birleştirmek istiyorum ama yapamıyorum.

 

[ilmtrz]

Allah rızası için bir yardım

 

[baba]

##\.##\.###

 

[hayri13]

Merhaba
Son sürüm kullananlar içim; aşağıdaki formülü kullanabilirsiniz.
=+LET(a;PARÇAAL(A1;SÜTUN(DOLAYLI("$A$1:"&ADRES(1;UZUNLUK(A1))));1);b;ARALIKBİRLEŞTİR(EĞER(--EHATA(a*1);a;""));PARÇAAL(A1;MBUL(b;A1)-2;2)&" "&b&" "&PARÇAAL(A1;MBUL(b;A1)+UZUNLUK(b);100))

 

[Korhan Ayhan]

Bu başlıklarda benzer içeriklere sahip olduğu için burada paylaşmak istedim.

Plaka Ayırma

Merhaba, H5 den başlayarak aşağıya doğru araç plakları var. bu araç plakalarının arasında boşluk yok ve ortadaki harf kısımlarını alıp aynı seriden kaç tane olduğunu hesaplamam gerekiyor. örn: 34S34 34AB879 34BRE607 Teşekkürler

www.excel.web.tr

Plaka grubunu düzenleme

Merhaba, hayırlı sabahlar. Ekte gönderdiğim excel dosyamın 1.sayfasının A sütununda kural dışı yazılmış plakaları formülle veya KTF formülü ile düzenlenmesini istiyorum. Yapmak istediğim örneğin 06 ABC 123 bu şekilde olmasını istiyorum (yani il kodundan sonra bir boşluk harf grubundan sonra bir...

www.excel.web.tr

Soru - Plaka arasına boşluk ekleme.

Merhaba, EK' li olan dosyada makro ile plaka arasına boşluk eklenmesini sağlamak için nette araştırma yaptım. Bir tane makro buldum ancak çalıştıramadım, hata veriyor. Yardımlarınızı rica ediyorum.

www.excel.web.tr