Problema con macro che inserisce data/ora . Help!

Question

Ho una macro che inserisce data/ora in colonna E , quando inserisco valore manualmente su cella in colonna B . Poi deve ripetere quando inserisco valore su cella in colonna H , su cella in colonna I.

Il mio problema è che il valore nella colonna H viene inserito tramite altra Macro e non manualmente , e non funziona .

Funziona solo se inserisco dati manualmente . Come devo modificare la seconda parte ? grazie

[code]Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range

Dim xOffsetColumn As Integer

Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)

xOffsetColumn = 3

If Not WorkRng Is Nothing Then

Application.EnableEvents = False

For Each Rng In WorkRng     

If Not VBA.IsEmpty(Rng.Value) Then  

       Rng.Offset(0, xOffsetColumn).Value = Now      

   Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm"    

 Else       

  Rng.Offset(0, xOffsetColumn).ClearContents    

 End If   

Next

Application.EnableEvents = True

End If

Set WorkRng = Intersect(Application.ActiveSheet.Range("H:H"), Target)

xOffsetColumn = 1

If Not WorkRng Is Nothing Then

Application.EnableEvents = False

For Each Rng In WorkRng

    If Not VBA.IsEmpty(Rng.Value) Then    

     Rng.Offset(0, xOffsetColumn).Value = Now    

     Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm" 

    Else    

     Rng.Offset(0, xOffsetColumn).ClearContents   

  End If  

Next Application.EnableEvents = True

End If

End Sub [/code]

Answer 1

ciao

riesci a riallegare il file modificato?

a me va in debug

sono curioso e devo imparare

grazie

Answer 2

confermo ragazzi , funziona tutto .

almeno sembra :)))

ho lasciato solo il primo

Application.EnableEvents = True

nel modulo e ho cancellato tutti i Enable su entrambe le macro

Answer 3

forse funziona lasciando su modulo 1

Sub x()

Application.EnableEvents = True

cancellando tutto il resto

Answer 4

io ho invertito e adesso mi va quando la macro inserisce la X su H , ma non funziona quando scrivo in manuale in B

Answer 5

onestamente a me non intercetta la cella neanche levando

Application.EnableEvents = True

Application.EnableEvents = False

anzi mi rende debug

in

Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)

cosa che non succede se lascio come l'originale