Sql den Alt-alta gelen verilerde toplam

[Maksim]

Merhaba..Arkadaşlar sql den gelen veriler alt alta düzülmüşdür.
Şimdi istiyorus ki,
Eger B7 DEN başlayan veri B12 den başlayan verinin üstüne düşerse o zaman
B12 Den başlayan veri B13-E keçsin..
Resimde Türkce diye bilmediklerimi anlatmaya çalışdım
Yardımınız için teşekkürler

 

[Levent Menteşoğlu]

Verileri aldığınız kodu verirmisiniz.

 

[Maksim]

Tabii ki,Ama profesonelce degil..Kusura bakmayin

Private Sub CommandButton1_Click()
Dim ConnectString, SQLstring, QueryResult

ConnectString = "ODBC;DRIVER=SQL Server;SERVER=" & TextBox1 & ";UID=;APP=Microsoft Office 2003;WSID=PL04;Trusted_Connection=Yes; DATABASE=" & TextBox2 & "" _

SQLstring = "SELECT * FROM borc_alacak_euro where BAKIYE>5 ORDER BY UNVANI"

Set NewBook = Workbooks.Add 'Application.TemplatesPath + "Template.XLT")
With NewBook.Sheets(1).QueryTables.Add(Connection:=ConnectString, Destination:=NewBook.Sheets(1).Range("f7"), Sql:=SQLstring)
.BackgroundQuery = False
.FieldNames = False
.RefreshStyle = xlOverwriteCells
.Refresh BackgroundQuery:=False

SQLstring = "SELECT * FROM borc_alacak_euro where BAKIYE<-5 ORDER BY UNVANI"

With Sheets(1).QueryTables.Add(Connection:=ConnectString, Destination:=Range("a7"), Sql:=SQLstring)
.BackgroundQuery = False
.FieldNames = False
.RefreshStyle = xlOverwriteCells
.Refresh BackgroundQuery:=False

NewBook.Sheets(1).Range("B14").Font.Size = 14
NewBook.Sheets(1).Range("B3") = "AKTIV"
NewBook.Sheets(1).Range("G3") = "PASSIV"
NewBook.Sheets(1).Range("C6") = "EURO"
NewBook.Sheets(1).Range("D6") = "AZN"
NewBook.Sheets(1).Range("C16") = "AZN"
NewBook.Sheets(1).Range("H6") = "EURO"
NewBook.Sheets(1).Range("I6") = "AZN"
NewBook.Sheets(1).Range("B4") = "GUNUN EURO KURSU"
NewBook.Sheets(1).Range("B5") = "GUNUN USD KURSU"
NewBook.Sheets(1).Range("B6") = "AVANS VERDIYIMIZ"
NewBook.Sheets(1).Range("B16") = "BORCLU MUSTERILER"
NewBook.Sheets(1).Range("B15") = "TOPLAM"
NewBook.Sheets(1).Range("g6") = "MAL GONDERENLER"
NewBook.Sheets(1).Range("g21") = "AVANS VERENLER"
NewBook.Sheets(1).Range("C2:C1000").NumberFormat = "#,##0.00"
NewBook.Sheets(1).Range("h2:h1000").NumberFormat = "#,##0.00"
NewBook.Sheets(1).Range("B3:B6").Font.Bold = True
NewBook.Sheets(1).Range("C6:I6").Font.Bold = True
NewBook.Sheets(1).Range("G21").Font.Bold = True
NewBook.Sheets(1).Range("B16").Font.Bold = True
NewBook.Sheets(1).Range("G3:G6").Font.Bold = True
NewBook.Sheets(1).Range("B3:G3").HorizontalAlignment = xlCenter
NewBook.Sheets(1).Range("C66").HorizontalAlignment = xlCenter
NewBook.Sheets(1).Range("B16").HorizontalAlignment = xlCenter
NewBook.Sheets(1).Range("G6").HorizontalAlignment = xlCenter
NewBook.Sheets(1).Range("G21").HorizontalAlignment = xlCenter
NewBook.Sheets(1).Range("B6:I6").HorizontalAlignment = xlCenter
NewBook.Sheets(1).Columns("A").Select
Selection.EntireColumn.Hidden = True
NewBook.Sheets(1).Columns("F").Select
Selection.EntireColumn.Hidden = True

NewBook.Sheets(1).Range(Range("A1:J3000"), ActiveCell.SpecialCells(xlLastCell)).Font.Size = 10
NewBook.Sheets(1).Range(Range("A1:J3000"), ActiveCell.SpecialCells(xlLastCell)).Font.Name = "Times New Roman"

ConnectString = "ODBC;DRIVER=SQL Server;SERVER=" & TextBox1 & ";UID=;APP=Microsoft Office 2003;WSID=PL04;Trusted_Connection=Yes; DATABASE=" & TextBox2 & "" _

SQLstring = "SELECT * FROM borc_alacak_AZN where BAKIYE>5 ORDER BY UNVANI"

With Sheets(1).QueryTables.Add(Connection:=ConnectString, Destination:=Range("a17"), Sql:=SQLstring)
.BackgroundQuery = False
.FieldNames = False
.RefreshStyle = xlOverwriteCells
.Refresh BackgroundQuery:=False


ConnectString = "ODBC;DRIVER=SQL Server;SERVER=" & TextBox1 & ";UID=;APP=Microsoft Office 2003;WSID=PL04;Trusted_Connection=Yes; DATABASE=" & TextBox2 & "" _

SQLstring = "SELECT * FROM borc_alacak_AZN where BAKIYE<-5 ORDER BY UNVANI"

With Sheets(1).QueryTables.Add(Connection:=ConnectString, Destination:=Range("f22"), Sql:=SQLstring)
.BackgroundQuery = False
.FieldNames = False
.RefreshStyle = xlOverwriteCells
.Refresh BackgroundQuery:=False
End With
End With
End With
End With
Unload Balans
End Sub

Hocam bir de Her biti&#351;ler (mesela Range("f22")) den ba&#351;layan ve nerde biteceyi belli olmayan verilerin toplam&#305;n&#305; ala bilirmiyis?
&#350;imdiden ilginiz i&#231;in te&#351;ekk&#252;r ederim