makro ile bir hücredeki değeri diğer sayfaya kopyalama

[Mesafe]

Listedeki kodları tek tek çağırıp üzerinde işlem yaptığım bir sayfam var burada işlemini bitirdiğim ürün kodundan sonra bir butona bastığımda bu kodun diğer sayfada aynı kodun yanındaki hücreye yazmasını istiyorum.

 

[Orion1]

Buyurun.

Sub Düğme1_Tıklat()
Dim k As Range
If Range("A4").Value = "" Then Exit Sub
Set k = Sheets("liste").Range("N:N").Find(Range("A4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then k.Offset(0, 1).Value = Range("A4").Value
End Sub

 

[Mesafe]

Hocam hemen deniyorum ama eminin kusursuz çalışıyordur. Çok teşekkürler elinize sağlık

 

[zafer]

Merhaba


ekli dosyayı inceleyiniz.

 

[zafer]

Merhaba


Sayın Evren cevabınızı görmeden dosya ekledim. :cekic:ost::arkadas:

 

[Orion1]

Merhaba


Sayın Evren cevabınızı görmeden dosya ekledim. :cekic:ost::arkadas:

Estafurullah hocam.

 

[Mesafe]

Merhaba


Sayın Evren cevabınızı görmeden dosya ekledim. :cekic:ost::arkadas:

Hocam iyiki de görmemişsiniz, formülleride makro içerisine almışsınız. Çok teşekkürler

 

[zafer]

Merhaba

Rica ederim. Açıklamayı tam okumadan onları istiyorsunuz sanmıştım.
sonradan tam okuyunca işinize yarıyabilir diye kodları silmedim

iyi akşamlar