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

cemshan · 31 Mar 2021

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

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

End Sub

NBATMAN · 1 Nis 2021

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

cemshan · 7 Nis 2021

Merhaba , İlginizi için teşekkür ederim ancak hata veriyor .

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

cemshan

NBATMAN

cemshan