Soru For Döngüsü İçin Girilen Sütun Değerini Tespit Etme

[tuvons]

Merhaba arkadaşlar,

For döngüsü için Cells(sayac, X) burada X değerine sayı atamak istiyorum ama atanacak sayının kaç olduğunu makro kendisi bulsun istiyorum.

Örneğin başlıkların her zaman 1. satırda yer alacağından yola çıkarak "SATIŞ TUTARI" değerinin "F1" hücresinde olduğunu varsayıyorum. Ama başka sayfada bu değer "G1" de olabiliyor. Onun için Cells(sayac 6) ya da Cells(sayac, 7) yazmaktansa Cells(sayac, aranandeger) olarak yazmak istiyorum.

Yardımcı olabilir misiniz?

Sub satis()
    Zaman = Timer
    
    satirsayisi = Cells(Rows.Count, "A").End(3).Row
    For sayac = 1 To satirsayisi
    If Cells(sayac, 5).Value <> "" And Cells(sayac, 4).Value = "" Then
    Cells(sayac, 4).Value = "0"
    End If
    Next sayac
    MsgBox "Tamamlandı." & vbLf & vbLf & _
               "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye", vbInformation
End Sub

 

[Korhan Ayhan]

Kendinize uyarlarsınız..

Option Explicit

Sub Test()
    Dim Bul As Range
    
    Set Bul = Rows(1).Find("SATIŞ TUTARI", , , xlWhole)
    If Not Bul Is Nothing Then
        MsgBox Bul.Column
    End If
End Sub

 

[tuvons]

Çok teşekkür ederim @Korhan Ayhan çok aramıştım bulamamıştım ondan konu açmıştım. Biraz önce forumunuzda benzer bir konuya denk geldim. Kendime göre aşağıdaki şekilde uyarladım. Sizin de desteğiniz için teşekkürler tekrar.

https://www.excel.web.tr/threads/makro-ile-kacinci-suetun.171887/

Sub bul()
Aranan = "SATIŞ TUTARI"
sut = WorksheetFunction.Match(Aranan, Sheets("Sayfa1").Range("A1:G1"), 0)
MsgBox sut
End Sub