Tarihi dolan sütünun diğer sayfaya atması

[cem080]

Dederli hacalarım ben ihale tarihlerinin oldugu bir şeyler hazırladım bunların ihalesi olanın diger sayfaya atmasını istiyorum yardımcı olursanız çok sevinirim şimdiden çok teşekürler.ekte çalışmam var sadece formullerin eklenmesi gerekiyor

 

[Ömer]

Merhaba,

Module;

Sub Aktar()
Dim c As Range, sat As Long, ilkadres As Variant, Sy As Worksheet
 
Application.ScreenUpdating = False
Set Sy = Sheets("YAPILAN")
Sy.Range("B4:F" & Rows.Count).ClearContents
 
Sheets("YAPILACAK").Select
sat = 3
With Range("B:B")
    Set c = .Find(Date, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        ilkadres = c.Address
        Do
            sat = sat + 1
            Range("B" & c.Row & ":E" & c.Row).Copy Sy.Range("B" & sat)
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> ilkadres
    End If
End With
Application.ScreenUpdating = True
End Sub

Yapılan sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim Ss As Worksheet, son As Long

On Error Resume Next
If Intersect(Target, [F4:F10000]) Is Nothing Then Exit Sub

Set Ss = Sheets("SONUÇLARI")
son = Ss.Cells(Rows.Count, "B").End(xlUp).Row + 1
 
Application.ScreenUpdating = False
    If Target = "sonuç" Then
        Range(Target.Offset(0, -4).Address & ":" & Target.Address).Copy
        Ss.Range("B" & son).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    End If
    Application.CutCopyMode = False
Application.ScreenUpdating = True
    
End Sub

Eki inceleyiniz..

.

 

[cem080]

teşakkürler hocam

hocam verdiginiz bilgi için çok teşekkürler uygulamışsınız ama ben tam olarak derdimi anlatamamdım hocam belkide istedigim şey mümkun olmaya bilir sade olabilirmi olabilirse yardımcı olmanız şöyleki ben ihale tarihi ve bilgileri girdimde zamanı gelince ordan silinip diger sayfaya (biten ihaleler sayfasına ) gitmesini istiyorum ordanda sonuç kısmını doldurdugum zaman ondan sonraki sayfaya gitmesi çok teşekkür ettim şimdiden benim açtıgım konuya zaman ayırmanız bile çok güzel...

 

[Ömer]

Bu işlemleri kodlar yapıyor.

Siz aktar butonu değilde zamana bağlı makro mu istiyorsunuz. Eğer böyle ise tavsiye etmediğimi belirtmek isterim. Bu uygulamayı dosyanıza uygularsak arkada sürekli çalışan bir kod olur buda size muhakkak sorun yaratır.

Benim tavsiyem, eğer buton istemiyorsanız sayfa geçişlerinde çalışan bir kod uygulamak olur. Yinede siz bilirsiniz.

Gelecek cevabınıza göre düzenleme yaparım.

 

[cem080]

peki ömer hocam sayfa geçişlerinde çalışan bir kod uygulayalım teşekkürler

 

[Ömer]

#2 nolu mesaja ek olarak, "Yapılan" sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Activate()
    Call Aktar
End Sub

.