Çözüldü excelde bir hücredeki veriyi diğer sayfadaki aynı hücreye nasıl yapıştırabilirim?

[cobra26]

[TR][TD]
Merhaba
[/TD]
[TD]

[/TD][/TR]
[TR][TD]
Ahmet yazan a1 hücresini b2 hücresine aldı yazdığımda, bu a1, ile k1 hücresini kesip
[/TD]
[TD]

[/TD][/TR]
[TR][TD]
sayfa 2 de ki a1,k1 hücresine nasıl yapıştırabiliriz?
[/TD]
[TD]

[/TD][/TR]
[TR][TD]
Teşekkür ederim.
[/TD]
[TD]

[/TD][/TR]

 

[Korhan Ayhan]

Sayfa1'in kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    If UCase(Replace(Replace(Target, "ı", "I"), "i", "İ")) = "ALDI" Then
        Range("A1").Cut Sheets("Sayfa2").Range("A1")
        Range("K1").Cut Sheets("Sayfa2").Range("K1")
    End If
Son:
End Sub

 

[cobra26]

İndir Deneme

Dosyayı indir Deneme

dosya.co

Sayın Korhan Bey
Acemi olduğum için yapamadım, örnek dosyada gösterebilir misiniz?
Formülle yapabilir miyiz?
Teşekkür ederim.

 

[Korhan Ayhan]

Veri kesilecekse makro ile yapmalısınız.

Ek olarak sorunuz makrolar bölümünde bulunuyor.

 

[cobra26]

Sayın Korhan Bey
Saolun çok teşekkür ederim, en sonunda yanıla yanıla yapabildim,aktarılacak olan satırı renkli yapabilsem tablom çok daha şık olacak,
Tekrar teşekkür ederim.