ilk Sayfadaki verilerin analiz edlip 2 ci sayfaya yazilmasi

[ExceI]

Selamlar,

Arkadaşlar ekteki dosyamda anlatmaya çalıştım.

indirip yardimci olucak Arkadaslara

simdiden tesekur ederim

Saygılar

 

[Korhan Ayhan]

Selamlar,

Verdiğiniz örnek dosyaya göre 3 lü grupta 21-24-26 veri grubunu ararken aynı satır içinde bu üç sayının olması şartımı aranacak? Yoksa farklı bir mantıkmı kurulacak?

 

[ExceI]

Aslında makro dan istenilen C1 ile O500 arasındaki tum satirlari taramasi.C1 O500 Aralıdındakı tumsayı gruplarini tespit etmesi ve Sayfa 2 ye yazdırması.

Saygılar

 

[Korhan Ayhan]

Selamlar,

Peki sayılar aynı satırda peşpeşemi olmak zorunda ?

 

[ExceI]

evet peşpeşe

tesekurler

 

[Korhan Ayhan]

Selamlar,

Sayfa2 deki yapıyı kullanarak aşağıdaki kodu oluşturdum. Sayfa2 ye 3 lü gruplarınızı elle girdikten sonra makroyu çalıştırıp deneyiniz.

Koddaki mavi renkli satırı çoğaltarak kırmızı renkli değerleri arttırarak 4-5-6 lı sınamalarınızı kendiniz oluşturabilirsiniz.

Sub ÜÇLÜ_SINA()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim X As Long, Y As Long, Bul As Range, Say As Long
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Columns(7).ClearContents
    
    For X = 1 To S2.[A65536].End(3).Row
        For Y = 1 To 500
            Set Bul = S1.Range("A" & Y, "O" & Y).Find(S2.Cells(X, 1), LookAt:=xlWhole)
            If Not Bul Is Nothing Then
            If S1.Cells(Y, Bul.Column + 1) = S2.Cells(X, 2) Then
            [COLOR=blue]If S1.Cells(Y, Bul.Column + [COLOR=red]2[/COLOR]) = S2.Cells(X, [COLOR=red]3[/COLOR]) Then[/COLOR]
            Say = Say + 1
            End If: End If: End If
            Set Bul = Nothing
        Next
        S2.Cells(X, "G") = Say
        Say = 0
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ExceI]

Söyleyecek kelime bulamıyorum tam istedigim gibi

Elinize emeğinize sağlık Hocam

Saygılar