Yasar PİSKİN
Yeni Üye
- Katılım
- 18 Nis 2021
- Mesajlar
- 460
- Çözümler
- 2
- Aldığı beğeni
- 107
- Excel V
- Office 365 TR
Konu Sahibi
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.
Ekli dosyalar
Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
