sayfa2 deki adresteki value kaç ?

[snx111]

Sub ara()
Dim Target As range
If ActiveCell.range("e2:e65") Is Nothing Then Exit Sub

Dim cll As Variant
Dim dizi As Variant
Dim x, y As Integer
Set cll = ActiveCell
Set dizi = Sayfa2.range("b2:h2")

For Each cll In dizi
If Not cll Is Nothing Then

x=dizi.column
y = dizi.rows dediğimde hep 2 gösteriyor




buraya kadar tamam bana lazım olan sayfa2 deki dizi deki bulunan cll nin adresi ve aynı sütundaki bir alt satırdaki deger ? hadi buyrun

 

[Orion1]

Şunu deneyiniz.

Sub ara()
Dim Target As Range
If ActiveCell.Range("e2:e65") Is Nothing Then Exit Sub

Dim cll As Range
Dim dizi As Range
Set dizi = Sayfa2.Range("b2:h2")

For Each cll In dizi
MsgBox cll.Address
Next
End Sub

 

[snx111]

Bana dizideki adres lazım ; orion ...
diyelim ;
cll = activecell olsun ; "ata" olsun;

ata yı sayfa2 de b2:h2 arasında ara ;

ata hangi satırda hangi sütundaysa göstersin sayfa2.range("c2") ata nın bulunduğu adres desin. ve bir altındaki satırdaki değeri de versin ;c3 değerini

 

[Orion1]

Bana dizideki adres lazım ; orion ...
diyelim ;
cll = activecell olsun ; "ata" olsun;

ata yı sayfa2 de b2:h2 arasında ara ;

ata hangi satırda hangi sütundaysa göstersin sayfa2.range("c2") ata nın bulunduğu adres desin. ve bir altındaki satırdaki değeri de versin ;c3 değerini

Bir örnek dosya yollayabilirmisiniz.

 

[snx111]

dosya ektedir

 

[Orion1]

Bana dizideki adres lazım ; orion ...
diyelim ;
cll = activecell olsun ; "ata" olsun;

ata yı sayfa2 de b2:h2 arasında ara ;

ata hangi satırda hangi sütundaysa göstersin sayfa2.range("c2") ata nın bulunduğu adres desin. ve bir altındaki satırdaki değeri de versin ;c3 değerini

Buyurun

Sub bul59()
Dim k As Range
Set k = Sheets("Sayfa2").Range("A2:H2").Find("ata", , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "ata'nın bulunduğu satır = " & k.Row & " sütun = " & k.Column
    Else
    MsgBox "ata bulunamadı", vbCritical, "U Y A R I"
End If
End Sub

 

[snx111]

for each komutlarına uygun olanını yazamazmısınız ?
geliştirmem gerekicek sistemi değiştirmem gerekecek