Makro tuş atama ?

[ESNAF13]

Aşağıda belirttiğim makroya tarih aralığı ile tuş atamak istiyorum ben tarih aralığını girip o tuşa tıklayınca çekime başlayacak nasıl yapabilirim ? ve tüm makroları tek bir tuşa nasıl bağlayabilirim ?

Sub DENEME()
'
' DENEME Makro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.tempobet88.com/championsleague_0.html", Destination:=Range( _
"$A$6"))
.Name = "championsleague_0"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingRTF
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Columns("A:A").EntireColumn.AutoFit
Columns("I:I").EntireColumn.AutoFit
Columns("C").Select
Selection.Delete Shift:=xlToLeft
Range("B6").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linki incelermisiniz.

Webten Bilgi Sorgulama

 

[ESNAF13]

Sayın Korhan Bey verdiğiniz linkte araştırdım http://www.excel.web.tr/f125/ki-tarih-arasy-t-c-m-b-bankasy-t43890.html sizin açmış olduğunuz ve eklemiş olduğunuz dosyadaki gibi iki tarih arası sorgu ekleme butonu ve makroyu nasıl yapabilirim. Benim yapmış olduğum makro tuş denemem ektedir sürekli yeni olarak atıyor aynısını güncellemesini istiyorum.Saygılar.

 

[Korhan Ayhan]

Merhaba,

Kodun içinde "ActiveSheet.QueryTables.Add" ifadesi bulunuyor. Bu sebeple yeni alanlar ekleniyor. İlk önce veri olan alanı temizleyin. Sonra veri almayı deneyin.