şarta göre kes aktar

[asilme]

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

 

[suleyman242]

İncelermisin.

 

[asilme]

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ü

 

[suleyman242]

I sütutuna tarih ekleyebilirmiyiz.aktardığı günün tarihini mümkünmü

İncelermisin.

 

[asilme]

eline koluna sağlık hakkını helal et

 

[suleyman242]

eline koluna sağlık hakkını helal et

Teşekkürler, kolay gelsin.

 

[asilme]

İncelermisin.

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.

 

[Emir Hüseyin Çoban]

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.

. . .

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

. . .

 

[asilme]

çok teşekkür ederim elinize sağlık

 

[Duyguu]

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

 

[tahsinanarat]

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.

 

[Duyguu]

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

 

[Duyguu]

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

 

[Emir Hüseyin Çoban]

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

. . .

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

. . .

 

[Duyguu]

Ç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