Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 3 sonutan 1 ile 3 arasndakiler gsteriliyor.

Konu: Birden fazla tablo iin Web'den veri al ve Makro altr

  1. #1
    Yeni ye
    yelik tarihi
    Oct 2017
    Mesajlar
    2

    Unhappy Birden fazla tablo iin Web'den veri al ve Makro altr

    Merhaba arkadalar,
    Web'den veri alan birden fazla excel tablosu kullanmak zorundaym, bu tablolardaki veriler yenilendii zaman almas gereken makrolar var.
    sorunum u ki; tablolar beli zaman aralnda yenileme yapyor ancak excellerin tamam ak olduu halde sadece ekranda aktif olan
    tablonun makrolar dzgn alyor dier tablolar grev ubuunda simge halinde olduu iinmidir bilmem ama makrolar almyor,
    sadece web sorgular alyor. bu konuda bana yardmc olabilir misiniz.

    birde excelleri amadan hem web sorgusunu hem de makroyu altran bir kod var m acaba.

    Erol

  2. #2
    Forum Yneticisi
    yelik tarihi
    Apr 2004
    Nereden
    stanbul
    Versiyon
    Excel 2003 TR
    Mesajlar
    1.314
    Merhaba,

    Son sorunuzun yant hayr, biraz nce benzer bir soruya en olas olduunu dndm zm yazdm.

    Makrolarnz paylamadnz iin neyin hatal olabilecei ile ilgili yorum yapmak zor.

  3. #3
    Yeni ye
    yelik tarihi
    Oct 2017
    Mesajlar
    2
    Salih bey
    kodlar aadaki gibi, bu kodlar dier excel sayfalarnda alrken her on dakikada bir almaya devam etsin istiyorum.
    ama makro ile yaptm iin mi bilmiyorum ama baka bir excel sayfas ekken bu kod hata veriyor almyor.
    bir de hata verdii zaman tekrar makroyu denesin istiyorum. mmkn m acaba
    yardmz iin imdiden teekkrler.

    Erol

    Sub AUTO_OPEN()
    DoEvents
    Application.OnTime Now + TimeValue("00:10:00"), "Tekrar"
    End Sub
    Sub Tekrar()
    DoEvents

    Sheets("Time").Select
    Sheets("Copy").Visible = True
    Sheets("Copy").Select
    Sheets("Veri").Visible = True

    Sheets("Veri").Select
    Range("B24").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("K24").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("T24").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("AC24").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("AL24").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("AU24").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Range("BD24").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Sheets("Copy").Select
    Range("C17").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Range("C31").Select
    Selection.End(xlDown).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False

    Range("C17").Select

    Sheets("Time").Select
    Sheets("Copy").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Veri").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Time").Select
    Range("C1").Select
    Range("F1").Select
    Range("B1").Select

    AUTO_OPEN
    End Sub
    Konu izlegor tarafndan (23.10.2017 Saat 13:07 ) deitirilmitir.

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •