hücredeki değeri buton ile başka hücreye kopyalama

[muratcx]

Merhaba arkadaşlar örnek dosyada görüleceği gibi bir sayfada bulunan bir hücredeki değeri başka sayfaya koşulu uygun olan hücreye buton yardımı ile kopyalamak istiyorum. yardımlarınızı rica ediyorum. Ayrıntılı açıklama örnekte mevcuttur.

 

[Orion1]

ilk buton için ben kodu yazdım.
Diğer butonlarada siz yazın.
Butonun sol tarafındaki değeri benim yazdığım kırımızı kodların yerine onları yazınız.

Sub Düğme1_Tıklat()
Dim k As Range
Set k = Sheets("Sayfa1").Range("D:D").Find([B][COLOR="Red"]Range("A4").Value[/COLOR][/B], , xlValues, xlWhole)
If Not k Is Nothing Then k.Offset(0, 1).Value = [B][COLOR="Red"]Range("A4").Value[/COLOR][/B]
End Sub

 

[muratcx]

Teşekkür ederim Evren bey her zamanki gibi yardımlarınızı esirgemediniz.

 

[Orion1]

Teşekkür ederim Evren bey her zamanki gibi yardımlarınızı esirgemediniz.

Rica ederim.
iyi çalışmalar.