Yasar PİSKİN
Yeni Üye
Konuyu Başlatan
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, Len(Target.Value))
End Sub
kodu ile G sütununa girilen dosya numaralarında yıl ile dosya numarasını ayırmaya çalışıyorum. Bu kodun mevcut kodlara entegresi hususunda yardımlarınızı rica ediyorum.
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, Len(Target.Value))
End Sub
kodu ile G sütununa girilen dosya numaralarında yıl ile dosya numarasını ayırmaya çalışıyorum. Bu kodun mevcut kodlara entegresi hususunda yardımlarınızı rica ediyorum.