Yardım DÜŞEYARA , Sadece dolu satırları doldursun.

cemshan

Yeni Üye
Katılım
18 Ara 2018
Mesajlar
4
En iyi yanıt
0
Puanları
1
Yaş
44
Konum
Mersin
Ad Soyad
Cem Şan
Merhaba ,

aşağıda verdiğim macroyu kullanıyorum. Ancak sadece "C" sutunundaki dolu satırlar için nasıl düzente 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:D"), 4, 0)
s1.Range("K2:K62000") = WorksheetFunction.VLookup(s1.Range("c2:c62000"), s2.Range("A:E"), 5, 0)


End Sub
 

NBATMAN

Yeni Üye
Katılım
1 Nis 2021
Mesajlar
3
En iyi yanıt
1
Puanları
3
Yaş
25
Konum
İstanbul
Ad Soyad
Nihat BATMAN
Office Versiyon
2007
Merhaba,

kodlarınıza aşağıdaki ekleri yaptım. deneyebilir misiniz?


Kod:
Sub düşeyara()
Dim i As Long
Dim sonsat As Long
sonsat = Range("C" & Rows.Count).End(xlUp).Row
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Girişler")
Set s2 = Sheets("ürünler")
For i = 0 To sonsat

If Cells(i, "C") <> "" Then
s1.Range("a2:a62000") = WorksheetFunction.VLookup(s1.Range("c2:c62000"), s2.Range("A:D"), 4, 0)
s1.Range("K2:K62000") = WorksheetFunction.VLookup(s1.Range("c2:c62000"), s2.Range("A:E"), 5, 0)
End If
Next i
End Sub
 
Üst Alt