2 farklı çalışma sayfası arasında bağlantı

[yesimgurol]

A adında bir excel sayfam var,bir de B adlı başka bir excel sayfam var. A adlı sayfadaki hücreye tıkladığımda direk B adlı sayfadaki belirttiğim hücre açılsın.Yardımcı olurmusunuz?

 

[yesimgurol]

Sub Makro4()
'
' Makro4 Makro
'

'
Windows("İDRAR CRM GRAFIKLI.xlsx").Activate
Range("B1:N1").Select
End Sub


Arkadaşlar biraz yapmaya çalşıyorum . Sayfaların ikisi açıkken oluyor geçiş ,ama sayfanın birisini kapadığımda yukardaki gibi sarı renkli uyarı veriyor nedir ki bu uyarı,yanlış olan ne acaba?

 

[Husgvarna]

Sub Makro4()
'
' Makro4 Makro
'

'
Windows("İDRAR CRM GRAFIKLI.xlsx").Activate
Range("B1:N1").Select
End Sub


Arkadaşlar biraz yapmaya çalşıyorum . Sayfaların ikisi açıkken oluyor geçiş ,ama sayfanın birisini kapadığımda yukardaki gibi sarı renkli uyarı veriyor nedir ki bu uyarı,yanlış olan ne acaba?

Adresi tam olarak yazmalısınız.

 

[yesimgurol]

Sayın Husgvarna; ben aslında anlamıyorum makrodan ama makro kaydet kullanarak yapmıştım.Yanlış zaten bu adres nasıl bakıcam onuda bilmiyorum.Ama yapmak istediğim A adında bir excel sayfam var,bir de B adlı başka bir excel sayfam var. A adlı sayfadaki hücreye tıkladığımda direk B adlı sayfadaki belirttiğim hücre açılsın istiyorum yardımcı olursanız mutlu ıolurum.

 

[Husgvarna]

Mesela:
Açılacak; "Dosya" kullandığınız dosyanızın yanında
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & B.xlsx

 

[yesimgurol]

Şimdi yapmak istediğim MEHMET sayfasında grafik yazan yere tıladığımda AHMET sayfasındaki grafik açılsın istiyorum.Mümkünmüdür ?

 

[yesimgurol]

Yardımcı olurmusunuz?

 

[Murat OSMA]

Olmak isterim ama bende Office2003 kurulu, üst versiyonları açmakta sorun yaşıyorum...
Office2003 formatında (.xls) eklerseniz bakabilirim.

 

[yesimgurol]

Ekledim Murat Bey

 

[Murat OSMA]

İki dosyanında aynı klasör içinde olduğunu düşünürsek, aşağıdaki kodu MEHMET2 kitabındaki Sayfa1 kod penceresine yapıştırdığımızda istediğiniz olacaktır...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "B5" Then
Workbooks.Open (ThisWorkbook.Path & "\AHMET1.xls")
End If
End Sub

Dosyalarınızı tekrar ekliyorum...

 

[yesimgurol]

Çok Teşekkür ederim Murat Bey , iyi geceler.Tamda istediğim buydu evet.

 

[yesimgurol]

Bu arada Murat bey rica etsem.Vermiş olduğunuz bu kodların açılımı nedir? Yani ben bu işlemi başka hücreler ve çalışma kitapları içinde uyguladığımda nereleri değiştirmem gerekir.Bu konuda çok yeniyim o açıdan.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "B5" Then
Workbooks.Open (ThisWorkbook.Path & "\AHMET1.xls")
End If
End Sub

 

[Murat OSMA]

Anlıyorum...
Vakit geç oldu ama yine de tek tek anlatayım size...

■ Private Sub Worksheet_SelectionChange(ByVal Target As Range)
■ Sayfada herhangi bir hücre seçiminde yapılacak olaylarda kullanılır...

■ If Target.Address(0, 0) = "B5" Then
■ Eğer hedef adres (hücre), yani seçilen hücre B5 ise

■ Workbooks.Open (ThisWorkbook.Path & "\AHMET1.xls")
■ Klasör içerisinde bulunan AHMET1.xls isimli kitabı aç.

■ End If
■ Eğer şartını bitirmek için kullanılır...
Eğer kodlarda "if" ile başlayan bir kod satırı varsa, işiniz bittiğinde "end if" ile şartı bitirmek zorundasınız...

■ End Sub
■ Prosedürün, yani kodların bittiğini gösterir...

İyi geceler...

 

[yesimgurol]

Teşekkür ederim.İyi geceler..