• Merhaba Dostlar,
    yeni forum ile yola devam ediyoruz. Bu büyüklükte bir forum yeni bir sisteme taşımak epey bir yordu bizi. Üstelik bir de yeni XenForo Forum altyapısına geçtik.
    Eminim çok yerde hatalar ve eksikler vardır. Kısa sürede toparlayıp hızlı bir şekilde yolumuza devam edeceğiz.
    Lütfen gördüğünüz eksik ve hataları aşağıdaki bölüme dönderin. Sırasıyla inceleyip yapılabilirliği varsa üzerinde çalışacağım.
    HATA BİLDİRİM BAŞLIĞI
    Forumdaki kullanıcı adınızla ile giriş yapamıyorsanız kullanıcı adınızın sonuna 1 veya 2 gibi rakamlar ekleyerek deneyin.

    Hepimize Hayırlı Olsun!
    Hüseyin
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

tabolar arası boşluk koymak

Katılım
17 Haziran 2017
Mesajlar
16
Beğeniler
0
Excel Vers. ve Dili
2010 Türkce
#1
arkadaşlar excelime wepten veri cekiyorum ama tablolar gelirken aralarında boşluksuz geliyor bazı tablolarımda 15 satır varken bazılarında 30 satır olduğu icin her tabloma 30 satır ayırmak istiyorum makro olarak ama beceremedim
Sub Macro1()
Dim straddress As String
straddress = Sheets("BazaDATE").Range("z2").Value
Sheets("Clasament campionate").Select
Sheets("Clasament campionate").Range("A1:AQ30000").Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & straddress _
, Destination:=Range("A1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
'.WebSelectionType = xlAllTables
.WebSelectionType = xlSpecifiedTables
.WebTables = "8,,13"
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


Sheets("ANALİZ").Select
End Sub
macrom bu kardeşlerim
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
3,265
Beğeniler
19
Excel Vers. ve Dili
Excel2013 English
64Bit
#2
BazaDATE sayfanızın Z2 hücresinde bulunan web sitesinin adresini bildirirseniz, istediğiniz çözümü bulmak dah kolay ve hızlı olabilir.
 
Üst