Bilgi Aktarma

[musaertunc]

arkadaşlar günü gelmiş bir tarihi 2nci sayfaya bütün satırı nasıl aktarabilirim

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

■ ThisWorkbook(BuÇalışmaKitabı) kod kısmına

Private Sub Workbook_Open()
    Dim i As Integer
    With Sheets("Sayfa1")
    For i = 1 To .Range("A65536").End(3).Row
        If .Cells(i, "A") >= VBA.Date Then
            .Rows(i).Cut Sheets("Sayfa2").Range("A65536").End(3)(2, 1)
        End If
    Next i
    End With
    i = empty
End Sub

Not: Sayfa adlarını dosyanıza göre değiştirirsiniz. Tarihlerin de A sütununda olduğunu düşündüm. Kodlar dosya açılışında çalışır...

 

[musaertunc]

murat beycim ben hiç anlamıyorum diyebileceğim kadar acemiyim bilisayar konusunda daha detaylı bir yardım edermisin

 

[Murat OSMA]

Peki..

Örnek bir dosya ekledim.
Eğer dosya açıldığında Sayfa1'in A sütunundaki tarihler bugüne eşit veya bugünden büyükse o satırları Sayfa2'ye aktarır.


Yazdıklarıma, dosyaya ve kodlara bakarsanız kendiniz dosyanıza uyarlayabilirsiniz.
Yapamazsanız dosyanızı gönderirsiniz.



İyi akşamlar..

 

[musaertunc]

teşekkürler yardmınız için yapmak istediğim çok şey var ama cahillik zor iş