excel belgeye kod uygulaması

[iplikci_80]

Ek'te sundğum dosyada, Sayfa1 deki k sütununa herhangibir tarih değeri girildiğinde, o satırı silip sayfa2 ye kopyalacak. kopyaladıktan sonra A ve B hücrelarindeki değerleri silip o satırın X ve Y hücrelerine atmasını sağlamak istiyorum. yardımcı olabilirseniz mutlu olurum. Şimdiden herkese TEŞEKKÜRLER

Çalışma yaptığım kodlar belge içindedir

 

[Korhan Ayhan]

Selamlar,

Aynı soruyu başka başlıkta sormuştunuz ve yanıt vermiştik. İşinize yaramadı mı?

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

 

[iplikci_80]

merhabalar

Burada yapmak isteğim biraz daha değişik gönderdiğm belgede birtakım çalışmalar yaptım ama başarmadım.

 

[Korhan Ayhan]

Selamlar,

Ben çok fark göremedim. Sadece sütun bilgisi değişmiş. Bunuda sizlerin uyarlaması gerekir diye düşünüyorum.

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Satır As Long
    If Intersect(Target, Range("K2:K65536")) Is Nothing Then Exit Sub
    If IsDate(Target) Then
        Satır = Sheets("Sayfa2").Range("K65536").End(3).Row + 1
        Range("A" & Target.Row & ":K" & Target.Row).Copy Sheets("Sayfa2").Range("A" & Satır)
        Target.EntireRow.Delete
        Sheets("Sayfa2").Range("X" & Satır & ":Y" & Satır).Value = Sheets("Sayfa2").Range("A" & Satır & ":B" & Satır).Value
        Sheets("Sayfa2").Range("A" & Satır & ":B" & Satır).Value = Empty
    End If
End Sub

 

[iplikci_80]

ayırdığımız zaman ve emek için teşekkürlür