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.
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 =1DoWhileNot rst.EOF
If rst(2)<=5Then
X = X +1If rst(2)<>0Then
Sheets("Sayfa2").Cells(X,1)= rst(0)
Sheets("Sayfa2").Cells(X,2)= rst(1)
Sheets("Sayfa2").Cells(X,3)= rst(2)EndIfElse
Y = Y +1
Sheets("Sayfa3").Cells(Y,1)= rst(0)
Sheets("Sayfa3").Cells(Y,2)= rst(1)
Sheets("Sayfa3").Cells(Y,3)= rst(2)EndIf
rst.MoveNext
Loop
rst.Close
Set rst =NothingEndSub
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın. Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. Cebelleşmezsen Öğrenemezsin.