Arama/Bulma İstenilen Hücreye Yerleştirme - Yardım Bekliyorum

[cayke]

Merhaba arkadaşlar. Bir noktada yardımlarınıza ihtiyacım var.
Yapmak istediğim şey şu;
F1 hücresindeki rakamı (50), B22 aralığında aratıp, bulursa G2 hücresine rakamı bulduğu sütunun ilk satırında yazan değeri getirmek.
Örnek; 50 rakamını istenilen aralıkta aratıyoruz. D sütununda buluyor ve ilk hücresindeki (D1) değerini G2 hücresine yazıyor. (603)
Örnek bir dosyayı ekte paylaşıyorum.Yardımlarınız için şimdiden teşekkür ederim.

 

[Ziynettin]

Merhaba,
..........

Sub sutun_adi()
    Dim i As Integer, _
        x As Integer
      
    Application.ScreenUpdating = False
        Columns(7).ClearContents
    
        For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
            For x = 2 To 4
                If Cells(i, 1) = Cells(i, 6) And Cells(i, x) = [F1] Then
                Cells(i, 7) = Cells(1, x)
                End If
            Next x
        Next i
        
    Application.ScreenUpdating = True
End Sub

 

[dehamuhtar]

Aynı sorun farklı çözüm olabilir mi acaba?

Merhaba, ben de tam konu açmayı düşünüyordum ama sorumun cevabını burada buldum. Ancak ben, tek bir çalışma sayfasında 365 adet sorgulama yapmalayım. Formullerle olmuyor mu bu işlem. Düşeyara yatayara birleşimi gibi.
Ekte örnekte açıklamaya çalıştım. Yardımcı olursanız sevinirim.

 

[Ziynettin]

Merhaba,
Dosyanız ektedir.

 

[dehamuhtar]

Çok teşekkür ederim. Script kullanmadan olmasını istiyordum ama bu amaca daha uygun düşüyor. Amacım çok kasmaması idi. Bunu da sağlamışsınız. İlginize teşekkürler.