• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

neden arama tarihle sınırlı

M

mutluedenercan

Katılım
9 Aralık 2009
Mesajlar
532
Excel Vers. ve Dili
2007,5
fotokopi programında rapor kısmına basınca,

yanlızca o ayın verilerini veriyor ..

tümünü vermiyor ( aranan hasabın bütün dökümünü vermek yerine yanlızca son ayın verilerini döküyor neden)

verdiğim kodların neresini değiştirmem gerek, yardımcı olurmusunuz

Private Sub CommandButton3_Click()
If ComboBox6 = "" Or WorksheetFunction.CountIf(Sheets("DATA").Range("A2:A65536"), ComboBox6.Text) = 0 Then
MsgBox "Listeden Sınıf/Öğretmen Seçmedinki Gardaş Ben ne yapam", vbCritical, " *** Ercan BALKAN ***"
Exit Sub
End If

ActiveWorkbook.Sheets("RAPOR").Range("A2:F65536").ClearContents

With ActiveWorkbook.Sheets("LİSTE")
.Range("A1").AutoFilter field:=1, Criteria1:=ComboBox6.Text
If .Range("A65536").End(3).Row > 1 Then
.Range("A2:F" & .Range("A65536").End(3).Row).Copy ActiveWorkbook.Sheets("RAPOR").Range("A65536").End(3).Offset(1)
End If
.Range("A1").AutoFilter
End With
Dim tplm, bky As Long
tplm = Sheets("RAPOR").Cells(65536, "A").End(xlUp).Row + 2
bky = Sheets("RAPOR").Cells(65536, "A").End(xlUp).Row + 3
Sheets("RAPOR").Cells(tplm, "A").Value = "TOPLAMLAR :"
Sheets("RAPOR").Cells(tplm, "B").Value = Format(Now, "dd.mm.yyyy")
Sheets("RAPOR").Cells(tplm, "C").Value = Label17.Caption
Sheets("RAPOR").Cells(tplm, "D").Value = Label18.Caption
Sheets("RAPOR").Cells(tplm, "E").Value = Label19.Caption
Sheets("RAPOR").Cells(tplm, "F").Value = Label20.Caption
Sheets("RAPOR").Cells(bky, "A").Value = "BAKİYE : " & Format(Label23.Caption, "#,##0.00") & " TL."
Sheets("RAPOR").Cells(bky, "B").Value = "-"
Sheets("RAPOR").Cells(bky, "C").Value = "-"
Sheets("RAPOR").Cells(bky, "D").Value = "-"
Sheets("RAPOR").Cells(bky, "E").Value = "-"
Sheets("RAPOR").Cells(bky, "F").Value = "-"
Label82.Caption = "Rapor : " & ComboBox6.Value & ""
ListBox4.ColumnCount = 6
ListBox4.ColumnWidths = "200,100,80,80,80,80"
ListBox4.RowSource = "RAPOR!A1:F" & ActiveWorkbook.Sheets("RAPOR").Cells(65536, "A").End(xlUp).Row
MultiPage1.Value = 5
End Sub
 
Merhaba

Özel bilgilerinizi değiştirerek dosya ekleyebilirmisiniz.
 
Merhaba

Gönderdiğiniz dosyada Userform üzerinde kodlar var fakat başka hiç bir nesne yok(listbox4, commandbutton3, combobox6)

Böyle bir sonuca varılamaz
 
Aynen gönderdim , kullandığım program...bir yerini silmedim...

2003 kullanıyom ondanmı, çokta anlamıyom...

yani şu an bu program bende çalışıyor..
sadece rapor tuşuna basınca son ayı döküyor...tümünü dökmüyor

ilginize teşekkür
 
Merhaba

Bende denedim 1. aydan son aya kadar girilen verileri getiriyor. yazıcıdan döküm aldım sorun yok.

Zeynep hendek'in tarihleri üzerinde bazı değişiklikler yaptım ve rapor aldım


Gönderdiğim dosyayı inceleyiniz.
 

Ekli dosyalar

mesela en baştaki 1B 9. Ayda kaydı var ...rapor almaya kalkınca sadece10. aydakileri veriyor...

liste sayfasında var 9. ay kayıtları , rapora basınca yanlız 10.ay döküyor
 
Merhaba


Öncelikle şifre girdikten sonra önünüze gelen listede 1B yok
"1B" dediğiniz "1B Meral Şahin".
Siz onu seçtiğiniz içinde rapora "1B Meral Şahin"'in verileri geliyor.LİSTE sayfasındada "1B Meral Şahin"'in 9. aya ait verisi yok
Liste kutusuna isimler DATA sayfasından geliyor ve LİSTE sayfasındaki verilerle eşleştiriliyor DATA sayfasında 1B 1A gibi öğretmen isimleri yok

1B'ye göre rapor almak istiyorsanız DATA sayfasınada ilave yapmalısınız.
 
