Hücreye veri aktarma

[taseraydin]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If [A1] = "" Then Exit Sub
[E1].Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell = [A1]
[A1] = ""
[A1].Select
End Sub

A1 hücresine yazılan değer E1 hücresinden itibaren sıralı şekilde alt alta veriyi aktarıyor.
Ancak A1 hücresine yazılan değeri aynı sayfaya değilde
Sayfa2 nin E1 sutununa atması için yukarıda yazılan makroda
nasıl bir düzenleme yapılabilir.

 

[overfatih]

bilmiyorum biraz uzattım heralde çözümü... ama inşallah işine yarar
ekte senin gönderdiğinin üzerinde çalıştım...
bu arada 1 tane module açtım içinde "isle" makrosu var.

 

[Recep İpek]

A&#351;a&#287;&#305;daki kodlar&#305; deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    If [A1] = "" Then Exit Sub
    Set s2 = Sheets("Sayfa2")
    sat = s2.[e65536].End(3).Row + 1
    s2.Cells(sat, "e").Value = [A1]
    [A1] = ""
    [A1].Select
    Set s2 = Nothing
End Sub

 

[taseraydin]

teşekür

Çok Faydali Oldu
İlgİnİze Çok TeŞekÜr Ederİm
Elİnİze SaĞlik ..

 

[__BoZKurT__]

gercekten faydal&#305; oldu