kirimpertanyaan

 

Belajar dan konsultasi masalah Excel      

Macro & VBA, Hits: 266, Comments: 0, Bookmarked: 0, Followers: 4

  

  Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Column = [Sheet1] 2 Then

      If Target.Cells.Count = 1 Then

         If Len(Target.Value) > 0 Then

            Target(1, 1) = Now

            Target(1, 1).NumberFormat = "dd/mm/yy"

         Else

            Target(1, 1).ClearContents

         End If

      End If

   End If

  End Sub

 

Mohon petunjuk agar bisa target column dari sheet lain?

Terima Kasih


saspawi
Thursday, March 08, 2018
0% of 0 votes

Partners

logo baru local1news