Başlıklara çektiğim yazının adını yazsın

[emrebengul]

merhaba arkadaşlar
Veri düzenleme adına bir kod yazdım fakat bir yerde takıldım.
sayfa1de verileri alıyor sayfa2ye 1 satır boşluk bırakarak alıyor.
Yapmak istediğim ise burada hangi veri çekilmişse onun başlığını bir üst satıra yani boş olan satıra yazsın istiyorum.
Ve gruplandırma yapmasını istiyorum. Dosya ektedir.
teşekkür ederim.

 

[Haluk]

ADO ile hazırlanan alternatif ektedir....

.

 

[emrebengul]

teşekkür ederim sağ olun Haluk Bey

 

[emrebengul]

Haluk Bey başka bilgisayara aldığımda hata veriyor. Bu hatayı " Set objRS = objADO.Execute(strSQL)" veiyor. Gerekli bir veya daha fazla parametre için girilen değer yok diye acaba neden olabilir.

 

[Haluk]

Editörde "Microsoft ActiveX Data Objects 6.1 Lİbrary" eklediniz mi?

.

 

[emrebengul]

evet ekledim

 

[Haluk]

Ayrıca, sayfa isimlerini kontrol edin ve "Rapor" isimli sayfanın olduğundan emin olun.

.

 

[emrebengul]

çok teşekkür ederim sağ olun üstadım

 

[emrebengul]

üstadım son birşey soracağım kusura bakmayın her başlığın yanına çalışan sayısını yazdırma şansımız varmıdır?

 

[Haluk]

Aşağıdaki mevcut satırın;

        Sheets("Rapor").Range("A" & NoA + 2).CopyFromRecordset objRS

altına, bunu ekleyin;

        Sheets("Rapor").Range("B" & NoA + 1) = objRS.RecordCount

Bölüm başlıklarını olduğu A sütunu hücrelerinin yanındaki B sütunu hücrelerinde çalışan sayısı yerleştirilir...


.

 

[emrebengul]

teşekkür ederim üstadım.
çok oldum kusura bakmayın hocam. örnek olarak soruyorum meraktan gruplandırmayı kapalı halde getirme olasılığımız var mıdır?

 

[Haluk]

Yok...

.

 

[emrebengul]

teşekkür ederim...

 

[Korhan Ayhan]

Alternatif olarak işlemi makro yerine ÖZET TABLO kullanarak yaparsanız gruplandırma işlemini daha pratik şekilde yapabilirsiniz.

 

[emrebengul]

teşekkür ederim Korhan Bey sağ olun