inserts values into 3 cells

[PIsabel]

Hello.
I need a macro that inserts values into 3 cells (F1 = Isabel, F2 = Pedro, F3 = Date) if cell A1 changes value.

Thank you

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Target.Address = "$A$1" Then Exit Sub
Application.EnableEvents = False
   Range("F1:F3").Value = Application.Transpose(Array("Isabel", "Pedro", "Date"))
Application.EnableEvents = True
End Sub

This needs to go in the sheet module

 

[Rick Rothstein]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Not Target.Address = "$A$1" Then Exit Sub
Application.EnableEvents = False
   [B][COLOR="#FF0000"]Range("F1:F3").Value = Application.Transpose(Array("Isabel", "Pedro", "Date"))[/COLOR][/B]
Application.EnableEvents = True
End Sub

This needs to go in the sheet module

If the three text values being assign to F1:F3 are really unchanging text constants (not variables), then the above highlighted code line can be replaced with this one...

[F1:F3] = [{"Isabel";"Pedro";"Date"}]

 

[PIsabel]

Is working
Thank you.

I have a very similar sheet but it only inserts values if cell K33 = Done in cell R34 = Closed and R36 = Confirmed

 

[Fluff]

What values do you want to insert & where do they go?

 

[PIsabel]

If K33 = Done
R34 = Closed
R36 = Confirmed

 

[Rick Rothstein]

If K33 = Done
R34 = Closed
R36 = Confirmed

If I am reading the above correctly...

IF Range("K33").Value = "Done" Then
  Range("R34").Value = "Closed"
  Range("R36").Value = "Confirmed"
End If

 

[PIsabel]

in an autorun macro and if de K33 value change

 

[Rick Rothstein]

in an autorun macro and if de K33 value change

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Not Target.Address(0, 0) = "K33" Then Exit Sub
  Application.EnableEvents = False
  If Target.Value = "Done" Then
    Range("R34").Value = "Closed"
    Range("R36").Value = "Confirmed"
  End If
  Application.EnableEvents = True
End Sub

 

[PIsabel]

thank you so much

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Not Target.Address(0, 0) = "K33" Then Exit Sub
  Application.EnableEvents = False
  If Target.Value = "Done" Then
    Range("R34").Value = "Closed"
    Range("R36").Value = "Confirmed"
  End If
  Application.EnableEvents = True
End Sub