sayfa change olayında diğer sayfalara aynı verileri aktarma

[ismailozkan4224]

değerli arkadaşlar TRK1 , MAT1 , HB1 sayfalarında F10:J15 aralığında hangi hücreye ne yazarsam diğer sayfaların da aynı hücresine aynı veriyi yazmasını istiyorum. diğer sayfaların diğer hücrelerinde bir değişiklik yapmayacak. örnek TRK1 sayfasında F10 hücresine 1 yazdım MAT1 ve HB1 sayfasının F10 hücresine de 1 yazacak. ya da MAT1 sayfasında F10 hücresine 10 yazdım TRK1 ve HB1 sayfasının F10 hücresine de 10 yazacak . bu mümkün müdür?. ya da nasıl bir yol önerirsiniz?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu BuÇalışmaKitabı adlı kod sayfasına kopyalayınız.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Select Case Sh.Name
        Case "TRK1", "MAT1", "HB1"
            If Not Intersect(Target, Range("F10:J15")) Is Nothing Then
                Application.EnableEvents = False
                Worksheets("TRK1").Range(Target.Address) = Target
                Worksheets("MAT1").Range(Target.Address) = Target
                Worksheets("HB1").Range(Target.Address) = Target
                Application.EnableEvents = True
            End If
    End Select
End Sub

 

[ismailozkan4224]

teşekkür ederim

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[ismailozkan4224]

Muzaffer Bey çalışma kitabını oluşturdum. TRK,MAT ..... sayfalarından seçtiğim kazanımları texboxlara ekliyorum. ancak kazanımları sınıf defterine kaydet dediğimde buçalışmakitabındaki kodlar hata veriyor. rune time eror1004 hatası. sebebi nedir acaba.

 

[Muzaffer Ali]

Sayfa belirtilmesi gerekiyor.
BuÇalışmaKitabı da bulunan aşağıdaki satırı

If Not Intersect(Target, Range("AM7:AR20")) Is Nothing Then

aşağıdaki ile değiştirin.

If Not Intersect(Target, Sh.Range("AM7:AR20")) Is Nothing Then

 

[ismailozkan4224]

Sayfa belirtilmesi gerekiyor.
BuÇalışmaKitabı da bulunan aşağıdaki bilgiler

Kesişmezse(Hedef, Menzil("AM7:AR20")) O Zaman Hiçbir Şey Değildir

aşağıdaki ile kuralları.

Eğer Kesişmezse(Hedef, Sh.Range("AM7:AR20")) O Zaman Hiçbir Şey Değildir

[/ALINTI]teşekkür ederim. düzeldi