hücre bağlantısını makro ile yapma

[ommerk]

Merhaba,
a5 boş ise b1 boş olacak
a5 dolu ise b1 hücresine a5 teki sayıyı makro ile nasıl yazabiliyoruz
teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

if range("a5")="" then
range("b1")=""
else
range("b1")=range("a5")
end if

 

[Korhan Ayhan]

Bu da olabilir..

Sub Test()
    Range("B1").Value = Range("A5").Value
End Sub

 

[mrwarrior]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then

Range("B1").Value = Range("A5").Value
End if
End Sub

 

[ommerk]

yapmak istediğim oldu.
Yardımlarınız için teşekkür ederim.

 

[ommerk]

Bir sorum daha olacak.

Bu hücrelerden birine tıkladığım zaman bu hücredeki değerin AE2 hücresine yazmasını istiyorum.
BK2 BN2 BQ2
BK5 BN5 BQ5
BK8 BN8 BQ8

 

[Orion1]

Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("AE2").Value = ""
If Intersect(Target, Range("BK2,BN2,BQ2,BK5,BN5,BQ5,BK8,BN8,BQ8")) Is Nothing Then Exit Sub
Range("AE2").Value = Target.Value
End Sub

 

[ommerk]

Süper oldu.
Teşekkür ederim yardımlarınız için.

 

[Orion1]

İyi çalışmalar.