Soru Tümünü Yenile

[muratozmenler]

Merhabalar;

ActiveWorkbook.RefreshAll tümünü yenileme yapıyor. Peki sadece bir tanesini (örneğin adı merak olsun) yenilemek istersek nasıl bir makro yazılması gerekir.

 

[BaY_KaPTaN]

Aşağıdaki kodu deneyiniz.

ActiveWorkbook.Connections("merak").Refresh

 

[muratozmenler]

Maalesef hata verdi.

 

[BaY_KaPTaN]

Maalesef hata verdi.

Detayları görmek için dosya yüklerseniz daha iyi olur.
Dosyanızı buraya da yükleyebilirsiniz.

 

[muratozmenler]

ActiveWorkbook.Connections("Sorgu - merak").Refresh

Sorgu eklenince sorun çözüldü. Teşekkür ederim.

 

[BaY_KaPTaN]

ActiveWorkbook.Connections("Sorgu - merak").Refresh

Sorgu eklenince sorun çözüldü. Teşekkür ederim.

"örneğin adı merak olsun" diyince doğal olarak bağlantıyı merak yapmıştım bende

 

[mekist]

Merhaba
Çalışma kitabımda 5 sayfa var, her sayfada queryden gelen tablolarım var, bunların 3 tanesini yenileyeceğim
Bir kaç yöntem denedim olmadı, sizde var mıdır yöntemi

 

[BaY_KaPTaN]

Merhaba
Çalışma kitabımda 5 sayfa var, her sayfada queryden gelen tablolarım var, bunların 3 tanesini yenileyeceğim
Bir kaç yöntem denedim olmadı, sizde var mıdır yöntemi

Aşağıdaki kodda yenilenecek olanların isimlerini merak ile değişirseniz onları yeniler.

ActiveWorkbook.Connections("merak").Refresh
ActiveWorkbook.Connections("merak2").Refresh
ActiveWorkbook.Connections("merak3").Refresh

 

[mekist]

bunlar çalışmadı

aşağıdaki kodla yaptım, her tabloyu yeniledikten sonra diğerine geçtiği için zaman uzuyor, aynı anda yenilemeyi yaptırabilir miyiz

Sub yenile()

Application.ScreenUpdating = False
Z = TimeValue(Now)
Sheets("Table 6").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh

Sheets("Enflasyon").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("Table 0").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("USD Eklenmiş Veriler").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("ÖZET").Select
Range("F5").Select
Application.ScreenUpdating = True
MsgBox "Güncelleme" & CDate(TimeValue(Now) - Z) & " tamamlanmıştır", vbInformation
End Sub

 

[BaY_KaPTaN]

bunlar çalışmadı

aşağıdaki kodla yaptım, her tabloyu yeniledikten sonra diğerine geçtiği için zaman uzuyor, aynı anda yenilemeyi yaptırabilir miyiz

Sub yenile()

Application.ScreenUpdating = False
Z = TimeValue(Now)
Sheets("Table 6").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh

Sheets("Enflasyon").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("Table 0").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("USD Eklenmiş Veriler").Select
Range("A1").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("ÖZET").Select
Range("F5").Select
Application.ScreenUpdating = True
MsgBox "Güncelleme" & CDate(TimeValue(Now) - Z) & " tamamlanmıştır", vbInformation
End Sub

Office sürümünüz farklıymış.
Ondan dolayı bilemedim.
Konuyu inceleyen arkadaşlar için aşağıdaki kod ise tüm tabloları yeniler.

ActiveWorkbook.RefreshAll