ERP Veritabanindan Excel e Sayfalama

Merhaba,

Asagidaki Macro ile verileri excel e çekiyoruz. Ancak söyle bir sorunumuz var.

Netsis veritabanin karater setleri geregi Türkçe karakterler bozuk geliyor. "DENIZBANK" yerine DENYZBANK" gibi. Öncelikle bu karakter bozuklugunu excel de nasil düzeltebiliriz.
ikinci olarak
bu gelen kayitlarin 15 tanesini çalisma sayfasi 1 e 16 ile 30 arasini sayfa 2 v.s.
15 li olarak gruplasin ve yeteri katar çalisma sayfasi olustursun. Bunu yapmak mümkün müdür acaba?

Private Sub CommandButton1_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

sserver = "NETSIS"
sqluserNAME = "sa"

sqlsifre = "password"
database = "SIRKET"


con.Open "driver={SQL server};Server=" & sserver & "; uid=" & sqluserNAME & "; pwd=" & sqlsifre & "; database=" & database
Sql = "SELECT B.CARI_ISIM, A.TCMBSUBEKODU, C.BANKAADI, D.SUBEADI, A.IBANNO, SUM (A.TUTAR) AS TOPTUTAR FROM TBLODEEMIR AS A INNER JOIN TBLCASABIT AS B ON A.SATICI_KOD = B.CARI_KOD INNER JOIN TBLBNKSABIT AS C ON C.TCMBBANKAKODU = A.TCMBBANKAKODU INNER JOIN TBLBNKSUBESABIT AS D ON D.TCMBSUBEKODU = A.TCMBSUBEKODU group by B.CARI_ISIM, A.TCMBSUBEKODU, C.BANKAADI, D.SUBEADI, A.IBANNO"
rs.Open Sql, con, 1, 3
satir = 12
While Not rs.EOF
Sayfa1.Cells(satir, 2) = rs.Fields(0)
Sayfa1.Cells(satir, 3) = rs.Fields(1)
Sayfa1.Cells(satir, 4) = rs.Fields(2)
Sayfa1.Cells(satir, 5) = rs.Fields(3)
Sayfa1.Cells(satir, 6) = rs.Fields(4)
Sayfa1.Cells(satir, 7) = rs.Fields(5)

satir = satir + 1
rs.MoveNext
Wend

rs.Close
con.Close

End Sub

türkçe harfleri dogru görebilmeniz için
Connection string'ine Auto Translate=False ifadesini eklemelisiniz

demissiniz.

Bunu yukaridaki kodlarda tam olarak nereye yerlestirecegimi söyleyebilir misiniz?