Ödendi Yazınca, Bilgileri Diğer Sayfaya Atsın

[mschumi]

Arkadaşlar Merhaba,

Ekteki dosyada G sütununda "Ödendi" yazınca, ödendi yazılan hücreyi diğer sayfaya biçimleriyle birlikte nasıl yazdırabiliriz.

Bu sorunu formüllerle çözebilir miyiz?
Formülle çözemez isek makro çözümü hakkında yardım edebilir misiniz?

 

[apocalyt]

bunu makro ile çözebiliriz..aşağıdaki kodu sayfa1 sekmesine sağ klik yapıp kod görüntüle diyiniz..sonra açılan kopyalayınız..artık g sutununda ödendi yazdığınız takdirde o satır arka sayfaya kopyalanacaktır..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g2:g1000")) Is Nothing Then Exit Sub
If Target = "ÖDENDİ" Then
Range("a" & Target.Row & ":g" & Target.Row).Copy
Sheets(2).Range("a" & Sheets(2).[a10000].End(3).Row + 1).PasteSpecial (xlPasteAll)
End If
Application.CutCopyMode = False
End Sub

 

[mschumi]

sayın apocalyt

ekte resimde var olan hatayı veriyor ama, bakma şansınız olur mu?

 

[apocalyt]

hata verir..çünkü başına "sub satır() " yazmışsınız..benim bu yazdığım sayfaya kaydedilmesi gerekiyo..yukarıda anlattım ancak dedğimi yapmamışsınız..bakın altta sayfa1 sayfa2 sekmeleri var..sayfa 1 sekmesine sağ klik yapın..kod görüntüle diyin..sonra açılan sayfaya benim kodu kopyalayın..ekleme yapmayın..sonra sayfayı kapatıp g hücresine ödendi yazıp sonuçları nceleyin..

 

[mschumi]

dediğiniz gibi kodları yapıştırdım ve vba ekranını kapattım.
g sütununda herhangi bir yere ödendi yazdıktan sonra ekteki hatayı verdi.

 

[apocalyt]

dosyanız ekte..bir deneyin..

 

[mschumi]

apocalyt çok teşekkür ederim.

elinize aklınıza sağlık.

iyi çalışmalar

 

[apocalyt]

rica ederim..sizde saolun..