otomatik yapıştırma

[endymion]

Günlük olarak yaptığım tabloda sürekli yapmam gereken kopyala yapıştır türü bir işlem için nasıl bir formül yapılabilir? Örnek ekte
Şimdiden teşekkürler.

 

[Serdar SELEN]

D10 hücresine asagıdakı formulu yapıstır.


=EĞER(C10=C9;D9;"")

Kolay gelsin.

 

[leumruk]

Selamlar,

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [d2:d65536]) Is Nothing Then Exit Sub
If Target.Offset(0, -1) = Target.Offset(1, -1) And Target.Offset(0, -1) <> "" Then
Target(2, 1) = Target
End If
Son:
End Sub

 

[Zahir]

Merhaba yazdığınız kodu inceledim çok güzel olmuş ancak aşağıya doğru sadece 206 hücre kopyalıyor fakettinizmi acaba.

 

[leumruk]

Merhaba yazdığınız kodu inceledim çok güzel olmuş ancak aşağıya doğru sadece 206 hücre kopyalıyor fakettinizmi acaba.

Merhaba,
İncelerken farklı bir problemle karşılaştım. Onu düzelttim. no bölümü boş olan hücrenin yanında veri girdiğimde gereksiz ekleme oluyordu. O sorunu düzelttim.
Bahsettiğiniz sorunu şimdi farkettim: Sebebini bilemiyorum. Sanırım makro belii bir sayıdan sonra çalışmayı durduruyor. Eğer, bu sayıdan fazlasına ihtiyacınız varsa farklı yöntemlerle fazlasını da sağlayabiliriz.