liste güncellemek

[mrt]

Selamlar,

giriş sayfamda bulunan A7:A50 sutunu tanımına göre G7:G50 hücrelerindeki değerleri
stok sayfasında bulunan A7:A42500 aralığında arayıp G7:G42500 hücrelerinde ki değerleri değiştirmesini istiyorum.

Bulamadığı değerlerde bir değişiklik olmamalı.

( Ã?zetle : Giriş Sayfası A7:A50 deki kayıtları Stok sayfası A7:A42500 de arayacak.

Eşlenen kayıtlarda stok sayfası G7:G42500 'e Giriş sayfasında G7:G50 değerleri yazılacak.)

Teşekkürler

 

[veyselemre]

[vb:1:b95ca83eb0]Sub guncelle()
On Error Resume Next
Sheets("Giriş").Select
Set s2 = Sheets("Stok")
For x = 7 To 50
a = s2.[a7:a42500].Find(Cells(x, 1)).Row
If a > 0 Then s2.Cells(a, "G") = Cells(x, "G")
Next
End Sub[/vb:1:b95ca83eb0]