IF le yazılan formulu makroya aktarma

[toltun]

If ile yazdıgım formulu
ıstek a b c özellıklerine göre tum sartları yerıne getıren TİPLERİ makroyla bulup yandakı tabloya yazdırabilir miyiz ?
* Istek satırı artalabılır
* IF Her bir istek için tum tabloyu tarayacak
*Şartlara uyanları ayrı ayrı yazıcak

 

[Necdet]

Merhaba,

Neden "Gelişmiş Süz" ü kullanmıyorsunuz? Makro şart mıdır?

 

[toltun]

Merhaba,

Neden "Gelişmiş Süz" ü kullanmıyorsunuz? Makro şart mıdır?

Bir programın devamında kullanıcağım için daha verimli olucağını düşünüyorum bu şekilde.
Kullanıcıya kolaylık olması açısından.

 

[Necdet]

Merhaba,

Sanırım bir kaç yazışma olunca soruna kimse bakmamış.

Gelişmiş Süz'ü makroya uygulayarak yaptım. Umarım işinize yarar.

B910 aralığını düzenledikten sonra aşağıdaki kodları çalıştırınız.

Sub SuzAktar()
    
    Dim i   As Long
    
    Application.ScreenUpdating = False
    
    Range("N8:Q" & Rows.Count).ClearContents
    
    If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter
    i = Cells(Rows.Count, "F").End(3).Row
    If i < 10 Then i = 10
    
    Range("F9:I" & i).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B9:D10"), Unique:=False
    Range("F9").CurrentRegion.Copy Range("N8")
    
    ActiveSheet.ShowAllData
    Application.ScreenUpdating = True
 
End Sub

 

[Murat OSMA]

Şu kodları da deneyebilirsiniz;

Sub Seçim()
    Dim Rky As Range
    Dim i As Integer
    For Each Rky In Range("B10:B" & Range("B65536").End(3).Row)
        For i = 10 To Range("F65536").End(3).Row
            If Cells(i, "G") = Rky.Value And Cells(i, "I") <= Rky.Offset(0, 2).Value _
                And Cells(i, "H") <= Range("L9").Value And Range("K9").Value <= Cells(i, "H") Then
                Cells(i - 1, "N") = Cells(i, "F")
                    Else
                 Cells(i - 1, "N") = 0
            End If
        Next i
    Next Rky
    Set Rky = Nothing: i = Empty
End Sub

 

[toltun]

Aslında tam olarak anlatmak istediğim olayı anlatamadım sanırım.Bu iş döngü şeklinde olucak

Ve özet olarak anlatmak gerekirse.
Elimde 3 tane kritik özelliği olan bir parça var.
A Bu özellik istek ile benim datamdaki olan A ile aynı olucak mesela istek parçada A 10 İse benim datamdaki A da 10 olanlara bakacak sadece
B için ise +-7% aralağındaki tüm değerlere bakılcak yani 0,93 <= B<=B *1,07 Bu aralığa uygun değerler kabul edilecek
C Son olarak C ise max değerim olucak ve buna eşit ve altındaki değerlere bakılacak

Bu üç şartı aynı anda sağlıyan Tip direk olarak alınıp yanda belirtilen seçim yerine yazılacak.
Fakat seçimler ard arda olucak ve istekler için ,3 farklı isteğim var fakat artabilir, tüm seçimleride görmek istyrm.

 

[toltun]

Önerisi olan var mı ?