Merhaba, yeni yıl herkese kutlu olsun.
Aşağıdaki kod ile E sütununda hücrede enter'ladığımda otomatik tarih tamamlanıyor. İstediğim, sağındaki F sütunundaki hücreye de yıl/ay olarak eklesin. 2015/06 gibi. Sildiğimde sağına eklenen de silinsin.
Aşağıdaki kod ile E sütununda hücrede enter'ladığımda otomatik tarih tamamlanıyor. İstediğim, sağındaki F sütunundaki hücreye de yıl/ay olarak eklesin. 2015/06 gibi. Sildiğimde sağına eklenen de silinsin.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [E3]) Is Nothing Then Exit Sub
Call trh
End Sub
Sub trh()
If Len(Cells(3, "E")) < 3 Then
Cells(3, "E") = Cells(3, "E") & "." & Month(Date) & "." & Year(Date)
Else
If Len(Cells(3, "E")) < 6 Then
Cells(3, "E") = Cells(3, "E") & "." & Year(Date)
End If
End If
End Sub