Excelde zamana göre sayfaya bilgi aktarımı

[37hikmet]

Excel sayfasındaki bilgileri karışısındaki zamana göre hafta hafta veya ay ay istenilen başka sayfaya sıraya göre taşımak istiyorum. İstenilen sayfada sadece içerisinde bulunulan hafta veya ayın bilgileri olacak Böyle birşey mümkün müdür? Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Dim SB As Worksheet, SE As Worksheet
    Dim İLK_GÜN As Date, SON_GÜN As Date
    Set SB = Sheets("bilgigirişi")
    Set SE = Sheets("ekran")
    SE.[A2:C65536].ClearContents
    İLK_GÜN = DateSerial(Year(Now), Month(Now), 1)
    SON_GÜN = DateSerial(Year(Now), Month(Now) + 1, 0)
    SB.[A1].AutoFilter Field:=3, Criteria1:=">=" & CLng(İLK_GÜN), _
    Operator:=xlAnd, Criteria2:="<=" & CLng(SON_G&#220;N)
    SB.[A1].CurrentRegion.Copy SE.[A1]
    SB.[A1].AutoFilter
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim EKR As Worksheet
Dim SON As Integer
If Intersect(Target, [C2:C1000]) Is Nothing Then Exit Sub
Set EKR = Sheets("ekran")
SON = EKR.Cells(65536, "A").End(3).Row + 1
If Target = Date Then
Range(Cells(Target.Row, "A"), Cells(Target.Row, "C")).Copy
EKR.Cells(SON, "A").PasteSpecial xlValue
End If
Application.CutCopyMode = False
End Sub

 

[37hikmet]

teşekkür

Korhan bey teşekkürle.Arkadaşlar inanırmısınız. Excel hakkında fazla bilgim yoktu.Ama bu site sayesinde çok mükemmel olduğuna inandığım okul idari işler proğramı yaptım.Yakında buradan yayınlayacağım.

 

[tahsinanarat]

Sn. N.Ziya Hiçdurmaz ben sizin dosyayı çalıştıramadım, bakabilirmisiniz