Makro ile Kaçıncı sütun

[bebar]

Merhaba,

sheets("Sayfa1").range("C4") 'hücresindeki değer

sheets("Sayfa2").range("E8:AK8") 'sütun aralığında kaçıncı sütundadır.

Bunun vba karşılığını bulamadım, yardımcı olursanız memnun olurum.

Teşekkür ederim.

 

[askm]

Sub askm()
For i = 5 To 37
    If Sheets("Sayfa1").Cells(8, i) = Sheets("Sayfa1").Range("C4") Then
        Sutun = i
        Exit For
    End If
Next i
End Sub

 

[bebar]

çok teşekkür ederim büyük faydası oldu

 

[askm]

Rica ederim. Kolay gelsin.

 

[leumruk]

Selamlar,
Alternatif olsun. Aranan verinin bir tane olduğunu varsayıyoruz.

Sub makro1()
Aranan = Sheets("Sayfa1").Range("C4")
Set bul = Sheets("Sayfa2").Range("E8:AK8").Find(Aranan, LookIn:=xlValues)
If Not bul Is Nothing Then
MsgBox bul.Column
Else
MsgBox "Aranan veri bulunamadı."
End If
End Sub

 

[Orion1]

Alternatif.

Sub bul()
sut = WorksheetFunction.Match(Sheets("Sayfa1").Range("C4").Value, Sheets("Sayfa2").Range("E8:AK8"), 0) + 4
MsgBox sut
End Sub