Makro ile küçük değere bağlı veri yazdırma.

[Carpintero]

Merhaba arkadaşlar
bu makro için değerli yardımlarınızı bekliyorum teşekkür ederim.
Makro döngü ile olması gerekiyor.
Ben çok uğraştım lakin offsset kısmını bir türlü çözemedim.
Saygılarımla.

 

[ÖmerFaruk]

Formüll işimi görür diyorsanız J2 hücresie yapıştırabilirsiniz, aşağı doğru kopyalayabilirsiniz.
=KAYDIR($A2;0;KAÇINCI(MİN(F2:H2);F2:H2;0);1;1)

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Minimum_Ara()
    Dim X As Long, Son As Long, Minimum As Double, Bul As Range
    
    Son = Cells(Rows.Count, 2).End(3).Row
    
    Range("J:J").ClearContents
    
    For X = 3 To Son
        Minimum = WorksheetFunction.Min(Range("F" & X).Resize(, 3))
        Set Bul = Range("F" & X).Resize(, 3).Find(Minimum, Cells(X, "H"), , xlWhole)
        If Not Bul Is Nothing Then
            Cells(X, "J") = Bul.Offset(, -4).Value
        End If
    Next
    
    Set Bul = Nothing

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Carpintero]

Korhan Hocam çok teşekkür ederim ellerinize sağlık.
Her zaman ki gibi yine harika bir kod olmuş.

Sayın NextLevel size de konuya göstermiş olduğunuz
alaka için teşekkür ederim.

İyi çalışmalar arkadaşlar.