+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba İle Bul Değiştir (/konu-vba-ile-bul-degistir.html)
Vba İle Bul Değiştir - fenerli6774 - 28/07/2022
iyi günler kolay gelsin
vba kodlarını kullanarak
Sayfa1 de 1. sütunda bulunan kelimeleri
Sayfa2 de 1. sütunda aratmak istiyorum
bulduğunda Sayfa2 de 2. sütun boş ise
Sayfa2 de 2. sütuna Sayfa1 deki 2. sütunundaki değeri yazdırmak istiyorum
bu konuda yardımcı olursanız memnun olurum
RE: Vba İle Bul Değiştir - berduş - 30/07/2022
aşağıdaki kod işinize yarayabilir
Sub xBulDegis()
Set SyfHdf = ThisWorkbook.Worksheets("sayfa2")
With SyfHdf
HdfSonStr = .Cells(.Rows.Count, "A").End(xlUp).Row
Set RngHdf = .Range("A1:A" & HdfSonStr)
End With
Set SyfKyk = ThisWorkbook.Worksheets("sayfa1")
With SyfKyk
KykSonStr = .Cells(.Rows.Count, "A").End(xlUp).Row
DzKynk = .Range("A1:B" & KykSonStr).Value2
End With
For x = 1 To UBound(DzKynk)
RngHdf.Replace DzKynk(x, 1), DzKynk(x, 2)
Next
End SubRe: Vba İle Bul Değiştir - feraz - 31/07/2022
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