hücreye girilen değeri diğer hücreye sabitlemek

[CaNeR__16]

arkadaşlar dosya ektedir.
a2'de matematik seçip 1.yazılıya not girince B4'te yazsın aynı şey diğerleri içinde geçerli bunları hangi formül yada kod ile yapabilirim. yardımlarınız için şimdiden teşekkürler...

 

[CaNeR__16]

yardım edecek kimse yok mu

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
son = [A65536].End(3).Row

For i = 4 To son
If Range("A2") = Cells(i, "A") Then

If Range("B2") <> "" Then
Cells(i, "B") = Range("B2")
Else: End If

If Range("C2") <> "" Then
Cells(i, "C") = Range("C2")
Else: End If

If Range("D2") <> "" Then
Cells(i, "d") = Range("D2")
Else: End If
Else
End If

Next
End Sub

. . .

 

[CaNeR__16]

denedim ama olmadı.

 

[CaNeR__16]

yardım edebilecek kimse yok mu

 

[Emir Hüseyin Çoban]

. . .

Kodları uyguladığınız, örneği ekleyiniz.

. . .

 

[CaNeR__16]

çalışma adında ek dosya koydum ona uyguladım olmadı

 

[Emir Hüseyin Çoban]

. . .

Olmadı demişsiniz ya.
Kodları uyguladığınız dosyayı ekleyin.
Kodlarda mı sıkıntı var, yoksa uygulama kısmında mı hata yaptınız onu tespit edelim.

. . .

 

[CaNeR__16]

bir türlü dosyayı ekleyemedim gelişmiş moda döne geçtim başlık falan diyo eklemiyo