Resimlere Makro Atama

[tristanfermat]

Merhaba
Herkese iyi günler

Dosyada X, Y ve Z personelleri mevcut. Ben personelin üstüne tikladigimda her personelin kendi sayfasindaki verileri alip ana ekrandaki mavi yere yazdirmasini istiyorum
Nasil bir makro yazmaliyim?
Tesekkürler

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu ThisWorkbook(BuÇaloşmaKitabı) adlı kod sayfasına kopyalayın.

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "Ana Sayfa" Then Exit Sub
    With Worksheets("Ana Sayfa")
        .Range("C3") = Sh.Range("H3")
        .Range("C5") = Sh.Range("H5")
        .Range("C7") = Sh.Range("J3")
        .Range("C9") = Sh.Range("H6")
    End With
End Sub

 

[tristanfermat]

Dediginiz gibi kopyaladim ama calismadi. Ana Sayfadaki resimlere tiklanmiyor. Ya da hata yapiyorum bir yerlerde

 

[Muzaffer Ali]

Buyurun dosyanız ekte.

 

[tristanfermat]

Tesekkürler tam istedigim gibi olmus ama tek bir sorunum var makrolari kendi belgeme kopyala yapistir yaptim Z sayfasinda formül hatasi aliyorum herseyi kontrol ettim hata göremedim neden kaynaklaniyor olabilir?

 

[Muzaffer Ali]

Almanca olduğu için anlayamıyorum.

Bu hatayı ne yapınca-zaman alıyorsunuz?
Ok tıklatınca ne oluyor?

 

[tristanfermat]

Resimlere makrolari atiyorum X ve Y de sorun cikmadi son resimde makroyu atarken Z yi seciyorum böyle bir hata aliyorum .
Hata mesaji 'Bu formülde bir hata var'. Sayfayi formül olarak görme ihtimali var mi?

 

[Muzaffer Ali]

Makro bölümüne girip Z adlı makronun adının değiştirip deneyin.