Sayfa 2 ye veri göndermek.

[blue021433]

Merhaba Arkadaşlar,
Söyle bir formüle ihtiyacım var;
Sayfa1 A1 ile M1 arasında girdiğim değerler, Sayfa2 de yine aynı hücrelere alt alta sıralansın.
Fakat değerler hep Sayfa1 A1 ile M1 arasına girilecek.
Yapılabilirse eğer Sayfa1 de hücrelere değer girdikten sonra enter a bastığımda hücre içinde ki değerin silinmesi.

İlgilenen ve yardımcı olacak arkadaşlara şimdiden çok teşekkürler.
Saygılarımla,

 

[Korhan Ayhan]

Merhaba,

Sayfa1 isimli sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

1. satırda ilgili hücrelere veri girişi yapın. Aktarmak istediğinizde ilgili hücrelerden herhangi birisine çift tıkladığınızda işlem gerçekleşecektir.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim S2 As Worksheet
    If Intersect(Target, Range("A1:M1")) Is Nothing Then Exit Sub
    If WorksheetFunction.CountA(Range("A1:M1")) <> 0 Then
        Cancel = True
        Set S2 = Sheets("Sayfa2")
        Range("A1:M1").Copy S2.Cells(S2.Rows.Count, 1).End(3)(2, 1)
        Range("A1:M1").ClearContents
        Set S2 = Nothing
        MsgBox "Aktarım yapılmıştır.", vbInformation
    Else
        MsgBox "Aktarım işlemi için veri girişi yapmalısınız!", vbCritical
    End If
End Sub

 

[blue021433]

Korhan bey ilginiz için teşekkürler.
Çift tıklama değilde normal Enter tuşunu kullanarak da yapabilir miyiz ?

 

[Korhan Ayhan]

ENTER tuşu ile gönderim yapılabilir. Fakat tüm bilgileri doldurmadan ENTER tuşuna basarsanız sıkıntı olabilir düşüncesi ile çift tıklama olayına kodu yazmıştım.

EK olarak çok eski bir üyesiniz. Bunca yıldan sonra ilk mesajınızı yazmışsınız.

 

[blue021433]

ENTER tuşu ile gönderim yapılabilir. Fakat tüm bilgileri doldurmadan ENTER tuşuna basarsanız sıkıntı olabilir düşüncesi ile çift tıklama olayına kodu yazmıştım.

EK olarak çok eski bir üyesiniz. Bunca yıldan sonra ilk mesajınızı yazmışsınız.

Tekrar ilginiz için çok teşekkür ederim. verdiğiniz bilgiler çok işime yaradı.
Bu forumdan öğrendiğim ve yararlandığım çok konu oldu.
Evet eski bir üyeyim ve şimdiye kadar aradığım bir çok konuda "arama" kısmını kullanarak buldum / yararlandım.
Sadece sizin yardım ettiğiniz konuda gerekli bilgi bulamadım ve ilk mesajımı attım

 

[YUSUF44]

ENTER tuşu ile gönderim yapılabilir. Fakat tüm bilgileri doldurmadan ENTER tuşuna basarsanız sıkıntı olabilir düşüncesi ile çift tıklama olayına kodu yazmıştım.

EK olarak çok eski bir üyesiniz. Bunca yıldan sonra ilk mesajınızı yazmışsınız.

Sizin de 27.500 mesajınız olmuş maşallah, bilgi dolu 27.500 mesaj. Tebrikler