Sayfaiçi koşullu veri aktarımı

[schahi]

Merhabalar,
Ekli örnekte belirttiğim üzere, sayfa içinde bir değere karşılık gelen verileri sayfa içinde bulup güncellemeyi amaçlıyorum.

En kısa sürede yardımcı olacağınızı ümit ediyor, teşekkür ediyorum.

 

[schahi]

Sorunumu forumdan edindiğim bilgiler doğrultusunda şu kodlar ile çözdüm, inceleyenlere teşekkür ederim.

Private Sub CommandButton3_Click()

Dim sonsat, s1, i, adr
Set s1 = Worksheets("Mps")
sonsat = s1.Cells(Rows.Count, "c").End(3).Row


Set i = s1.Range("c20:c" & sonsat).Find(Range("A2"), , xlValues, xlWhole)
adr = i.Address

With Range("f" & i.Row & ":w" & i.Row)
.Value = Range("f14:w14").Value
End With

With Range("A" & i.Row)
.Value = Date
End With
With Range("X" & i.Row)
.Value = Range("B7").Value
End With
With Range("y" & i.Row)
.Value = Range("B8").Value
End With
With Range("z" & i.Row)
.Value = Range("B9").Value
End With

End Sub