Soru Fonksiyon

[ahmetdrtl]

Hücrede yazılan metni sınırlı karakterde tamamlama nasıl yapılır acaba?

Örneğin; Hücrede yazması gereken AAA2020000000001 bunu ben AAA/1 yazdığımda otomatik olarak AAA2020000000001 yapmasını nasıl sağlayabilirim?

 

[ÖmerFaruk]

Bu /1 yazdığınız kısımdaki 1 ifadesi düzeltme olan kısımda sağdan kaç haneye tekamül ediyor?

 

[ahmetdrtl]

Bu /1 yazdığınız kısımdaki 1 ifadesi düzeltme olan kısımda sağdan kaç haneye tekamül ediyor?

Bu /1 yazdığınız kısımdaki 1 ifadesi düzeltme olan kısımda sağdan kaç haneye tekamül ediyor?

13 hane olacak

 

[ÖmerFaruk]

AAA ifadesi de sabit midir? Yoksa AAB/3 , ACD/15 gibi farklı bir değer de olabilir mi?

Eğer sabitse, (Siz 13 hane olacka dediniz ama sanki ilk 4 hanesi 2020 yılını ifade ediyor)
Hücre biçimlendir isteğe uyarlanmış
"AAA2020"000000000

 

[ahmetdrtl]

AAA ifadesi de sabit midir? Yoksa AAB/3 , ACD/15 gibi farklı bir değer de olabilir mi?

AAB/3 , ACD/15 gibi farklı bir değer de

 

[ÖmerFaruk]

Kodu ilgili sayfanın kod sayfasına yapıştırın.
Ben çalışacağı sütunu "A" olarak kabul ettim. Farklıysa değiştirin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Kontrol = Left(Target.Value, 5) Like "[A-Z][A-Z][A-Z]/#"
If Kontrol Then
    Application.EnableEvents = False
    Target.Value = Left(Target, 3) & "2020" & Format(Right(Target.Value, Len(Target.Value) - 4), "000000000")
    Application.EnableEvents = True
End If
End Sub

 

[ahmetdrtl]

dediğiniz gibi yaptım ama olmadı bir şeyleri eksik yaptım galiba kodu kod sayfasına yapıştırdım hücreyi C olarak değiştirdim olmuyor hücredeki haneyi tamamlaması için ne yazmam lazım tam olarak

 

[ahmetdrtl]

Kodu ilgili sayfanın kod sayfasına yapıştırın.
Ben çalışacağı sütunu "A" olarak kabul ettim. Farklıysa değiştirin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Kontrol = Left(Target.Value, 5) Like "[A-Z][A-Z][A-Z]/#"
If Kontrol Then
    Application.EnableEvents = False
    Target.Value = Left(Target, 3) & "2020" & Format(Right(Target.Value, Len(Target.Value) - 4), "000000000")
    Application.EnableEvents = True
End If
End Sub

dediğiniz gibi yaptım ama olmadı bir şeyleri eksik yaptım galiba kodu kod sayfasına yapıştırdım hücreyi C olarak değiştirdim olmuyor hücredeki haneyi tamamlaması için ne yazmam lazım tam olarak

 

[ahmetdrtl]

dediğiniz gibi yaptım ama olmadı bir şeyleri eksik yaptım galiba kodu kod sayfasına yapıştırdım hücreyi C olarak değiştirdim olmuyor hücredeki haneyi tamamlaması için ne yazmam lazım tam olarak

Tamam dır şimdi oldu çok teşekkür ederim.