Makro ile sayfadan başka sayfaya veri kopyalama

[Tarikkk_]

Merhabalar. Makro Konusunda Yapmayı başaramadığım 2 şey sormak istiyorum

1) Sayfaya 2 kez tıkladığım hücre B2 hücresi değil ise ALIŞ-SATIŞ sayfasına gitmesini istiyorum.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Range <> ("B2") Then
    Sheets("ALIŞ-SATIŞ").Select
    End If
End Sub

2) NOT diye bir Sayfam var NOT sayfasından Çıkışta Not_Kaydet diye bu makroyu çalıştırmak istiyorum.
bu makroda NOT sayfasından çıktığımda yani ALIŞ-SATIŞ Sayfasına Gittiğimde NOT Sayfasında "B2" Hücresindeki veriyi kopyalayıp ALIŞ-SATIŞ sayfasındaki aktif yani en son tıklanan hücreye Yapıştırmasını istiyorum. bir kaç şekilde denedim ama bir türlü yapamadım yardımlarınızı bekliyorum teşekkür ederim.
örnek dosya eklemeye çalıştım ama biraz uğraştırıcı olabilir. bu şekilde çözüm bulamazsam gerekirse örnek dosya eklerim

Sub A_S_Not_Kaydet()
Satır = Sheets("ALIŞ-SATIŞ").Range("N") & ActiveCell.Row
    Range("B2").Copy
    Sheets("ALIŞ-SATIŞ").Select
    Range("satır").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    Application.CutCopyMode = False
End Sub

 

[Muzaffer Ali]

Merhaba.
B2 hariç çift tıkladığınızda "Alış-Satış" adlı sayfayı açmak için

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B2")) Is Nothing Then
        Sheets("ALIŞ-SATIŞ").Select
    End If
End Sub

"Alış-Satış" adlı sayfanın kod kısmına

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    AktifHucre = ActiveCell.Address
End Sub

"Not" adlı sayfanın kod kısmına

Private Sub Worksheet_Deactivate()
    Worksheets("NOT").Range("B2").Copy Worksheets("ALIŞ-SATIŞ").Range(AktifHucre)
End Sub

Yeni bir module ekleyin aşağıdaki satırı da oraya kopyalayın.

Public AktifHucre As String

Eğer istediğiniz gibi olmazsa dosyanızı ekleyin.

 

[Tarikkk_]

Merhaba.
B2 hariç çift tıkladığınızda "Alış-Satış" adlı sayfayı açmak için

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("B2")) Is Nothing Then
        Sheets("ALIŞ-SATIŞ").Select
    End If
End Sub

"Alış-Satış" adlı sayfanın kod kısmına

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    AktifHucre = ActiveCell.Address
End Sub

"Not" adlı sayfanın kod kısmına

Private Sub Worksheet_Deactivate()
    Worksheets("NOT").Range("B2").Copy Worksheets("ALIŞ-SATIŞ").Range(AktifHucre)
End Sub

Yeni bir module ekleyin aşağıdaki satırı da oraya kopyalayın.

Public AktifHucre As String

Eğer istediğiniz gibi olmazsa dosyanızı ekleyin.

Hocam çok teşekkür ederim herşey tam istediğim gibi oldu sadece atlattığım birşey oldu sanırım NOT sayfasından ALIŞ-SATIŞ sayfasına veri kopyaladığımızda ALIŞ-SATIŞ sayfası Korumalı Olduğundan önce sayfa korumasını kaldırmalıyız.

önce ALIŞ-SATIŞ sayfasına gidip Worksheets("ALIŞ-SATIŞ").Unprotect yaptıktan sonra veriyi yapıştırıp tekrar Worksheets("ALIŞ-SATIŞ").protect yapmamız lazım alttaki koda bunu ekleyebilirsek tamamdır

Private Sub Worksheet_Deactivate()
Worksheets("NOT").Range("B2").Copy Worksheets("ALIŞ-SATIŞ").Range(AktifHucre)
End Sub

 

[Muzaffer Ali]

O zaman aşağıdaki gibi yapın.

Private Sub Worksheet_Deactivate()
Worksheets("ALIŞ-SATIŞ").Unprotect "şifre"
Worksheets("NOT").Range("B2").Copy 
Worksheets("ALIŞ-SATIŞ").Range(AktifHucre).PasteSpecial Paste:=xlPasteValues
Worksheets("ALIŞ-SATIŞ").protect "şifre"
End Sub

 

[Tarikkk_]

O zaman aşağıdaki gibi yapın.

Private Sub Worksheet_Deactivate()
Worksheets("ALIŞ-SATIŞ").Unprotect "şifre"
Worksheets("NOT").Range("B2").Copy Worksheets("ALIŞ-SATIŞ").Range(AktifHucre)
Worksheets("ALIŞ-SATIŞ").protect "şifre"
End Sub

hocam çok sağolun buda tamam son olarak kopyalama işlemi yaparken sadece değerleri kopylama şansımız varmı NOT sayfasındaki yazı stili ve boyutu neyse o şekilde kopyalıyor ama iki sayfadaki yazı stili ve boyutu farklı olduğundan değer olarak kopyalasa tamamdır

 

[Muzaffer Ali]

4. mesajdaki kodu istediğiniz gibi düzelttim.

 

[Tarikkk_]

4. mesajdaki kodu istediğiniz gibi düzelttim.

ellerinize sağlık hocam çok yararlı oldu çok teşekkür ederim

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.