• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

mevcut kodlara ekleme yapma

  1. Y

    Çözüldü Mevcut Kodlara Ekleme Yapma

    DATA sayfasındaki Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("G5:G" & Rows.Count)) Is Nothing Then Exit Sub If Target.Value = Empty Then Exit Sub If InStr(Target.Value, "/") > 0 Then Exit Sub Target.Value = Mid(Target.Value, 1, 4) & "/" & Mid(Target.Value, 5...
Geri
Üst