[Yardım]  İnternetten çekilen verileri sırayla yan satırlara girmek

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İnternetten çekilen verileri sırayla yan satırlara girmek

İleti#1)  djanisf » 10 May 2018 15:11

İyi günler
Arama yaparken yardıma ihtiyacım olan konuya yakın bir şeyler buldum ama bunları kendi çalışma kitabıma aktaramadım.

İnternet üzerinden veri çekiyorum ve bu veriler sürekli değişiyor. Tümünü yenile dediğimde eski değerleri aklımda tutmam imkansız. Bu yüzden yan satırlara ben yenileye bastığımda, ya da kendisi otomatik yenilediğinde bir önceki değerlerin sırayla girmesini istiyorum.
Dosyayı ek olarak yükledim.
Şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#2)  djanisf » 10 May 2018 15:22

Düzeltme : Sadece Hacim sütunundaki verilerin yan satırlara yazılmasını istiyorum.
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#3)  feraz » 10 May 2018 17:11

Alttaki kodları kullanabilirsiniz.1 dakikaya ayarladım.

Dosyayı deneyebilirsiniz.isterseniz düğmeye basıpta verileri aktarabilirsiniz.

Kod: Tümünü seç
Sub aktar()

Dim i As Long, sonF As Long, sonD As Long, sonsutun As Long

With Sheets("Sayfa1")
    sonD = .Cells(Rows.Count, "D").End(3).Row
    sonF = .Cells(Rows.Count, "F").End(3)(2, 1).Row
   
Application.EnableEvents = False

     .Range("D2:D" & sonD).Copy
     .Range("F" & sonF).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
      sonsutun = .Cells(sonF, Columns.Count).End(xlToLeft).Column
       
    For i = 6 To sonsutun
        If Not IsNumeric(.Cells(sonF, i).Value) Then .Cells(sonF, i) = Empty
    Next
    .[E1].Select
    Application.CutCopyMode = False
  Application.EnableEvents = True
 
  Call dakka1
 
End With

End Sub


Kod: Tümünü seç
Sub dakka1()
    Application.OnTime Now + TimeValue("00:01:00"), "aktar"
End Sub


Kod: Tümünü seç
Sub auto_Open()
    Call aktar
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#4)  feraz » 10 May 2018 17:20

E sütununa veri eklenme zamanını eklemeyi unutmuşum.

Sub aktar() kodunda .[E1].Select satırının bir üst satırına .Cells(sonF, "E").Value = Now eklerseniz saat ve tarihte olur.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#5)  djanisf » 10 May 2018 17:28

Çok teşekkür ederim emek verdiğiniz için.
Yalnız verileri satırlara değil de sütunlara yazması gerekli aşağı doğru :)
Böyle soldan sağa doğru yazıyor.
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#6)  djanisf » 10 May 2018 17:35

Bir de çok fazla veri giriyor, otomatik değil de sadece ben tümünü yenile dediğimde yapsa bu işi olur mu?
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#7)  feraz » 10 May 2018 17:51

Sadece alttaki kodu kullanın.Tümünü yenile yapınca düğmeye basmalısınız.
Dosyanız makrosuz olduğu için böyle oldu.

Kod: Tümünü seç
Sub aktar()

Dim i As Long, son As Long, sonD As Long, sonsutun As Long

With Sheets("Sayfa1")

    If .[F2].Value = Empty Then
        sonsutun = 6
    Else
        sonsutun = .Cells(2, Columns.Count).End(xlToLeft).Column + 1
    End If
    sonD = .Cells(Rows.Count, "D").End(3).Row
   
  Application.EnableEvents = False

     .Range("D2:D" & sonD).Copy
     Cells(2, sonsutun).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
     son = .Cells(Rows.Count, sonsutun).End(3).Row
       
    For i = 2 To son
        If Not IsNumeric(.Cells(i, sonsutun).Value) Then .Cells(i, sonsutun).Value = Empty
    Next
    .[E1].Select
    Application.CutCopyMode = False
  Application.EnableEvents = True
 

End With

i = Empty: son = Empty: sonD = Empty: sonsutun = Empty

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#8)  djanisf » 10 May 2018 18:19

Şimdi çok güzel oldu :)
Çok teşekkür ederim zahmet verdim size [op]
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#9)  feraz » 10 May 2018 18:21

Rica ederim.

