makrolu düşeyarada boşluk sorunu

[muratcx]

Merhaba arkadaşlar excel. web.tr.den aldığım örnek çalışmalardan uyarladığım makrolu düşeyara çalışmam var. Örnek dosyada görüleceği gibi sütunda boşluk olduğunda istediğim sonucu elde edemiyorum örnek dosyada renklendirdiğim hücreler silidiğinde de sütunda bazı hücreler boş olsa bile içinde değer olan hücrelerin aktif olmasını istiyorum. Teşekkürlerimi borç bilirim

 

[uzmanamele]

merhaba

bu şekilde deneyiniz

Sub vlookup_() 'DÜŞEY ARA
On Error Resume Next
For sut = 1 To 30
Range("d" & sut) = WorksheetFunction.VLookup(Range("c" & sut), Range("a:b"), 2, 0)
Range("h" & sut) = WorksheetFunction.VLookup(Range("g" & sut), Range("e:f"), 2, 0)
Next
End Sub

 

[muratcx]

Teşekkür ederim