VERİLERİ ALT ALTA YAZMAK

[editedbycenk]

Merhaba

Excel imde sayfa 1 de webden veri çekenbi döngü var burda webden veriyi çektiği zaman sayfa 2 ye yapıştırıyorum ama sayfa 1 de 1 den çok veri çekeceğim için ilkini çekipsayfa 2 ye yapıştırıp sayfa 1 i temizliyorum ama sildikten sonra 2.veriyi çekince sayfa2 ye aktardığımın hemen altına devam etsin böyle 100 den fazla döngü yapacağım vba ile bunla ilgili kod varmıdır ?

 

[ÖmerFaruk]

Kullandığınız kodları paylaşır mısınız?

 

[editedbycenk]

Private Sub CommandButton1_Click() ' veri al
On Error Resume Next





Dim a As String

Dim i As Integer
Dim url1, url2, url3, url4, url5 As String
Dim c As Integer
Dim j As Integer



a = Sayfa4.Cells(6, 11)

For j = 1 To 31


url1 = "buradalinkvar=" & a
If j < 10 Then
url2 = "buradalinkvar=2021100" & j
Else
url2 = "buradalinkvar=202110" & j
End If

url3 = "&sorguMerkezNo=-100&sorguRaporTur=2&sorguSonTarih=20211031"
url4 = [url1] & [url2] & [url3]

With ActiveSheet.QueryTables.Add(Connection:="URL;" & url4, _
Destination:=Range("D1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With


c = Sayfa4.Cells(7, 15) + 1

For i = 3 To Sayfa1.Cells(1, 3)


'//////////////////////////////////////////////////////////////////////
Sayfa2.Cells(c, 2) = Sayfa1.Cells(i, 5) '    barkod

'/////////////////////////////////////////////

'//////////////////////////////////////////////////////////////////////

c = c + 1



Range("D:AB").Select
  Selection.Delete
  
   'Sayfa1.Cells(42, 2) = i
   'Sayfa1.Cells(43, 2) = Sayfa1.Cells(41, 2) - i + 1

Next [i]
Next [j]




  
  
Call Makro1
     ' Sayfa1.Cells(41, 2) = ""
      Sayfa1.Cells(42, 2) = ""
       Sayfa1.Cells(43, 2) = ""
 
        
End Sub

 

[ÖmerFaruk]

Aldığınız verinin nasıl geldiğini bilmiyorum. Hangi satırlar ve sütunlar doluyor göremiyorum.
Yapmanız gereken bu satırdaki 1
Destination:=Range("D1"))
İfadesini değişkene bağlayarak mesela 10 satırlık bir veri geliyorsa ilkinde D1 ikincide D11 üçüncüde D21 olacak şekilde düzenlemenizdir.

Not: Paylaştığınız kodlardaki gereksiz satırları kaldırarak ve doğru şekilde hizlama yaparak daha bi okunaklı ve bizler tarafından da anlaşılır olmasını sağlayabilirsiniz.

 

[editedbycenk]

C ve i değişkenlerinde satırsay-boşluksay işlemleride var vba kodunu bilmediğim için başka sayfada yaptırdım

 

[ÖmerFaruk]

Dosyanızı paylaşma şansınız varsa düzeltelim.

 

[editedbycenk]

Aldığınız verinin nasıl geldiğini bilmiyorum. Hangi satırlar ve sütunlar doluyor göremiyorum.
Yapmanız gereken bu satırdaki 1
Destination:=Range("D1"))
İfadesini değişkene bağlayarak mesela 10 satırlık bir veri geliyorsa ilkinde D1 ikincide D11 üçüncüde D21 olacak şekilde düzenlemenizdir.

Not: Paylaştığınız kodlardaki gereksiz satırları kaldırarak ve doğru şekilde hizlama yaparak daha bi okunaklı ve bizler tarafından da anlaşılır olmasını sağlayabilirsiniz.

Hocam sayfa 1 de E2 den başlıyorum çekmeye ne kadar data çıkarsa o kadar sayfa 2 ye alt alta yazsın istiyorum linkte tarih değişken mesela 1 tarihte 10 veri çıktı 2.tarihte 5 veri çıktı önce 10 veriyi sayfa2 ye yapıştıracak 10 verinin altına 5 i yapıştıracak

 

[ÖmerFaruk]

link eklenememiş