Farklı 2 sayfadaki girişleri 3. sayfada listelemek

[agir]

kolay gelsin

benim sorunum şöyle.

3 sayfalı bir excel dosyam var. bunlar Gelir Gider ve Rapor..
gelir ve gider sayfalarına günlük olarak veri girişi yapılacak.
rapor sayfasında belirlenen iki hücredeki tarih aralğını girip onayladığımızda
o tarih aralığındaki yapılan tüm işlemler rapor sayfasında görünmesini istiyorum acaba mümkünmü ??

şimdiden teşekkür ederim. iyi çalışmalar.

 

[Civan Jack]

Sayfanın kod kısmına yazıp deneyin;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "C3" Then Exit Sub
    Range("A7:H1000", "J7:O1000").ClearContents
    Dim i As Integer, x As Integer
    For i = 3 To Sayfa1.Range("B65536").End(3).Row
        If CLng(CDate(Sayfa1.Cells(i, "b"))) >= Range("C2").Value And _
           CLng(CDate(Sayfa1.Cells(i, "b"))) <= Target.Value Then
            Sayfa1.Cells(i, 2).Resize(, 8).Copy Range("A65536").End(3)(2, 1)
        End If
    Next i
     For i = 3 To Sayfa2.Range("B65536").End(3).Row
        If CLng(CDate(Sayfa2.Cells(i, "b"))) >= Range("C2").Value And _
           CLng(CDate(Sayfa2.Cells(i, "b"))) <= Target.Value Then
            Sayfa2.Cells(i, 2).Resize(, 6).Copy Range("J65536").End(3)(2, 1)
        End If
    Next i
    i = Empty: x = Empty
End Sub

 

[agir]

çoook teşekkür ederim

ne kadar da hızlı cevap yazdın Civan Jack arkadaşım şok oldum.

 

[Civan Jack]

Önemli değil. İyi günler.

 

[agir]

tekrar kolay gelsin
bu gonderimiş olduğum dosyada başka bir sayfada isme göre listeleme yapabilirmiyim?
pek beceremedim

şimdiden çok teşekkür ederim.

 

[agir]

kolay gelsin
yukarıdaki makroya ek olarak ekteki dosyada rapor sayfasında bazı verilerin eklenmesini istiyorum acaba mümkünmü
şimdiden iyi çalışmalar.

 

[drykcktl]

Önemli değil. İyi günler.

bu makroyu farklı sayfalardan tek sayfaya toplamak için ne yapmak gerek yardımcı olurmusunuz

 

[drykcktl]

Sayfanın kod kısmına yazıp deneyin;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "C3" Then Exit Sub
    Range("A7:H1000", "J7:O1000").ClearContents
    Dim i As Integer, x As Integer
    For i = 3 To Sayfa1.Range("B65536").End(3).Row
        If CLng(CDate(Sayfa1.Cells(i, "b"))) >= Range("C2").Value And _
           CLng(CDate(Sayfa1.Cells(i, "b"))) <= Target.Value Then
            Sayfa1.Cells(i, 2).Resize(, 8).Copy Range("A65536").End(3)(2, 1)
        End If
    Next i
     For i = 3 To Sayfa2.Range("B65536").End(3).Row
        If CLng(CDate(Sayfa2.Cells(i, "b"))) >= Range("C2").Value And _
           CLng(CDate(Sayfa2.Cells(i, "b"))) <= Target.Value Then
            Sayfa2.Cells(i, 2).Resize(, 6).Copy Range("J65536").End(3)(2, 1)
        End If
    Next i
    i = Empty: x = Empty
End Sub

bu makroyu farklı sayfalardan tek sayfaya toplamak için ne yapmak gerek yardımcı olurmusunuz

 

[drykcktl]

kolay gelsin
yukarıdaki makroya ek olarak ekteki dosyada rapor sayfasında bazı verilerin eklenmesini istiyorum acaba mümkünmü
şimdiden iyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)
Target = BH(Target)
End Sub

Function BH(cevir)
BH = Replace(cevir, "i", "İ")
BH = Replace(BH, "ı", "I")
BH = UCase(BH)
End Function


gider sayfasındaki verileri silmek istediğimde aşağıdaki hatayı alıyorum neden olabilir

Function BH(cevir)
BH = Replace(cevir, "i", "İ")
BH = Replace(BH, "ı", "I")
BH = UCase(BH)
End Function


BH = Replace(cevir, "i", "İ") kırmızı olan bu kısım sarı oluyor

 

[bestofwesd]

merhaba

arkadaşlar benim konuyla da ilgilenebilirmisiniz ?

tşk

http://www.excel.web.tr/f48/listeden-forma-bilgi-ekleme-ve-print-etme-t131531.html