Sub test()
Set s1 = ThisWorkbook.Sheets("Sayfa1")
Set s2 = ThisWorkbook.Sheets("Sayfa2")
s2.[B:B].Clear
For i = 1 To s1.Cells(Rows.Count, 1).End(3).Row
Set bul = s2.Range("A:A").Find(s1.Cells(i, 1).Value)
If Not bul Is Nothing Then s2.Cells(bul.Row, 2).Value = s1.Cells(i, 2).Value
Next
End Sub
Vba İle Bul Değiştir
Bu Konudaki Yorumlar |
Vba İle Bul Değiştir - Yazar: fenerli6774 - 28/07/2022, 21:17
RE: Vba İle Bul Değiştir - Yazar: berduş - 30/07/2022, 11:37
Re: Vba İle Bul Değiştir - Yazar: feraz - 31/07/2022, 00:16
|
Konuyu Okuyanlar: 1 Ziyaretçi