Sayfadan sayfaya kayıt

[nadirornek]

1.Ekli dosyamın 2020 sayfasının B sütununda bulunan verileri otomatik olarak Kayıt sayfasının A sütununa alt alta yazsın istiyorum.
Kayıt sayfasına veriler geldiğimde ben istediğim zaman A sütunundaki veriye göre elle satır ilave edeyim veya silebileyim.
2. 2020 sayfamın B sütununa veri girdikten sonra otomatik köprü oluşsun, yani 2020 sayfamın B sutununda her hangi bir hücrenin üzerine tıkladığımda Kayıt sayfamın A sütunundaki yerine gitsin.
Böyle koda ihtiyacım var bir veya iki kod olabilir teşekkürler.

 

[nadirornek]

Arkadaşlar böyle bir kod oluşturabilirmiyiz.

 

[nadirornek]

Arkadaşlar 1.sorunun cevabını kayıt sayfasının A sutununa Shift = hücre tanımı ile çözüm buldum.
Kaldı 2. soru 2020 sayfamın B sutununda hücreye tıkladığımda beni kayıt sayfamın A sutunundaki eş değer hücreye götürmesi böyle bir koda ihtiyacım var.

 

[Muzaffer Ali]

Merhaba.

2020 adlı sayfa adını sağ tıklatın aşağıdaki kodları açılan sayfaya kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim bul As Range
    If Not Target = "" Then
        Set bul = Worksheets("Kayıt").Range("A:A").Find(What:=Target, LookAt:=xlWhole, LookIn:=xlValues)
        If Not bul Is Nothing Then
            Worksheets("Kayıt").Select
            bul.Activate
        End If
    End If
End Sub

 

[nadirornek]

İşte bu kod teşekkürler.