Hücre aynalama

[edelsang]

merhaba,
şöyle birşey istiyorum mümkün olup olmadığını araştırdım ama bulamadım.

SAYFA1 deki A1 hücresi ile
SAYFA2 deki A1 hücresi birbirinin aynası olsun. Şöyle ki, Sayfa1 deki A1 hücresine herhangi bir veri girişi olduğunda Sayfa2 deki A1 hücresine aynı veri yazılsın. Daha sonra Sayfa2deki A1 hücresinde değişiklik yaptığımızda SAYFA1 deki A1 hücresi bu değişikliğin aynısını o da yaşasın.

Sayfa1 ile sayfa500 arasında birbirlerini bu şekilde tanıyan hücrelere ihtiyacım var. Sayfa 300 deki a1 i değiştirdiğimde tekrar sayfa1 deki A1 i değiştirmeden kendisi değişmesi lazım yani. iki taraflı değişikliği yansıtmam lazım

 

[ÖmerFaruk]

Bu işi AD tanımlayarak çözmeniz daha kolay değil mi?

 

[edelsang]

yok o şekilde değil . tam olarak iki hücre de aynı olması lazım. birinde ypaılan değişiklikten diğeride etkilenecek. her ikisinde de değişiklik yapılabilecek

 

[Korhan Ayhan]

Diyelim ki Sayfa500'de A1 hücresini değiştirdiniz. Dosyanızda 500 sayfa olduğunu düşünürsek hangi sayfanın A1 hücresi değişecek?

 

[Necdet]

Sadece Tek bir hücrede bu işi yapmak istiyorsanız tüm sayfa sekmelerini Shift tuşu ile seçip A1 hücresini değiştirdiğinizde tüm sayfalarda A1 hücresi değişir.

Pratik yöntem

 

[edelsang]

sayfa 250 nin a1 i mesela

 

[edelsang]

Sadece Tek bir hücrede bu işi yapmak istiyorsanız tüm sayfa sekmelerini Shift tuşu ile seçip A1 hücresini değiştirdiğinizde tüm sayfalarda A1 hücresi değişir.

Pratik yöntem

işte bazen sayfa1 nin a1 indeki veri
sayfa 23 ün b5 inde olabilir eşitliği

 

[ÖmerFaruk]

Tüm sayfalarınızda, aynı olacak hücre derken,
Sayfa15 deki A1, Sayfa133 deki E5 kendi arasında aynı
Safya24 deki B3, sayfa 88 deki H1 kendi arasında aynı gibi mi olacak?
Yoksa belirttiğiniz birden çok saydafa her birinde birbirinden farklı adrese sahip sayfa sayısı kadar hücre mi?

 

[Korhan Ayhan]

Bunu ne amaçla istiyorsunuz? Yani nihai sonuç ne olacak?

 

[edelsang]

Tüm sayfalarınızda, aynı olacak hücre derken,
Sayfa15 deki A1, Sayfa133 deki E5 kendi arasında aynı
Safya24 deki B3, sayfa 88 deki H1 kendi arasında aynı gibi mi olacak?
Yoksa belirttiğiniz birden çok saydafa her birinde birbirinden farklı adrese sahip sayfa sayısı kadar hücre mi?

tam olarak bu ama iki hücredede değişiklik yapabilmeliyim
Sayfa15 deki A1, Sayfa133 deki E5 kendi arasında aynı
Safya24 deki B3, sayfa 88 deki H1 kendi arasında aynı gibi mi olacak?

 

[edelsang]

Bunu ne amaçla istiyorsunuz? Yani nihai sonuç ne olacak?

farklı illerdeki mağazaların ciro hedeflerini farklı sayfalarda göstermemiz gerekiyor . farklı sayfalarda olduğu için mağazanın kendi sayfasında değil de il bazındaki listededki hedefi değiştirdiğimiz kendi sayfasındaki hücresindede değişiklik olmalı

 

[Korhan Ayhan]

Bir hücrede değişiklik yapacaksanız = diyerek diğer kaynak hücreyi seçmeniz yeterli olacaktır.

Ama iki ayrı sayfada iki hücre etkileşimli veri alacaksa o zaman makro kullanmak daha uygun olacaktır.

 

[ÖmerFaruk]

5-10 tane sayfadan oluşan bir örnek dosya gönderir misiniz?
Belki formatınızda küçük bir değişiklik yapılarak alternatif bir yöntemle sizi yine istediğiniz sonua götüren bir çözüm üretilir.

 

[edelsang]

Bir hücrede değişiklik yapacaksanız = diyerek diğer kaynak hücreyi seçmeniz yeterli olacaktır.

Ama iki ayrı sayfada iki hücre etkileşimli veri alacaksa o zaman makro kullanmak daha uygun olacaktır.

nasıl yapılır ki o ?

 

[Korhan Ayhan]

Hangisi?

 

[edelsang]

5-10 tane sayfadan oluşan bir örnek dosya gönderir misiniz?
Belki formatınızda küçük bir değişiklik yapılarak alternatif bir yöntemle sizi yine istediğiniz sonua götüren bir çözüm üretilir.

tabi hocam yarın yollayayım iş yerindeki pc de veriler çünkü

 

[edelsang]

Hangisi?

Ama iki ayrı sayfada iki hücre etkileşimli veri alacaksa o zaman makro kullanmak daha uygun olacaktır.

bu hocam

 

[Korhan Ayhan]

4 sayfalı bir dosya için örnek kodlama;

ThisWorkbook bölümüne uygulayınız.

Kodun tetiklenmesi için sayfada her hangi bir hücrenin elle değişmesi yeterlidir. Gerekirse hücre kısıtlaması da yapılabilir.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error GoTo Son
    
    Application.EnableEvents = False
    
    Select Case Sh.Name
        Case "Sheet1"
            Sheets("Sheet2").Range("E5").Value = Range("A1").Value
        Case "Sheet2"
            Sheets("Sheet1").Range("A1").Value = Range("E5").Value
        Case "Sheet3"
            Sheets("Sheet4").Range("K5").Value = Range("E5").Value
        Case "Sheet4"
            Sheets("Sheet3").Range("E5").Value = Range("K5").Value
    End Select
    
Son: Application.EnableEvents = True
End Sub