Dış veri makro

[ali14]

Ekteki kitapta dış veri aldığımız 1 makro var çalışıyor.Benim yapmak istediğim bu makronun aldığı veriyi tek bir sayfaya almasını nasıl sağlarız.
Yardım edebilirseniz çok sevinirim?
(korhan bey haklısınız tesekkürler.)

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.


Kullanılan kod; (Boş bir modüle uygulayın.)

Sub VERİLERİ_AL()
    Dim X As Long, URL_LİNK As String
    
    Application.ScreenUpdating = False
    
    Sheets("ANALİZ").Cells.Delete
    
    For X = 1 To Sheets("ANA_SAYFA").Range("A65536").End(3).Row
    URL_LİNK = Sheets("ANA_SAYFA").Cells(X, 1)
    
    With Sheets("ANALİZ").QueryTables.Add(Connection:="URL;" & URL_LİNK, Destination:=Sheets("ANALİZ").Range("A65536").End(3)(2))
        .Name = "hisse_kapanis.asp?h=A&gun=25&ay=09&yil=2009"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "20,""tblIMKB100ustband"",32,33"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    
    Next
    Sheets("ANA_SAYFA").Select
    
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

[ali14]

çok teşekkürler.Ayrıca deminki konuda da haklı idiniz saygılar ve iyi geceler
(Ha sadece paylasıyım istedim borsa ile amötörce uğrasıyom geçmiş verileri toplayıp analiz yapmaya çalışıyom becere bilirsek işte)

[hhaseken]

Ekli dosyamda üstteki konu da yapmış olduğunuz yardım ile gerekli işlemleri daha düne kadar yapmaktaydım ve istediğim gibi verileri çekip kontrol edebiliyordum.
Ama bugün 17.11 itibari ile gerekli bilgileri alamıyorum acaba bir kontrol edebilirmisiniz.
Teşekkürler.

[hhaseken]

Korhan bey mümkün mü cevap bekliyordum ama

[hhaseken]

Pes ettim

[Korhan Ayhan]

Selamlar,

Bilgileri aldığınız internet sayfasında oluşan bir hatadan kaynaklanıyor. İnternet sayfasının yapısı değişmiş olabilir.

[hhaseken]

Teşekkürler.