• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

şarta göre kes aktar

A

asilme

Katılım
18 Ekim 2012
Mesajlar
323
Excel Vers. ve Dili
2003 tr
arkadaşlar ekli dosyada takip ettiğimiz bir evrak kaydımız var.burada güne göre evrakları takip ediyoruz.şuan istediğimiz sadece sadece sayfa 1 h sütununa yapıldı diye yazıldığından o satırın tamamen silinip sayfa 2 ye alt alta yazılarak listelenmesi.yani gereğine yapıldı yazınca (sayfa 1 h sütutu) o satırın sayfa 1 den silinip sayfa 2 ye eklenmesi. hatta mümkünse eklenen satıra eklendiği tarih eklenebilir ancak o daha ileri bir konu yardımlarını bekliyorum şimdiden uğraştığınız için hakkınızı helal edin
 

Ekli dosyalar

elinize kolunuza sağlık süleyman 242 çok günel olmuş hakkınızı helal edin.ayrıca sayfa 2 ye satır yapıştırılıyor buna ek olarak sayfa 2 de yapıştırma yapınca I sütutuna tarih ekleyebilirmiyiz.aktardığı günün tarihini mümkünmü
 
asilme' Alıntı:
syn Süleyman242 bu aktar makrosu aktardığında D sütunundaki formülü aktarıyor değeri aktarmak için ne yapmam gerekiyor yardımcı olabilirmisiniz.
Genişletmek için tıkla ...
. . .

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    Set sh = Sheets("sayfa1")
    Set st = Sheets("sayfa2")
        If Target.Column = 8 Then
           If sh.Range("H" & Target.Row).Value = "yapıldı" Then
                    sonstr = st.[A65536].End(3).Row + 1
                    shson = Target.Row
                    sh.Rows(Target.Row & ":" & Target.Row).Select
                    Selection.Copy
                    Sheets("Sayfa2").Activate
                   [B][COLOR="Blue"] st.Range("A" & sonstr).PasteSpecial Paste:=xlPasteValues[/COLOR][/B]
                    st.Cells(sonstr, "i").Value = Format(Now, "dd.mm.yyyy") 'tarihi yazmak için
                    Sheets("Sayfa1").Activate
                    sh.Rows(Target.Row & ":" & Target.Row).Select
                    Selection.Delete Shift:=xlUp
                    sh.Range("A" & shson).Select
                    MsgBox "İşlem Tamam !" & vbLf & " İyi Günler !", vbCritical, "MESAJ"
                End If
        End If
        Application.CutCopyMode = False
End Sub

. . .
 
Kod Hakkında

Burada verilen kod aslında benimde işime yarayabilir.
Lakin bu kodu nasıl ve nereye copy - paste edeceğimi bilemedim.
Müsait olan arkadaşlar bu konuda banada yardımcı olabilirmisiniz.

teşekkürler
 
Sn.Duyguu, copyaladığınız kodu sayfanın isminin yazdığı sekme üzerinde sağ tıklayarak, kod görüntüle seçeneğini seçtiğinizde gelen alana yapıştırmalısınız.
 
Yeni bir excel sayfası açtım Dediğiniz Gibi Yaptım Sayfa1 Yazan yere sağ tıkladım Kod Görüntüle dedim ve yapıştırdım. sayfa 2 de bir değişiklik olmadı. (hatta Sayfa 1 e bir sürü hücreye yapıldı yazdım)
Nerede yanlışlık yaptım Bilemiyorum
 
Sorun Çözüldü "Yapıldı" Kod bölümünde "yapıldı" diye yazılı olduğu için olmuyormuş.
Çalışınca çocuk gibi sevindim :)))

Lakin ilk sayfada aktardığı kaydı siliyor, silmese de kopyasını gönderse çok daha işime yarar. Kodu ona göre düzenleyebilecek arkadaşlar müsait olunca yardımcı olurlar ise sevinirim.
Şimdiden teşekkürler
 
Duyguu' Alıntı:
Sorun Çözüldü "Yapıldı" Kod bölümünde "yapıldı" diye yazılı olduğu için olmuyormuş.
Çalışınca çocuk gibi sevindim :)))

Lakin ilk sayfada aktardığı kaydı siliyor, silmese de kopyasını gönderse çok daha işime yarar. Kodu ona göre düzenleyebilecek arkadaşlar müsait olunca yardımcı olurlar ise sevinirim.
Şimdiden teşekkürler
Genişletmek için tıkla ...
. . .

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    Set sh = Sheets("sayfa1")
    Set st = Sheets("sayfa2")
        If Target.Column = 8 Then
           If sh.Range("H" & Target.Row).Value = "yapıldı" Then
                    sonstr = st.[A65536].End(3).Row + 1
                    shson = Target.Row
                    sh.Rows(Target.Row & ":" & Target.Row).Copy
                    Sheets("Sayfa2").Activate
                    st.Range("A" & sonstr).PasteSpecial Paste:=xlPasteValues
                    st.Cells(sonstr, "i").Value = Format(Now, "dd.mm.yyyy") 'tarihi yazmak için
                    Sheets("Sayfa1").Activate
                [COLOR="Green"]    'sh.Rows(Target.Row & ":" & Target.Row).Select
                    'Selection.Delete Shift:=xlUp
                    'sh.Range("A" & shson).Select
                    [/COLOR]MsgBox "İşlem Tamam !" & vbLf & " İyi Günler !", vbCritical, "MESAJ"
                End If
        End If
        Application.CutCopyMode = False
End Sub

. . .
 
Çok Teşekkürler sayfa1 den yapıldı yazılınca kopyasını sayfa2 ye atıyor.
Peki olaki ben bu listeyi aylık hazırlıyorum ve zaman içinde cevap değişirse; yani yapıldı cevabını ertesi gün ben yapılmadı olarak değiştirirsem sayfa2 den tekrar silinmesini nasıl sağlarım. O zaman evrakın Id sinimi baz almak gerekecek (Bilgisizce bir Çözüm yaptım sadece)
veya sizce çözüm nasıl olabilir??
Konuyla ilgilenen arkadaşlara ayrıca excel.web.tr sitesi kurucularına böyle bir platform hazırladıkları için çok teşekkür ederim
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst