Bir sayfadan diğer sayfaya veri aktarma???

[MERDAG]

Merhaba;
Forumda sadece a1 hücresini a sütununun son boş hücresine atan formülü buldum ama işimi görmüyor...

Ben sayfa1'de c3, d3, e3 hücrelerine yazdığım verinin sayfa2'de c3, d3, e3 'te son boş hücreye aktarılmasını istiyorum. (son derken c3 doluysa c4'e yazsın)

İlginize şimdiden teşekkürler...

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim son As Long
    If Sayfa2.[c3] = "" Then Sayfa2.[c3] = Sayfa1.[c3]: Sayfa2.[d3] = Sayfa1.[d3]: Sayfa2.[e3] = Sayfa1.[e3]: GoTo 10
    son = Sayfa2.Cells(65536, "d").End(xlUp).Row + 1
    Sayfa2.Cells(son, "c") = Sayfa1.[c3].Value
    Sayfa2.Cells(son, "d") = Sayfa1.[d3].Value
    Sayfa2.Cells(son, "e") = Sayfa1.[e3].Value
10
End Sub

 

[MERDAG]

Merhaba Niyazi Bey
İnternete yeni girdim ve cevabınızı gördüm...
İlginiz için teşekkürler
Ama ben uygulayamadım Kodu kod bölümüne yapıştırdım ama olmadı. Dosyayı gönderiyorum.
İlgilenirseniz sevinirim...

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub ile başlayanlar sayfa kodu,sub ile başlayanlar için bir module açılmalı

 

[MERDAG]

Dosyayı açtım ama her hangibir değişiklik yok sayfa1 de c3 hücresine yazıyorum ama diğer sayfaya geçmiyor Neden olabilir acaba...

 

[N.Ziya Hiçdurmaz]

yanıt

Verleri girdikten sonra entere basınız

Sub auto_open()
Application.OnKey "{enter}", "aktar"
End Sub
Sub auto_close()
Application.OnKey "{enter}", ""
End Sub
Sub aktar()
Dim son As Long
    If Sayfa2.[c3] = "" Then Sayfa2.[c3] = Sayfa1.[c3]: Sayfa2.[d3] = Sayfa1.[d3]: Sayfa2.[e3] = Sayfa1.[e3]: GoTo 10
    son = Sayfa2.Cells(65536, "d").End(xlUp).Row + 1
    Sayfa2.Cells(son, "c") = Sayfa1.[c3].Value
    Sayfa2.Cells(son, "d") = Sayfa1.[d3].Value
    Sayfa2.Cells(son, "e") = Sayfa1.[e3].Value
10
End Sub

 

[MERDAG]

Teşekkürler Ziya Bey ilginiz için
Bu sefer oldu.
Emeğinize sağlık...:mutlu: