Sorguda dikey gelen tabloyu yataya çevirme..

[tamer42]

Merhabalar,

Data sayfasında Cinsiyeti "E" ve "K" olan bilgiler aşağıdaki sorgu ile çekildiği zaman;
Ekli 1. nolu ekran görüntüsü olarak gelmekte, 2. nolu ekran görüntüsündeki gibi gelmesi için nasıl bir yol takip edilebilir?

Sub Chart_Value()

Set SH = Sayfa1

SH.Range("A1:H10000").ClearContents

Set RS = VBA.CreateObject("adodb.RecordSet")

Sorgu = "Select [BRANS],[CİNSİYET], COUNT([ID_NO]) as Say From [Data$]"
Sorgu = Sorgu & " Group BY [BRANS],[CİNSİYET]"

RS.Open Sorgu, Con, 3, 1

SH.Range("A2").CopyFromRecordset RS

End Sub

desteğiniz için şimdiden teşekkürler,
iyi Çalışmalar.

 

[haliliyas]

Pivot/çapraz sorgularla ilgili bir araştırma işinize yarayabilir

 

[tamer42]

Pivot/çapraz sorgularla ilgili bir araştırma işinize yarayabilir

Halil Hocam teşekkür ederim.
Pivot/çapraz sorgularla ilgili araştırmalarım sonucunda aşağıdaki şekilde bir sorgu oluşturdum;
Ekli ekran görüntüsü oluşturdu, burada B sütununda yer alan Toplam Alanı silmek mümkün olabilir mi? olmazsa çokta önemli değil

Sorgu = "TRANSFORM COUNT([ID_NO]) AS TOPLAM " & _
"SELECT [BRANS], COUNT([ID_NO]) AS SAYIM " & _
"FROM [Sorgu$] " & _
"GROUP BY [BRANS] " & _
"PIVOT [CİNSİYET]"

iyi Akşamlar.

 

[Korhan Ayhan]

Sorgu sonucunu sayfaya aktardıktan sonra B sütununu silecek kodu eklerseniz çözüm olabilir..

 

[haliliyas]

Resmi harici bir siteye yükler misiniz? göremiyorum
ama isterseniz aşağıdaki kodu bir deneyin

Sorgu = "TRANSFORM Count([Data$].[ID_NO] ) AS Say " & _
        "SELECT [Data$].BRANS " & _
        "FROM [Data$] " & _
        "GROUP BY [Data$].BRANS " & _
        "PIVOT [Data$].CİNSİYET"