Excel Formül Sorusu Sor

Bir Excel formülüne dair sorunuz varsa, bu alanı kullanarak bize iletin.

Excel Makro Sorusu Sor

Bir Excel VBA koduna dair sorunuz varsa, bu alanı kullanarak bize iletin.

Genel Excel Sorusu Sor

Excel'in ön sayfasındaki FORMÜL haricinde olan sorularınızı buradan sorabilirsiniz.
Otomatik Olarak Formüldeki Bağlantıları Güncelleme


Bazen bir formül başka bir çalışma kitabına başvuruyor olabilir. Bu durumda iki ihtimalden söz edebiliriz.

1-) Herhangi bir nedenle Bağlantı yapılan kitap yolu değişmiş olabilir.
2-) Bağlantılı kitaptaki veriler ile formülün güncellenmesi gerekebilir.

Otomatik Olarak Formüldeki Bağlantıları Güncelleme


Otomatik Olarak Formüldeki Bağlantıları Güncelleme


Mesela yukarıdaki iki şekle baktığımızda benim istediğim şu Kartların alındı dosya yolu sabit, dosya adı da sabit. Ancak Bağlantıları düzenle penceresinde görüldüğü üzere Kartlar.xlsm kitabının adında tarih bilgisi de var. Halbuki bağlantının Kartlar.xlsm için yapılması gerekiyor. İşte bunun gibi bağlantı hatalarını düzeltmek veya bağlantı yapılan çalışma kitabındaki değerler ile verilerinizi güncelleştirmek için aşağıdaki makroyu kullanabilirsiniz.
Kod:
Görüntülemek için giriş yapmalısınız.
(12 satır)

Sub Auto Open() => Çalışma Kitabı açılırken çalışacak olan makromuz.
Dim yol As String, link As Variant => Çalışma kitabını yolu ve (xlExcelLinks) tipinde dönebilmek için kullanacağımız değişkenler.
yol = "D:\SuleymanHarmony\HarmonyKartlar\Kartlar\Kartlar.xlsm" => Güncellenecek kitabın sabit olan yolu
For Each link In ThisWorkbook.LinkSources(xlExcelLinks) => Çalışma kitabındaki bağlantılarda dönecek olan döngü
If link <> yol Then => Eğer bağlantı linki ile yol farklı ise;
Workbooks.Open yol => Sabitleri içeren kitabı açıyoruz.
ThisWorkbook.ChangeLink Name:=link, NewName:=yol, Type:=xlExcelLinks => Değişmiş olan yol bilgisini sabit olan yol ile değiştiriyoruz.
ThisWorkbook.UpdateLink Name:=yol, Type:=xlExcelLinks => Sonra verileri sabit olan yoldaki kitabın bağlantıları ile güncelliyoruz.
End If => Eğer bağlantı linki ile yol farklı ise çalışna if sonu.
Next link => Bağlantı listesinde dönen döngünün sonu.
ThisWorkbook.Save =>Çalışma Kitabının kaydedilmesi.
 
DMCA.com Protection Status
Geri
Üst