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
5,077
Beğeniler
505
Excel Vers. ve Dili
2013 64Bit
English
#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