Araç plakasındaki sabit değeri otomatik yazdırma

[power]

Örnek dosyada C sutununda araçların plakaları yazılı.Yapmak istediğim,
Örnek:
34 AL 0394 plakayı yazacağım zaman 0394 yazıp tap tuşuna basınca plakanın tamamının yazmasını istiyorum.

 

[YUSUF44]

Hücre biçimlendirmeyle yapmak isterseniz özel sayı biçimi olarak aşağıdaki biçimi kullanabilirsiniz:

"34 AL "0000

Ancak bu durumda sadece görüntü olarak 34 AL 0394 yazar, aslında hücrede 394 yazmaktadır.

Makroyla isterseniz aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyin. C2:C500 aralığına en fazla 4 rakamlı sayı girildiğinde başına "34 AL " ekler. Bu seçenekte hücrede yazan ile görünürde olan aynıdır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C500]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
If IsNumeric(Target) = True Then
    If Len(Target) < 5 Then
        Target = "34 AL " & Format(Target, "0000")
    End If
End If

End Sub

 

[power]

Hocam verdiğiniz kodu kullandım sorunsuz çalışıyor teşekkür ederim.Aynı tabloya birde tarih sütunu ekledim.Buraya gün ve ay bilgisini girip tab yada enter tuşuna bastığımda 29.01.2018 formatında tarih atmasını istiyorum.Tarihle ilgili formda araştırma yaptım.İstediğime yakın bir örnek kod buldum.bulduğum kod tek olarak çalışıyor.Fakat sizin verdiğiniz kod ile bulduğum kodu beraber çalıştıramadım malesef.iki kodda eklediğim dosyada

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Not Intersect(Target, Range("C2:C500")) Is Nothing Then
        If Target = "" Then Exit Sub
        If IsNumeric(Target) = True Then
            If Len(Target) < 5 Then
                Target = "34 AL " & Format(Target, "0000")
            End If
        End If
    End If
    If Not Intersect(Target, Range("E1:E500")) Is Nothing Then
        Application.EnableEvents = False
        Tarih = ".01.2018"
        Target = CDate(Target.Value2 & Tarih)
    End If
Son: Application.EnableEvents = True
End Sub

 

[power]

korhan hocam çok teşekkürler,ellerinize sağlık.

 

[YUSUF44]

Tarihi kolay girmek için koda gerek yok aslında. Hücreleri istediğiniz tarih biçiminde (gg/aa/yyyy gibi) ayarlayın. Daha sonra hücreye örneğin 29/1 yazdığınızda excel 29/01/2018 olarak düzelecektir. Farklı bir yıl için 29/1/17 şeklinde yazabilirsiniz, 29/01/2017 olarak düzelir.

 

[power]

yusuf hocam,
söylediklerinizi de uyguladım o şekildede oluyor.Benim için pratik olanı kullanacağım Teşekkürler.