title: VBA Excel - How to Automatically Fill a date in multi-columns if i filled column A
body: <p>This is my first time to write a code and i try to write a code thats helps me to fill Columns <strong>B</strong>, <strong>C</strong> and <strong>D</strong> Automatically thats will happen when i fill Column <strong>A</strong> by myself.</p>
  
  <p>this is the picture of that sheet i work on it now
  <a href="http://i.stack.imgur.com/7RXJz.png" rel="nofollow">Worksheet Explaining what i Want</a></p>
  
  <p><a href="http://i.stack.imgur.com/tlJ6z.png" rel="nofollow">The final result must be like this Picture</a></p>
  
  <p>i try to google the code and i found a code but it not work at all</p>
  
  <p><strong>This is the first code</strong></p>
  
  <pre><code>    Private Sub Worksheet_Change(ByVal Target As Range)
  Dim A As Range, B As Range, Inte As Range, r As Range
  Set A = Range("A:A")
  Set Inte = Intersect(A, Target)
  If Inte Is Nothing Then Exit Sub
  Application.EnableEvents = False
      For Each r In Inte
          r.Offset(0, 1).Value = Date
      Next r
  Application.EnableEvents = True
  End Sub
  </code></pre>
  
  <p>also i try to write another code thats may helps me to fill Column <strong>B</strong> and <strong>C</strong> based on above code results but still not work.</p>
  
  <p><strong>This is the code <em>written by me</em></strong></p>
  
  <pre><code>Private Sub Worksheet_Change1(ByVal Target As Range)
  Dim i As Integer
  For i = 6 To 1000
  If Cells(i, "A").Value &lt;&gt; "" And Cells(i, "B").Value &lt;&gt; "" Then
  
     Cells(i, "C").Value = Date
     Cells(i, "C").NumberFormat = "mmm"
     Cells(i, "D").Value = Date
     Cells(i, "D").NumberFormat = "yyyy"
  
  End If
  
  Next
  
  Range("C:C").EntireColumn.AutoFit
  Range("D:D").EntireColumn.AutoFit
  
  End Sub
  </code></pre>
  
  <p>anyone can help with that?</p>