• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
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,862
Beğeniler
132
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