bugün girilen verileri listelemek

[Fuat Şirin]

arkadaşlar bir dosyam war cari hesap
bu dosyada 40 50 firmanın cari hesabı war
her cari farklı sayfalarda
benim istediğim bu gün girilen verileri rapor sayfasında listelemesi

 

[Orion1]

Merhaba.
Bence bir tane kısaltılmış bir örnek dosya eklemelisiniz.

 

[xxcell]

Aşağıdaki kod;
Rapor isimli sayfa dışındaki tüm sayfaların ( ne kadar varsa)
a sütununda girdiğiniz tarihi arar bulduğu kayıtların
a:d sütunlarını rapor sayfasına aktarır.

Sub aktar()
On Error GoTo cik:
tarih = InputBox("Tarih giriniz")


tarih = DateValue(tarih)
Call rapor_sayfasi_kontrol_et
Set rapor = Sheets("Rapor")
rapor.Cells.ClearContents

For kopyalanacak_sayfa = 1 To Sheets.Count

If Sheets(kopyalanacak_sayfa).Name <> "Rapor" Then
Set sayfa = Sheets(kopyalanacak_sayfa)

For kopyalanacak_satir = 2 To sayfa.[a65536].End(xlUp).Row

aktarilacak_satir = rapor.[a65535].End(xlUp).Row + 1

If sayfa.Cells(kopyalanacak_satir, "a") = tarih Then

sayfa.Range("a" & kopyalanacak_satir & ":k" & kopyalanacak_satir).Copy
rapor.Range("a" & aktarilacak_satir & ":K" & aktarilacak_satir).PasteSpecial

End If

Next

End If

Next
cik:
End Sub


Sub rapor_sayfasi_kontrol_et()
On Error GoTo cikis:
x = Sheets("rapor").Cells(1, 1)
Exit Sub
cikis:
Sheets.Add.Name = "Rapor"
End Sub

 

[Fuat Şirin]

dosya ektedir

dosya ekledim basit bişey
1 2 olan sayfaları
cari hesap olarka düşünün
ben 05.02.2007 de ne girmişim bakmak istiyorum
rapor sayfasında o güne ait girişleri ve hangi sayfadaysa gösteriyor
yardımcı olursanız sevinirim

 

[Fuat Şirin]

formda

bu verdiğiniz kodları formda nasıl kullanırım
textboxta mesela

 

[xxcell]

Yukarıda ufak bir duzeltme yapmam gerekti
Dosyanız ektedir.

 

[Fuat Şirin]

hocam güzel

hocam iki şey war
1.si hangi hesaba ait olduğu rapor a da yazsa
2.si de bunu textbox ve commamd buttonla yapabilirmiyiz
saygılar....

 

[xxcell]

userforma uyarlanmış hali

 

[xxcell]

sayfa adı da eklendi

 

[Fuat Şirin]

harika

tam süper oldu
elinize sağlık
maliyet prog da
büyük bir heyecanla bekliyoruz....

 

[Fuat Şirin]

hocam uyarlıyamadım

hem programı foruma ekleyelim
hemde bu kodları ben ekleyemedim
yardımcı olursanız
bu cari programı çoğu kişinin işine yarayacaktır inanıyorum

 

[Fuat Şirin]

arkadaşlar yardım edecek yok mu
makro sayfasında
sayfa yazan yerde hata veriyor yardım lütfeeeennnn

 

[Fuat Şirin]

yardım

arkadaşlar son eklediğim dosyanın
userform5 te hata veriyor yardım ederseniz sevinirim

 

[Fuat Şirin]

arkadaşlar yardım lütfen
bitirmem lazım bunu
elimde kaldı
uyarlıyamıyorum
mantığınıda anlayamadım
yardımcı olursanız sevinirim....