Süz bul kopyala

[ADER_34]

Merhaba arkadaşlar bi konuda yardıma ihtiyacım şöyleki süz, eşleştir, kopyala şeklinde olacak, 2 sayfalı bir çalışma kitabında, bazen 3 bazen 6 sütunlu bir alanda "A" sütununu süz bunlar "PART NO" başlıklı alanlar,eşleşeni bul ve Sayfa 1
de "RAF" NO su boş olan satıra sayfa 2 deki dolu olan satırı kopyala örnek dosyam ekte kolay gelsin teşekkürler..
ÖRNEK: part no sıra no Raf
971 DD boş
sayfa2 de
part no sıra no Raf
971 DD abc
sonuç: 971 DD abc olacak,,
http://s8.dosya.tc/server/q8e80h/SUZ_DOLDUR.rar.html

 

[vardar07]

Sayfa2 de 971 DD R var siz 971 DD abc olacak demişsiniz. boş olan yerlere hep abc mi yazacak. Dosya üzerinde elle yazıp farklı renklendirip dosyayı tekrar yükleyin. Doğrusu dediğim gibi ise aşağıdaki kodu kullanabilirsiniz.

Sub bull()
For i = 3 To Sayfa1.Range("A300").End(3).Row
If Sayfa1.Cells(i, 3) = "" Then
bul = WorksheetFunction.Match(Sayfa1.Cells(i, 1), Sayfa2.Range("A3:A20"), 0) + 2
Sayfa2.Range("A" & bul & ":C" & bul).Copy Sayfa1.Range("A" & i)
End If
Next
End Sub