Makro ile 2 değişkenli düşeyara

[TİKOS]

Arkadaşlar dosyada açıkladım. Yardım lütfen.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B5:D11]) Is Nothing Then Exit Sub
On Error Resume Next
Range("A1").Value = Target.Address
Range("B5:D11").ClearContents
Target.Value = Sheets("Sayfa2").Cells(Target.Row - 2, Target.Column).Value
End Sub

 

[TİKOS]

Evren hocam teşekkürler
Sizden ricam Sayfa1'e gelen veriler görüntü olarak sayfa2 deki gibi olsun.
sizin yaptığınız üstüne gidince veri gözüküyor. Benim istediğim normal sayfa yapısında olsun.
Beyaz hücre içinde siyah yazı ve aynı anda hepsi gözüksün.
Yardımınız için teşekkür ederim.
Ellerinize sağlık.

 

[Orion1]

Evren hocam teşekkürler
Sizden ricam Sayfa1'e gelen veriler görüntü olarak sayfa2 deki gibi olsun.
sizin yaptığınız üstüne gidince veri gözüküyor. Benim istediğim normal sayfa yapısında olsun.
Beyaz hücre içinde siyah yazı ve aynı anda hepsi gözüksün.
Yardımınız için teşekkür ederim.
Ellerinize sağlık.

O zaman copy-paste yapabilirsiniz.:cool.