Hücreye Tarih Yaz Satırı Diğer Sayfaya Aktarsın

[iplikci_80]

EK'te sunduğum belgenin kodunun Durum sütununa tarih değeri olacak şekilde düzeltebilirmiyiz lütfen TEŞEKKÜRLER

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E2:E65536")) Is Nothing Then Exit Sub
    If IsDate(Target) Then
    Target.Offset(0, -4).Resize(1, 4).Copy Sheets("Sayfa2").Range("A65536").End(3).Offset(1)
    End If
End Sub

 

[iplikci_80]

satır silip kopyalama makrosu

Arakadaşlar Ek'te sunduğum Kod'u Kitap1 uygulamak istiyorum; Kitap1 deki Z3 hücresine herhangibir tarih değeri girildiğinde o satırı silip kitap2 ye kopyalasın şeklinde düzenleyebilirmiyiz HERKESE TEŞEKKÜRLER

 

[Korhan Ayhan]

Selamlar,

Önerdiğim koddan performans alamadınız mı?

Cevap yazma gereği duymadan yeni kodlar ve dosya ekleyip tekrar yardım istiyorsunuz!

 

[iplikci_80]

herşey için teşekkürler ama belgeye uygulayamadım o yüzden

 

[Korhan Ayhan]

Selamlar,

Bu durumda verilen cevabı görmezden gelip başlığınıza yeni soru sormanız hiç hoş olmamış.

En azından "Verdiğiniz kodu kendi dosyama uyarlayamadım. Tekrar yardımcı olabilirmisiniz." diye mesaj yazabilirdiniz.

Aşağıdaki kodları deneyiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("Z3:Z65536")) Is Nothing Then Exit Sub
    If IsDate(Target) Then
    Rows(Target.Row).Copy Sheets("Sayfa2").Range("A65536").End(3).Offset(1)
    Target.EntireRow.Delete
    End If
End Sub