Kolay gelsin.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#10)  feraz » 10 May 2018 18:29

Kod: Tümünü seç
Application.EnableEvents = False
ve
Kod: Tümünü seç
Application.EnableEvents = True

Bunları silebilirsiniz.Sayfanın kodları için yapmıştım.

Sonra olmayınca silmeyi unutmuşum.

Bunların yerine
Kod: Tümünü seç
Application.screenupdating =false
ve
Kod: Tümünü seç
application.screenupdating = true
yazabilirsiniz.

Kafadan yazdığım için yanlışlık olabilir belki.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#11)  djanisf » 10 May 2018 18:57

Tekrar rahatsız ediyorum ama Aktar butonuna verileri yenile makrosu eklemeye çalışıyorum ama olmadı. Sadece aktar tuşuna basarak önce verileri yenileyip daha sonra aktarmasını istiyorum. Aktar butonundaki kodun üstüne alttaki kodu ekledim fakat olmadı.

Sub yenile()
' yenile Makro
' yenile
ActiveWorkbook.RefreshAll
End Sub
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#12)  feraz » 10 May 2018 19:00

Yenile kodları var mı?

Dosyanız kodsuz otomatik güncelliyordu.
Birazdan bir bakayım.Makro kaydet ile belki bişey olur güncelleme kodu.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#13)  djanisf » 10 May 2018 19:02

Yaptım ama yenileme süresi 1 saniye civarı sürüyor. Bu yüzden yenilemeyi beklemeden direkt aktarıyor şimdi de :)
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cevap: İnternetten çekilen verileri sırayla yan satır

İleti#14)  djanisf » 10 May 2018 19:03

feraz yazdı:Yenile kodları var mı?

Dosyanız kodsuz otomatik güncelliyordu.
Birazdan bir bakayım.Makro kaydet ile belki bişey olur güncelleme kodu.



Kodsuz 1 dakika aralıklarla güncelliyor ama bazen manuel olarak da güncellemem gerekiyor
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#15)  djanisf » 10 May 2018 19:08

Şu anda son hali bu
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#16)  feraz » 10 May 2018 19:08

ActiveWorkbook.RefreshAll bunu ekledim sadece.

Kod: Tümünü seç
Sub aktar()

Dim i As Long, son As Long, sonD As Long, sonsutun As Long


ActiveWorkbook.RefreshAll

With Sheets("Sayfa1")

    If .[F2].Value = Empty Then
        sonsutun = 6
    Else
        sonsutun = .Cells(2, Columns.Count).End(xlToLeft).Column + 1
    End If
    sonD = .Cells(Rows.Count, "D").End(3).Row
   
  Application.ScreenUpdating = False

     .Range("D2:D" & sonD).Copy
     Cells(2, sonsutun).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
     son = .Cells(Rows.Count, sonsutun).End(3).Row
       
    For i = 2 To son
        If Not IsNumeric(.Cells(i, sonsutun).Value) Then .Cells(i, sonsutun).Value = Empty
    Next
    .[E1].Select
    Application.CutCopyMode = False
  Application.ScreenUpdating = True
 

End With

i = Empty: son = Empty: sonD = Empty: sonsutun = Empty

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#17)  djanisf » 10 May 2018 19:16

ben de böyle yaptım ama dediğim gibi 1-2 saniye kadar delay var yenilerken ve yenilenmesini beklemeden aktarıyor
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#18)  feraz » 10 May 2018 19:35

Dosya yazırladım tabii makro kaydet ile.

Şimdi ilk önce 1 dakika yenileme ve arka planda yenilemeyi kapatıyor sonra ve yeniliyor.Sonra eski ayarlarına dönüyor.

Dosyayı bir deneyin olmayan yer varsa bakarız.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#19)  feraz » 10 May 2018 19:40

Bu dosyayı deneyin.Koda bir şey daha ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 4781
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: İnternetten çekilen verileri sırayla yan satırlara gi

İleti#20)  djanisf » 10 May 2018 19:51

Galiba oldu her şey teşekkür ederim.
Son bir şey daha, en üst satırda 1. değer, 2. değer yazan yerlere tarih ve saat atabilir miyiz ?
Kullanıcı avatarı
djanisf
Yeni Başlamış
 
Kayıt: 10 May 2018 14:35
Meslek: Mekatronik Mühendisi
Yaş: 29
İleti: 12
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe