אידישע וועלט פארומס

למעלה משבעים האט געשריבן:די פראבלעם דערמיט איז אז ער טוישט זיך יעדע מאל די עפנסט די פייל

למעלה משבעים האט געשריבן:F2

בנימין הלוי האט געשריבן:געזוכט עפעס וואס ארבעט אטומאטיש אבער דאס העלפט אויך, א דאנק אייך

למעשה האב איך געטראפן א מעקרא וואס צייכנט די צייט http://excel.tips.net/T003116_Recording ... _Time.html אבער איך זוך נאר דעם דאטום. קענט איר מאדיפיצירן די קאוד ביטע? א גרויסן שכוח מראש

קאוד:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rCell As Range
    Dim rChange As Range
   
    On Error GoTo ErrHandler
    Set rChange = Intersect(Target, Range("A:A"))
    If Not rChange Is Nothing Then
        Application.EnableEvents = False
        For Each rCell In rChange
            If rCell > "" Then
                With rCell.Offset(0, 1)
                    .Value = Now
                    .NumberFormat = "hh:mm:ss"
                End With
            Else
                rCell.Offset(0, 1).Clear
            End If
        Next
    End If

ExitHandler:
    Set rCell = Nothing
    Set rChange = Nothing
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub


קאוד:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rCell As Range
    Dim rChange As Range
   
    On Error GoTo ErrHandler
    Set rChange = Intersect(Target, Range("A:A"))
    If Not rChange Is Nothing Then
        Application.EnableEvents = False
        For Each rCell In rChange
            If rCell > "" Then
                With rCell.Offset(0, 1)
                    .Value = Date
                    '.NumberFormat = "hh:mm:ss"
                End With
            Else
                rCell.Offset(0, 1).Clear
            End If
        Next
    End If

ExitHandler:
    Set rCell = Nothing
    Set rChange = Nothing
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub


קאוד:

                    .Value = Date
                    '.NumberFormat = "hh:mm:ss"


למעלה משבעים האט געשריבן:פאטאקי מעגסט ענטפערן גראד אויך...
בנימין, די שטרעכל בעפאר די שורה מאכט ער זאל אויסלאזן די ליין.

מצב כללי האט געשריבן:איך וויל אטז די נייע צוגעלייגטע שורה אזל אויך ווערן ארומגענומען מיט ליינס אזוי ווי די פיערדיגע שורות איך סעלעקט עס און קליק אויף WRAP TEXT אבער עס געשעט נישט גארנישט?

בנימין הלוי האט געשריבן:פאטאקי איך בין נאכנישט פארטיג, האסט א מינוט? כ'וויל די זעלבע פאר קאלום E
תודה

מצב כללי האט געשריבן:

מצב כללי האט געשריבן:איך וויל אטז די נייע צוגעלייגטע שורה אזל אויך ווערן ארומגענומען מיט ליינס אזוי ווי די פיערדיגע שורות איך סעלעקט עס און קליק אויף WRAP TEXT אבער עס געשעט נישט גארנישט?

עני העלפ?