Excelde bağ yapıştır sorunu

[ordulu82]

Arkadaşlar Bağ Yapıştır uygulamasında değişken sayfalarda sorun yaşıyorum. yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Siz bağlantıyı eski sayfa adına göre kurduğunuz için başvuru hatası veriyor. Bu da normal bir durumdur.

Madem makro ile sayfa adı değişiyor sayfa adı değişmeden evvel başvuru kurduğunuz dosyayı açın. Sayfa adını değiştirip açtığınız dosyayıda kayıt edip kapatın. Bu şekilde bağlantınız bozulmamış olur.

Mesela aşağıdaki kod yapısını kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$E$2" Then
        Set K1 = ThisWorkbook
        Set K2 = Workbooks.Open(K1.Path & "\dosya2.xlsx", True)
        K1.ActiveSheet.Name = Target
        K2.Close True
    End If
    Application.ScreenUpdating = True
End Sub

 

[ordulu82]

Merhaba,

Siz bağlantıyı eski sayfa adına göre kurduğunuz için başvuru hatası veriyor. Bu da normal bir durumdur.

Madem makro ile sayfa adı değişiyor sayfa adı değişmeden evvel başvuru kurduğunuz dosyayı açın. Sayfa adını değiştirip açtığınız dosyayıda kayıt edip kapatın. Bu şekilde bağlantınız bozulmamış olur.

Mesela aşağıdaki kod yapısını kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$E$2" Then
        Set K1 = ThisWorkbook
        Set K2 = Workbooks.Open(K1.Path & "\dosya2.xlsx", True)
        K1.ActiveSheet.Name = Target
        K2.Close True
    End If
    Application.ScreenUpdating = True
End Sub

Üstadım bu kodu hangi sayfaya ekliyicem. yani dosya1 mi oksa dosya2 mi

 

[Korhan Ayhan]

E2 hücresi hangi dosyada ise ona uygulayın.

 

[ordulu82]

E2 hücresi hangi dosyada ise ona uygulayın.

Teşekkür ederim üstadım emeğine sağlık