düşeyara ;son dolu satıra kadar işlem yaptırmak

[cemshan]

Merhaba ,

aşağıda verdiğim macroyu kullanıyorum. Ancak sadece "C" sutunundaki dolu satırlar için nasıl düzeltme biliriz bu macroyu ?


Sub düşeyara()
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Girişler")
Set s2 = Sheets("ürünler")

s1.Range("a2:a62000") = WorksheetFunction.VLookup(s1.Range("c2:c62000"), s2.Range("A"), 4, 0)
s1.Range("K2:K62000") = WorksheetFunction.VLookup(s1.Range("c2:c62000"), s2.Range("A:E"), 5, 0)


End Sub

 

[YUSUF44]

Şöyle deneyin:

Sub duseyara()
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Girişler")
Set s2 = Sheets("ürünler")
son = Cells(Rows.Count,"C").End(3).row
s1.Range("a2:a62000") = WorksheetFunction.VLookup(s1.Range("c2:c6" & son), s2.Range("A:D"), 4, 0)
s1.Range("K2:K62000") = WorksheetFunction.VLookup(s1.Range("c2:c6" & son), s2.Range("A:E"), 5, 0)
End Sub

Not: makro adında Türkçe karakter kullanmamaya özen gösterin.

 

[cemshan]

Sanırım tam olarak demek istediğimi anlatamadım .

A620000 satırına kadar işlem yapıyor ben A13000 de olduğum için diğer satırlarda hep Yok hatası yazıyor

 

[YUSUF44]

Buna uygun örnek dosya paylaşır mısınız?