İsteğe Özel Uyarlanmış

[yalcin33]

Arkadaşlar merhaba,

Excelde yapmak istediğim bir hücre içine 500/600 yazdığım zaman başına PKKP yazısı eklemek. Sonuç PKKP 500/600 yazması. Fakat yapamadım yardımcı olur musunuz.

 

[ÖmerFaruk]

Bu işlemi belli birsatır ya da sütunda mıya da belli bir hücrede mi yapacaksınız?
Arasında / işareti olan hücrelerde mi yapacaksınız?
Sadece Üçbasmaklılar için mi olacak?

 

[yalcin33]

Bu işlem her satırda aşağı doğru devam edecek 600 rakamı sabit 3 basamaklı "/" sonrasındaki rakam 4 basamaklı olabiliyor 600/1200 gibi. Evet arasında "/" işareti olan hücrelerde yapacağım.

 

[ÖmerFaruk]

Sayfanızın KOD sayfasına yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Left(Target, 4) = "600/" And Len(Target) > 4 Then
    Application.EnableEvents = False
    Target.Value = "PKKP " & Target.Value
    Application.EnableEvents = True
    End If
End Sub

 

[yalcin33]

Sayfanızın KOD sayfasına yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Left(Target, 4) = "600/" And Len(Target) > 4 Then
    Application.EnableEvents = False
    Target.Value = "PKKP " & Target.Value
    Application.EnableEvents = True
    End If
End Sub

Hocam kod için teşekkür ederim. sekmeye gelip kod görüntüleden kısmına direk yapıştırdım olmadı. modül ekledim yine çalıştıramadım yani çalıştırmayı beceremedim

 

[ÖmerFaruk]

Çalıştıramadım derken, hata mı verdi? Makrolarınız etkin ama yine mi çalışmadı?
Yalcin33_cevap.xlsm - 12 KB

 

[yalcin33]

Çalıştıramadım derken, hata mı verdi? Makrolarınız etkin ama yine mi çalışmadı?
Yalcin33_cevap.xlsm - 12 KB

Hocam gönderdiğiniz dosyayı indirdim teşekkürler. Bende de hata vermiyor herhangi bir yere 500/500 yazdığım zaman hiç bir şey yapmıyor nasıl çalıştıracağımı anlamadım.

 

[ÖmerFaruk]

Bu işlem her satırda aşağı doğru devam edecek 600 rakamı sabit 3 basamaklı "/" sonrasındaki rakam 4 basamaklı olabiliyor 600/1200 gibi. Evet arasında "/" işareti olan hücrelerde yapacağım.

Bu açıklamanızda 600 rakamı sabit demiştiniz !!!

Kodda aşağıdaki satırı nasıl bir sabit değeriniz varsa o şekilde uyarlayabilirsiniz.

If Left(Target, 4) = "600/" And Len(Target) > 4 Then