Koşullu Kopyalama

[fastocak06]

Arkadaşlar foruma yeni üye oldum biraz araştırdım ama bulamadım. A1,B1,C1 hücrelerinde sırasıyla Ocak,Şubat,Mart yazıyor. Başka bir hücrede G1 hücresinde bu üç aydan herhangi biri yazıyor burası sabit değil yani ocakta yazabilir şubatta martta değişken. G2 hücresinde ise bir rakam var örneğin 20 olsun. G1 hücresinde hangi ay yazıyorsa ocak şubat mart altındaki rakamı A1 B1 C1 ilgili ayın altındaki hücreye kopyalasın. Bunu makro ile yapabilirmiyiz. şimdiden teşekkür ederim kolay gelsin.

 

[Orion1]

Böyle bir şey anlaşılmıyor.
Örnek dosya için link veriniz.

 

[fastocak06]

http://dosya.co/2hlzgpbxgpzw/deneme.xlsx.html

açıklamasını dosyanın içine yazdım.

 

[fastocak06]

yokmu çözümü

 

[Orion1]

Buyurun.

Sub yazhucre59()
Dim k As Range
Sheets("Sayfa1").Select
Set k = Range("A1:L1").Find(Sheets("Sayfa2").Range("A1").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(1, 0).Value = Sheets("Sayfa2").Range("A2").Value
End If
End Sub