range.address collection nesnelerinde nasıl kullanlır

[aksoyolgun]

merhabalar,
aşağıdaki makro ile düşeyaranın sol taraftaki verileri almadığı için bir makro hazırladım
makro çalışıyor fakat collection nesnelerinde mutlak address nasıl yapabilirim
formülü aşağıya doğru çektiğimde collection aralığının sabit kalmasını istiyorum
bu F4 ile yapılabiliyor ama bu adımı nasıl atlatabilirim
yardımlarınız için çok tşkler


yapmak istediğim
"For Each hcr In aralık.address"
bu şekilde yaparsam hata veriyor

Function TARAMA(aranan As Range, aralık As Range, Optional sutun_no As Integer)

Dim hcr As Range

For Each hcr In aralık

If aranan = hcr Then
TARAMA = hcr.Offset(0, sutun_no)
End If

Next

If TARAMA = 0 Then
TARAMA = ""
End If


End Function

 

[Orion1]

Düşey ara sol taraftan veri alamaz ama indis alır.Forumda indis diye arama yapabilirsiniz.

 

[Orion1]

Şöyle yapın

TARAMA = hcr.Offset(0, -1)

 

[aksoyolgun]

Şöyle yapın

TARAMA = hcr.Offset(0, -1)

hocam cevap için tşkler
-1 yazdığımda oluyor ama burada amacım formülü aşağıya doğru cektiğimde koleksiyon aradığının sabit kalması
F4 ile uğraşmamak için

ilk hücrede seçilen aralık örneğin;
range("A1:A10") ise
ikici hücredeki formüldeki aralık range (A2:A11") oluyor

 

[Orion1]

hocam cevap için tşkler
-1 yazdığımda oluyor ama burada amacım formülü aşağıya doğru cektiğimde koleksiyon aradığının sabit kalması
F4 ile uğraşmamak için

ilk hücrede seçilen aralık örneğin;
range("A1:A10") ise
ikici hücredeki formüldeki aralık range (A2:A11") oluyor

-1 sütun oluyor.Seçilen alandaki aranıp bulunan değerin solundaki ilk sütun oluyor.Formülü istediğiniz kadar çoğaltabilirsiniz.
Sorun yok.Ama benim tavsiyem indis yerleşik işlevi kullanmanızdır.