Bir Hücreye İnternet'ten Aranan Değeri Alma

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

Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#1)  gokkurt38 » 30 Kas 2019 21:14

Merhaba Üstadlar..
Bir çalıma Sayfam var. Burada beğendiğim ve takip ettiğim hisse senetleri var. bunların kapanış değerlerini her gün aratıp yazmak durumunda kalıyorum ve zaman alıyor.
Örneğin A5 hücresinde yazan hisse kodunun kapanış değerini xxx siteden alarak D5 hücresine yazması.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#2)  gokkurt38 » 01 Arl 2019 12:10

Hocalarım çözümü yok mu? Bunun veya zor gibi..
Örneğin Bigpara, Blumberg veya mynet finans gibi sitelerden sonuç alamıyor muyuz?
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#3)  erseldemirel2 » 01 Arl 2019 12:13

çözümü var ama veri alınacak sitenin analiz edilmesi gerekiyor. cevap verdiğim konuyu inceleyin..sizde isteğiniz siteyi açıp kodlara hakimseniz istedğinizi yaptırabilirsiniz

viewtopic.php?f=4&t=34202
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#4)  erseldemirel2 » 01 Arl 2019 12:14

www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

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

Cevap: Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#5)  gokkurt38 » 01 Arl 2019 13:07



Hocam kodlara hakim değilim işte az az biliyorum. Ama tam olarak yapamıyorum. Size örnek vereyim başka bir arkadaş yapmış ben uyarlayamadım. Benimki sade olacak. Kod aşağıda
Kod: Tümünü seç
Private Sub Worksheet_Activate()
Dim Sayfa3 As Worksheet
Dim k As Integer

k = 10
Sheets("ANA SAYFA").Range("A10:E550").ClearContents

For Each Sayfa3 In Worksheets

Sheets("ANA SAYFA").Cells(k, 2).Select
Sheets("ANA SAYFA").Cells(k, 1).Value = "Sil"

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Sayfa3.Name & "!A1", TextToDisplay:=Sayfa3.Name

ActiveSheet.Hyperlinks.Add ActiveCell.Offset(0, 1), Address:= _
      "http://teknikanaliz.mynet.com/pages/Mynet/index.jsp?sembol=" & ActiveCell.Value & "", TextToDisplay:="GRAFİK"

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 2), Address:="https://www.kap.org.tr/tr/sirket-bilgileri/ozet/" & idnum(Sayfa3.Name) & "", TextToDisplay:="KAP"
'        "http://www.kap.gov.tr/bildirim-sorgulari/bildirm-sorgu-sonuc.aspx?tarihtipi=-1&sirkettip=0&sirketgrubu=0&SirketAraciKurumList=" & idnum(Sayfa3.Name) & "&bildirimtipi=-2&secimler=", TextToDisplay:="KAP"
'        "http://www.kap.gov.tr/bildirim-sorgulari/bildirm-sorgu-sonuc.aspx?tarihtipi=-1&sirkettip=0&sirketgrubu=0&SirketAraciKurumList=1626                   &   bildirimtipi=-2&secimler=ACISELSAN%20ACIPAYAM%20SEL%C3%9CLOZ%20SANAY%C4%B0%20VE%20T%C4%B0CARET%20A.%C5%9E.%20[%20ACSEL%20]%20T%C3%BCm%20Bildirimleri


'ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 3), Address:= _
'        "http://95.0.13.132/widgets/takas.jsp?L1=true&bastip=islem&hisse=" & ActiveCell.Value & "EN&kurum=KURUM*KURUMLAR&order=dblSon&by=desc", TextToDisplay:="TAKAS"
   
k = k + 1
Next Sayfa3

Application.ScreenUpdating = False
Sheets("ANA SAYFA").Range("A10:Z14").Clear
Sheets("ANA SAYFA").Columns("A:Z").AutoFit
Call anasayfa_satır_renklendirme
Sheets("ANA SAYFA").Cells(1, 1).Select
Application.ScreenUpdating = True

'Range("5:9").EntireRow.AutoFit
'Range("15:500").EntireRow.AutoFit


    End Sub

    Sub SayfaSil()
    Dim Target As Range
    Dim Sayfa As String
    If Selection.Cells.Value <> "" Then
    Sayfa = ActiveCell.Offset(0, 1).Value
    Sheets(Sayfa).Delete
    End If
    Worksheet_Activate
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo hata:
If Selection.Cells.Value = "Sil" Then
Call SayfaSil
End If
hata:
    If Err.Number = 13 Then
    Exit Sub
    End If
End Sub


Function idnum(evn As String) 'As Long
Set bul = Sheets("VERI").Range("D5:F1000").Find(evn, , , 1)
If Not bul Is Nothing Then idnum = bul.Offset(0, 2).Value
End Function

'ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],VERI!R[-1]C[-2]:R[994]C,2,FALSE)"


hocam ben uyarlayamdım bunu yardımcı olursan sevinirim. Aynı siteden alsın sonuçları farketmez.
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#6)  erseldemirel2 » 01 Arl 2019 14:45

Bu kendi başına bir proje olduğu için öğrenmenizde fayda var. Yoksa randımanlı çalışmaz.Hakim olmanız lazım vba kodlarına.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#7)  gokkurt38 » 01 Arl 2019 17:17

erseldemirel2 yazdı:Bu kendi başına bir proje olduğu için öğrenmenizde fayda var. Yoksa randımanlı çalışmaz.Hakim olmanız lazım vba kodlarına.

Hocam öğrenebilsek keşke Ben jandarma personeliyim. Vba öğrenmeye zaman ayıracak zamanımız yok. Daha ufak tefek şeyleri yapabiliyorum ama bu bambaşka bir şey. Neyse hayırlısı olsun Yapacak bir şey yok. teşekkürler ilginize..
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#8)  erseldemirel2 » 02 Arl 2019 14:31

örnek gönderdiğim konudaki gibi orada sgk sorgusuydu. sizde tespit ettiğiniz web sayfasını bir başlangıc yapmalısınızki takıldıgınız yerleri burada bakarız. çünkü kendi başına ciddi bir çalışma oluyor o. isterseniz başarırsınız. kolay gelsin
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#9)  gokkurt38 » 02 Arl 2019 20:25

Yaptım hocam süper oldu. Her akşam 1 -saatimi alan sorunu çözdüm... İnternetten soru yapıyor ve istediğim verinin değerlerini alıyor.. teşekkürler
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Bir Hücreye İnternet'ten Aranan Değeri Alma

İleti#10)  erseldemirel2 » 03 Arl 2019 14:26

Bu yazılım işi bence sevmekle alakalı. Severseniz kod yazmayı hangi meslek grubu olmanız farketmiyor. Başarmış olmanız güzel takıldığınız yerleri danışırsınız forumda kolay gelsin
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe