Edit Entries in workheet

[dotchieJack]

Hello dear helpers,
I have another question
I am looking for a bit of code when i change G5:G9 in Sheet1 it should edit the corresponding row in Sheet 2
File included

 

[Chihiro]

Something like below.

Sub Knop4_Klikken()
Dim lRow As Long, tRow As Double
Dim sSht As Worksheet, tSht As Worksheet
Dim c As Range

Set sSht = Worksheets("Blad1")
Set tSht = Worksheets("Blad2")

lRow = tSht.Range("A" & Rows.Count).End(xlUp).Row
With tSht.Range("A1:A" & lRow)
    tRow = Evaluate("Match(" & sSht.Cells(3, 6).Value & "," & .Address & ",0)")
End With

For Each c In sSht.Range("G5:G9")
    If c.Value <> "" Then
        tSht.Cells(tRow, c.Row - 3).Value = c.Value
    End If
Next c

End Sub

 

[dotchieJack]

Hello Chichiro,
Thank you for your reply, however i get an error on this line

 tRow = Evaluate("Match(" & sSht.Cells(3, 6).Value & "," & .Address & ",0)")

I used the same file as the one that I posted
Can you assist me a bit further
Thanks

 

[Chihiro]

Hmm... odd worked when I wrote it. Let me look into it.

 

[Chihiro]

Oh, right... I forgot that you needed to have focus on Blad2 for Match to work. Change code like below.

Sub Knop4_Klikken()
Dim lRow As Long, tRow As Double
Dim sSht As Worksheet, tSht As Worksheet
Dim c As Range

Set sSht = Worksheets("Blad1")
Set tSht = Worksheets("Blad2")

lRow = tSht.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
tSht.Select
With tSht.Range("A1:A" & lRow)
    tRow = Evaluate("Match(" & sSht.Cells(3, 6).Value & "," & .Address & ",0)")
End With

For Each c In sSht.Range("G5:G9")
    If c.Value <> "" Then
        tSht.Cells(tRow, c.Row - 3).Value = c.Value
    End If
Next c
sSht.Select
Application.ScreenUpdating = True
End Sub

 

[dotchieJack]

Hello Chichiro,
Thank you, works like charm, just perfect
Have a nice evening
Greetz
(problem solved)