C sütunundaki aynı soyisme sahip 5 satırı sayfa2 ye , 5 ten fazla ise 5 ten fazla olan (6.7.....aynı soyisim) aynı soyisme sahip satırı sayfa 3 e Sql ile nasıl aktarabilirim.

kodu aşağıdaki ile değiştirerek deneyiniz.

Sub sayı()



 

Sql = "SELECT aa.ADI AS gadi, aa.SOYADI AS gsoyadi, (select count(*) from [DATA$] where aa.SOYADI=SOYADI) AS accesstnet FROM [DATA$] AS aa;"

 

Set baglan = CreateObject("adodb.connection")

Set rst = CreateObject("adodb.recordset")

Call baglanti

rst.Open Sql, baglan, 1, 1

X = 1

Y = 1

Do While Not rst.EOF

 

    If rst(2) <= 5 Then

 

        X = X + 1

        If rst(2) <> 0 Then

        Sheets("Sayfa2").Cells(X, 1) = rst(0)

        Sheets("Sayfa2").Cells(X, 2) = rst(1)

        Sheets("Sayfa2").Cells(X, 3) = rst(2)

        End If

    Else

        Y = Y + 1

        Sheets("Sayfa3").Cells(Y, 1) = rst(0)

        Sheets("Sayfa3").Cells(Y, 2) = rst(1)

        Sheets("Sayfa3").Cells(Y, 3) = rst(2)

    End If

 

    rst.MoveNext

Loop

 

rst.Close

Set rst = Nothing









 

End Sub