Kapalı Dosyadan Veri Al2

[alpay1]

Aşağıdaki kodları bu formda bir başka arkadaşıma verilen cevaptan aldım.

Private Sub UserForm_Initialize()
'Sayfa2'nin A1 ile A50 Aralığına verileri aldırıyoruz.
Sheets("Sayfa2").Range("A1:A50") = "='C:\[Deneme.xls]Sayfa1'!A1:A50"
'ComboBox'a veriyoruz.
ComboBox1.RowSource = "Sayfa2!A1:A50"
End Sub
Bu kodları kendime şu şekilde uyarlamaya çalıştım;

Private Sub UserForm_Initialize()
Sheets("KASA HS.").Range("A14:G50") = "='C:\cari-a1\[cari.xls]ANASAYFA'!A1:A50"
End Sub

Bu kodlarla alınan veride sayfayı her açışta "GÜNCELLEÞTİR" penceresi geliyor.Böyle bir uyarı almadan bunu gerçekleştirmek mümkün mü?
Yardımcı olursanız sevinirim.
Teşekkürler.

 

[Levent Menteşoğlu]

"Araçlar" menüsünden "seçenekler-hesaplama" yı seçin buradaki "uzak başvuruları güncelleştir" işaretini kaldırarak deneyin.

 

[Levent Menteşoğlu]

Birde şunu deneyin

Araçlar-seçenekler-düzen-otomatik bağlantıları güncelleştirmek için sor daki işareti kaldırın.

 

[alpay1]

Söylediğinizi denedim yine aynı şey oldu.
Makro keydet seçeneğiyle makro olarak bunu yazdırdım auto_open e bu makroyu koydum yinede güncelleştirme penceresi çıktı.Þaşırtıcı.
Acaba
Dim MyArg As String
Dim i As Integer
For i = 1 To 50
MyArg = "'C:\[Deneme.xls]Sayfa1'!R" & i
ComboBox1.AddItem ExecuteExcel4Macro(MyArg & "C1")
Next
Kodlarını uyarlayarak bunu yapmak mümkün mü?

 

[Levent Menteşoğlu]

Araçlar-seçenekler-düzen-otomatik bağlantıları güncelleştirmek için sor daki işareti kaldırın.

Bu alternatifi denedinizmi?

 

[alpay1]

Sayın leventm,
Bu seçeneği şimdi denedim ve sorun çözüldü.
Teşekkür ederim.

Ek bir soru...
Ben bu hazırladığım programda bu seçeneği işaretledim ve sorun çözüldü.
Programı başka bir bilgisayara kurduğumuzda ve orada çalıştırdığımızda sorun olur mu?
Ofice 2003 kullanıyorum.

 

[Levent Menteşoğlu]

Aynı seçeneği diğer bilgisayardada kaldırın.

 

[alpay1]

Teşekkürler...