Raporlamadaki sorun

[İsmail Küçükşengün]

Merhabalar;

Forumdaki bir örnekten kendi çalışmama uyarlamak istediğim, Raporlamada;

Formdan 2 veya 3 veri seçildiğinde, bazen seçilenden fazla raporlama yapmakta.

Açıklama "liste" sayfasında.

Bir de, raporlamanın yapılacağı yer konusundaki yardımlarınız için şimdiden teşekkürler.

İyi akşamlar...

 

[İsmail Küçükşengün]

Formdan hangileri seçilsiyse, sadece onların raporlanması hususunda yardımlarınız. :yardim:

 

[abdi]

kucuksengun,
formunuzda kullanılan raporla buton kodlarını aşağıdaki ile değiştiriniz.
[vb:1:bfc96bafcd]
Private Sub CommandButton1_Click()
Dim a As Integer

Sheets("liste").Select

Columns("a:m").Copy
Sheets("raporlama").Select
Columns("BO").PasteSpecial
Application.CutCopyMode = False
Sheets("liste").Select
For a = 13 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("raporlama").Columns(a + 66).Delete
Next
End Sub[/vb:1:bfc96bafcd]

 

[İsmail Küçükşengün]

Sayın Abdi;

Çok teşekkür ediyorum.

Acaba daha önceden, istenenden fazla veriyi neden rapoluyordu.

Selam ve saygılarla....

 

[abdi]

Sayın kucuksengun,
istenen verilerden 2 tane fazlasını raporluyordu çünki buradaki program işleyişi ona göre yapılmış
sizde 13 adet checkbox nesnesi varken
döngü 11 adede göre çalışıyor ve 2 tane adaha veriyi ilave ediyordu.

bunun için tamamen checkbox nesnesi eklemenizle alakalı ilerde
bu forma raporlamada başka özellik eklemek istersenizki yine checkbox ilave edeceksiniz ilgili yerleri değiştirince yine fazladan veri getirdiğini görürsünüz
[vb:1:08a01d0e33]For a = 13 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("raporlama").Columns(a + 66).Delete
Next
[/vb:1:08a01d0e33]
for döngünün başlangıcına birde formunuzda bulunan checkbox nesnesinin adetlerine dikkat
ilerde forma 2 tane daha check box koyarsanız for döngüsündeki başlangıç sayısınıda +2 ilave edip 15 yapacaksınız
bütün mesele budur
saygılar sunar
Çalışmalarınızda Başarılar Dilerim.

 

[ocamsul]

Sayın abdi raporlamayı, rapor sayfasının a1 hücresinden itibaren yapmak istedim; ancak tüm verileri kopyaladı.

Private Sub CommandButton1_Click()
Dim a As Integer

Sheets("liste").Select

Columns("a:m").Copy
Sheets("raporlama").Select
Columns("a").PasteSpecial
Application.CutCopyMode = False
Sheets("liste").Select
For a = 13 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("raporlama").Columns(a + 66).Delete
Next
End Sub

 

[İsmail Küçükşengün]

Sayın Abdi;

İlgine ve paylaşımına gerçekten çok teşekkür ederim.

Keşke dünyamızdaki tüm insanlar (her konuda) böyle karşılıksız paylaşmayı bilse.
Çok şey daha da güzel olur.

Bu imkanı veren forum kurucu ve yöneticilerine de teşekkür azdır.

 

[abdi]

Sayın kucuksengun,
yada avukat ismail abi
bende rica eder
Çalışmalarınızda Başarılar dilerim.

 

[abdi]

Sayın abdi raporlamayı, rapor sayfasının a1 hücresinden itibaren yapmak istedim; ancak tüm verileri kopyaladı.

Private Sub CommandButton1_Click()
For a = 13 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("raporlama").Columns(a + 66).Delete
Next
End Sub

[vb:1:fe0afd5768]For a = 13 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("raporlama").Columns(a).Delete
Next[/vb:1:fe0afd5768]

yani kodunuz şöyle olacak
[vb:1:fe0afd5768]Private Sub CommandButton1_Click()
Dim a As Integer

Sheets("liste").Select

Columns("a:m").Copy
Sheets("raporlama").Select
Columns("a").PasteSpecial
Application.CutCopyMode = False
Sheets("liste").Select
For a = 13 To 1 Step -1
If Controls("checkbox" & a).Value = False Then Sheets("raporlama").Columns(a).Delete
Next
End Sub [/vb:1:fe0afd5768]

 

[canercan02]

Ustalar selam;
kendi yapacağım bir işlem için raporlama başlıklarını arattığımda bu başlığı gördüm ve bu başlık altında verilen örneğe yakın bir işlem kullanmam gerekiyor. yine farklı sütunlarda veriler saklı bu verilerden istediğim sütunu almam gerekecek veritabanımdaki C sütununda kurum adları mevcut. fakat raporlama yaparken seçeceğim diğer sütunlarla beraber C sütunundanki verilerden kendi kurumumda olan verileri secmem gerekiyor.
yani ekli formda kurumu seçeneği tıklandığında açılacak bir combobox ile veritabanı sayfasında kayıtlı kurum adlarından istediğim kurumu seçtiğimde sadece o kuruma ait veriler listelemem gerekecek.
örnektekinden pek farklı olmadığı için örnek eklemiyorum. sorunumu sanırım anlatabilmişimdir. saygılarımla

 

[canercan02]

sayın ustalar yapmak istediklerimin bir çoğunu sn leventm ustamın
http://www.excel.web.tr/viewtopic.php?t=12710
sayfasındaki bilgiler yardımı ile yaptım. fakat bir noktada takıldım. verileri süzerken modüle2 deki sorunu, belki çok basittir ama bir türlü aşamadım. yardımcı olursanız sevinirim. ekteki formda module2 deki hataya bakarsanız anlarsınız. ben form üzerindeki combobox1 de seçilen değere göre süzme yapmak istiyorum fakat değeri metin olarak girdiğimde hata vermiyor. combobox1 değerini yazmaya çalıştığımda hata veriyor.
herkese selamlar....

 

[canercan02]

arkadaşlar hepinize teşekkür
modüle2 yi iptal edip
suz komutu verdiğim yere
Sheets("veritabani").Select
Selection.AutoFilter Field:=3, Criteria1:=ComboBox1.Value
yazdığımda belittiğim sorun halloldu.
Allah hepinizden razı olsun.