1. sayfada seçtiğim hücreyi 2.sayfadaki listede arayıp..

[lionamic]

1. sayfada seçtiğim hücreyi 2.sayfadaki listede arayıp bulacak bunun yerine 1. sayfada seçtiğim hücrenin altındaki hücreyi yazıcak makroyu nasıl hazırlayabilirim.bir yol gösterirseniz sevinirim.teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sheet1 in kod sayfasına kopyalayarak deneyin.

[vb:1:bd0784c90c]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = Sheets("sheet1")
Set s2 = Sheets("sheet2")
If Selection.Cells.Column <> 1 Then Exit Sub
aranan = ActiveCell.Value
adres = ActiveCell.Address
s2.Select
For a = 1 To s2.[a65536].End(xlUp).Row
If aranan = s2.Cells(a, 1).Value Then
s2.Cells(a, 1).Select
s2.Cells(a, 1) = s1.Range(adres).Offset(1, 0)
Exit Sub
End If
Next
MsgBox "aranan isim bulunamadı"
End Sub[/vb:1:bd0784c90c]