VBA - bir buton ile, bir hücredeki değeri başka sayfaya kopyalama - YARDIM LÜTFEN

[the_umit]

Merhaba,

Şu şekilde bir şey yapmak istiyorum fakat yapamadım..

İki sayfamız var. 1. sayfa adı (Müşteri Listesi), 2. Sayfa Adı (Görüntüleme)

Görüntüleme sayfasında B14 hücresindeki değeri, Müşteri listesindeki sayfada satırı bulup ilgili sütün hücresine yazdırmak istiyorum.

işlem sırası şu şekilde,

Görüntüleme sayfası B14 hücresi dolu yada boş olsa bile
butona bastığımda Görüntüleme sayfasındaki B14 de yazan değeri, Görüntüleme sayfasında E2 deki sıra noya göre Müşteri listesi sayfasında B sütününda arayacak ve N sütünuna yazacak

 

[muysun35]

örnek dosya eklerseniz yardım alabilirsiniz

 

[the_umit]

Quick Share

Expired

linksharing.samsungcloud.com

Telefondan bu şekilde ekleyebildim. Sayfa adları farklı fakat işlem aynı. Üçüncü sayfadan birinci sayfaya yazdırılacak.

 

[muysun35]

Sub aktarim()
Dim Bul As Range
Set Bul = Sheets("SMS Aksiyon Planı").Range("b:b").Find(Sheets("Gözden Geçirme").Range("E2"))
Sheets("SMS Aksiyon Planı").Cells(Bul.Row, 14) = Sheets("Gözden Geçirme").Range("B14")
End Sub

 

[the_umit]

Sub aktarim()
Dim Bul As Range
Set Bul = Sheets("SMS Aksiyon Planı").Range("b:b").Find(Sheets("Gözden Geçirme").Range("E2"))
Sheets("SMS Aksiyon Planı").Cells(Bul.Row, 14) = Sheets("Gözden Geçirme").Range("B14")
End Sub

Çok teşekkürler. iyi günler dilerim