Hücre yapısı bozulmadan veri çağırma

[smutty]

Arkadalar merhaba,
Forumu gezdim tozdum ama makro olmadan yapmak istediğimi yapabilecek formül keşfedemedim...

butonlar kurdum B2 Hücresine gelen değere göre ekte olan dosya harici 12 tane farklı sekmelerdeki datalara göre bağ kurdum ve gerek grafik gerek tablolar oluşturdum.

aynı şekilde ekteki dosyada ne yaptıysam kıvıramadım,
amacım data2 sekmesindeki "%" ve "Hedef" sütunlarını sayfa biçim ve şekli bozulmadan alabilmek

yardımcı olabilirseniz çok memnun olurum

saygılar

 

[Emir Hüseyin Çoban]

. . .

Üst kısımdan seçim yaptıktan sonra kodları çalıştırın...

Sub KOD()
    
    Dim S2 As Worksheet: Set S2 = Sheets("DATA2")
    Dim SA As Worksheet: Set SA = Sheets("Ana Sayfa")
    süt = (SA.Range("A1") * 2) + 1
    S2.Range(S2.Cells(2, süt), S2.Cells(51, süt + 1)).Copy SA.Range("F4")
    SA.Range("F4") = SA.Range("B1")
    
End Sub

. . .