auto run macro when cell value changes

[Moose1605]

Hi i'm kristof,

I'm totally new here and also with excel.
i try to make a macro when a value chanes in a cell that it auto run , but don't find how.
this is what i have to get my info from the other sheet.

Subtechniek()[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Sheets("OffertePP").Select[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Range("E41:E46").Select[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Selection.ClearContents[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]For i = 0To 4[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]IfRange("D41") = "Basic" Then Cells(41 + i, 5) =Sheets("Config").Cells(85 + i, 12)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]IfRange("D41") = "Comfort" Then Cells(41 + i, 5) =Sheets("Config").Cells(91 + i, 12)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]IfRange("D41") = "Exclusive" Then Cells(41 + i, 5) =Sheets("Config").Cells(98 + i, 12)[/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000] [/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Next i[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub
[FONT=Calibri][SIZE=3][COLOR=#000000]

ps sorry for my englisch
<strike></strike>
[/COLOR][/SIZE][/FONT]

 

[mole999]

you can use the worksheet_change event if it is a specific range of cells that someone manually changes it will normally incorporate TARGET & INTERSECT, many varied examples all over the place to pick from

 

[Moose1605]

ok thx

i did this but what is wrong?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$41" Then
Call typeline
End If
End Sub

typeline is my macro

Sub typeline()
Sheets("Offerte PP").Select
Range("E41:E46").Select
Selection.ClearContents
For i = 0 To 4
If Range("D41") = "Basic" Then Cells(41 + i, 5) = Sheets("Config").Cells(85 + i, 12)
If Range("D41") = "Comfort" Then Cells(41 + i, 5) = Sheets("Config").Cells(91 + i, 12)
If Range("D41") = "Exclusive" Then Cells(41 + i, 5) = Sheets("Config").Cells(98 + i, 12)
Next i
End Sub