1B 13.09.2011 40 2,00
1B 13.09.2011 40 2,00
1B 14.09.2011 70 5,60
1B 15.09.2011 35 2,80
1B 15.09.2011 40 2,00
1B 19.09.2011 40 3,20
1B 19.09.2011 24 1,92
1B 21.09.2011 40 3,20
1B 21.09.2011 38 3,04
1B 22.09.2011 105 5,25
1B 22.09.2011 35 2,80
1B 23.09.2011 74 5,92
1B 26.09.2011 80 6,40
1B 27.09.2011 38 1,90
1B 28.09.2011 38 3,04
1B 28.09.2011 36 1,80
1B 29.09.2011 16 1,28
1B 29.09.2011 62 4,96
1B ( Meral Şahin HARMAN ) 05.10.2011 34 1,70
1B ( Meral Şahin HARMAN ) 05.10.2011 36 2,88
1B ( Meral Şahin HARMAN ) 11.10.2011 68 5,44
1B ( Meral Şahin HARMAN ) 13.10.2011 35 2,80
1B ( Meral Şahin HARMAN ) 14.10.2011 35 1,75
1B ( Meral Şahin HARMAN ) 17.10.2011 70 5,60
1B ( Meral Şahin HARMAN ) 18.10.2011 35 1,75
1B ( Meral Şahin HARMAN ) 18.10.2011 35 2,80
1B ( Meral Şahin HARMAN ) 19.10.2011 35 2,80
1B ( Meral Şahin HARMAN ) 21.10.2011 105 8,40
1B ( Meral Şahin HARMAN ) 24.10.2011
1B ( Meral Şahin HARMAN ) 24.10.2011 38 1,90
1B ( Meral Şahin HARMAN ) 25.10.2011 38 1,90
1B ( Meral Şahin HARMAN ) 25.10.2011 35 1,75
1B ( Meral Şahin HARMAN ) 26.10.2011 70 5,60
1B ( Meral Şahin HARMAN ) 26.10.2011 35 2,80
1B ( Meral Şahin HARMAN ) 28.10.2011 35 2,80
1B ( Meral Şahin HARMAN ) 31.10.2011 37 1,85
1B ( Meral Şahin HARMAN ) 31.10.2011 35 2,80
1B ( Meral Şahin HARMAN ) 02.11.2011 210 16,80
1B ( Meral Şahin HARMAN ) 02.11.2011 35 2,80
Data sayfasında 1B nin 9. ay girdileri var ama Rapor almaya kalkınca sadece son ayı veriyor
 
Merhaba

O veriler DATA sayfasında değil LİSTE sayfasında
Biri 1B
biri 1B ( Meral Şahin HARMAN )

bunlar aynı değiller ben onu anlatmaya çalışıyorum

Liste kutusuna isimler DATA sayfasından geliyor ve 1B 1A gibi öğretmen isimleri yok
Veya isimler eksik girilmiş onları tamamlarsanız verileriniz gelir.

yani 1B olanları 1B (xxxxxxxxxxxx) gibi.

eğer 1B kendi başına ayrı diyorsanız.

DATA sayfasına 1B ... 1A vb ilave ediniz.
 
Son düzenleme:
Anladım Hocam,

Dediğinizi şimdi deniyorum...

Bir aksilik olursa dönerim...

bu aramaya yaptıran kodlar hangilleri merak ettim (datadan rapor sayfasına çeken kod)
 
Merhaba

Şifre girdikten sonra ilk önünüze gelen verileri DATA sayfasından RAPOR tuşuna bastıktan sonra LİSTE sayfasından çekiyor.

DATA SAYFASI : Toplamlar
LİSTE SAYFASI : Detaylar

Userform'da listeden seçtiğiniz ismi Combobox6'ya yazıyor.
o ismi LİSTE sayfasında veri süz ile süzdürüp RAPOR sayfasına atıyor.
RAPOR sayfasındaki bilgileride Userformda Liste kutusunda göstertiyor ve istenirse yazıcıdan çıktısını aldırıyor

Veri süzme ve kopyalama kısmı aşağıdadır
Kod: 
......
.....
With ActiveWorkbook.Sheets("LİSTE")
    .Range("A1").AutoFilter field:=1, Criteria1:=ComboBox6.Text
    If .Range("A65536").End(3).Row > 1 Then
    .Range("A2:F" & .Range("A65536").End(3).Row).Copy ActiveWorkbook.Sheets("RAPOR").Range("A65536").End(3).Offset(1)
    End If
    .Range("A1").AutoFilter
End With
....
....
 
Son düzenleme:
Değerli emek verenler,

bende öğrenem diye soruyom, bu kodun anlamı şumu:

With ActiveWorkbook.Sheets("LİSTE")
LİSTE SAYFASINA GİT
.Range("A1").AutoFilter field:=1, Criteria1:=ComboBox6.Text
A1 İ SEÇ (NEDEN SEÇTİ NE GEREK VAR) aUTOFİLDER NE ? criterial1 NE ?
If .Range("A65536").End(3).Row > 1 Then
ŞAYET ENSON SATIRDAN 3 ÜSTÜ BÜYÜKSE 1 DEN DEVAM ET ( DOĞDUMU )
.Range("A2:F" & .Range("A65536").End(3).Row).Copy ActiveWorkbook.Sheets("RAPOR").Range("A65536").End(3).Offset(1)

A2 İLE F ARASINI RAPOR A KOPYALA (offset1 NE ? )


bİLGİ VERİRSENİZ SEVİNİRİM....


TEŞEKKÜR
End If
.Range("A1").AutoFilter
End With
 
Merhaba

Hayır doğru değil.

Sayın mutluedenercan öğrenme isteğiniz sevindirici ve elimizden geldiği kadarda yardım ederiz.

Siz öncelikle başlangıç için EXCEL DERSHANESİ bölümünü inceleyiniz.
ayrıca Makrolar ile ilgili kitap edinin.

Kendiniz makro kaydet yöntemiyle birşeyler yapıp sonra yaptığınız eylemlerin kodlarını inceleyiniz.
 
Efendim, bu pogramla ilgili bir sorum daha var ...

rapora basınca, yazdır geliyor ya, prıntırda kağida yatay sunlar sığmıyor taşan yatayı ikinci sayfada veriyor, yatay stunu bir sayfaya sığacak şekilde nasıl sığdırırız
teşekkür
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst