Bu siteden altın ve döviz bilgilerini alabilirmiyiz.

[arslanbey]

Bu siteden altın ve döviz bilgilerini userfromdaki textboxlara alabilirmiyiz http://www.altinkaynak.com/

 

[Murat OSMA]

Süleyman Bey, bu site ile ilgili bir örnek hazırlamıştım.

O örnekte bilgileri sayfaya alıyorduk, şimdi de TextBox'lara istiyorsunuz. Yani; hücre adresi yerine TextBox adını yazarsanız istediğiniz olacaktır...

Ayrıca bu siteden verileri alma ile ilgili kodları neden tekrar yazdırmak istediğinizi de anlamış değilim...

 

[arslanbey]

Evet haklısınız hocam alıyoruz fakat resimdeki hücrelerde büyüme oluyor

Sub Emre()
    Dim Osma As Object
    Dim i As Integer
        Range("A11").Value = "Veriler Alınıyor..."
    Set Osma = CreateObject("Internetexplorer.Application")
        Osma.Visible = False
        Osma.Navigate "http://www.altinkaynak.com/"
    Do While Not Osma.ReadyState = 4: DoEvents: Loop
        Range("A3:C20").ClearContents
    With Osma.Document.all
        Range("A1").Value = Right(.Item(111).innertext, 17)
        Range("A3").Value = .Item(78).innertext
        Range("A4").Value = .Item(81).innertext & " / " & .Item(82).innertext
        Range("A5").Value = .Item(83).innertext
        Range("A6").Value = .Item(88).innertext & " / " & .Item(89).innertext
        Range("B3").Value = .Item(131).innertext
        Range("B4").Value = .Item(136).innertext & " / " & .Item(137).innertext
        Range("B5").Value = .Item(138).innertext
        Range("B6").Value = .Item(143).innertext & " / " & .Item(144).innertext
        Range("B7").Value = .Item(145).innertext
        Range("B8").Value = .Item(150).innertext & " / " & .Item(151).innertext
        Range("B9").Value = "ONS: " & .Item(175).innertext
    For i = 197 To 267 Step 10
        Range("c65536").End(3)(2, 1) = Osma.Document.all.Item(i).innertext & " - " & _
        Osma.Document.all.Item(i + 2).innertext & " / " & Osma.Document.all.Item(i + 3).innertext
    Next i: i = Empty
    End With
        Columns.AutoFit: Rows.AutoFit
        Range("A11").Value = "Veriler Alındı..."
    Set Osma = Nothing
End Sub

Birde hocam bunları textbox nasıl alabiliriz nerde ve nasıl teğişiklik yaparız ufak bir örnek verebilirmisinz.

 

[Murat OSMA]

Bende resimdeki gibi görünüyor...
Dosyayı da tekrar yolluyorum..

TextBox'a alma olayını da önceki mesajımda yazmıştım...

 

[arslanbey]

Bende hocam sizin resimdeki değil benim ofis programda sorun olabilrmi.

 

[Murat OSMA]

Sizdeki dosyayı gönderin bakalım...

 

[arslanbey]

Tamam hocam en son sizin gönderdiğiniz dosyada hiç bir değişiklik yapmadım.

 

[Murat OSMA]

Benim size gönderdiğim dosyada hiçbir değişiklik yapmadan, tekrar aynı şekilde bana göndererek ne eldetmeye çalıştığınız öğrenebilir miyim ? :dusun: :dusun: :dusun:

 

[arslanbey]

Hocam lütfen yanlış anlamayın benim anlatmak istdiğim bu sizin gönderdiğiniz dosyada hiç bir değişiklik yapmadan ilk mesajımdaki resimdeki oluyor hocam.Excel hücre sutünlar aşağı doğru büyüyor sebebi nedir anlamış değilim.

 

[Murat OSMA]

Peki.
Başka kullanıcılarda da aynı sorun olursa o zaman tekrar bakarım..
Belki benim bilmediğim bir nedeni vardır. Yönetici arkadaşlar da ilgilenirse sevinirim...

Son olarak şunu yapın: A sütunu ve 1. satırın kesiştiği köşedeki yeri seçerek, A - B sütunlarının ve 1. - 2. satırların birleştiği çizgi üzerinde çift tıklayın...

 

[Merhum İdris SERDAR]

Hocam lütfen yanlış anlamayın benim anlatmak istdiğim bu sizin gönderdiğiniz dosyada hiç bir değişiklik yapmadan ilk mesajımdaki resimdeki oluyor hocam.Excel hücre sutünlar aşağı doğru büyüyor sebebi nedir anlamış değilim.

.

Sebebi nedir bilmiyorum. Ama dediğinizin aynısı bende de oluyor.

Bu nedele;

Columns.AutoFit: Rows.AutoFit

kodundan sonra gelmek üzere aşağıdaki kodu ekleyin.

      Cells.WrapText = False

.

 

[arslanbey]

Üzgünüm hocam ama dediğiniz gibi kodu dediğiniz yere yazdım fakat değişen birşey olmadı.

 

[Merhum İdris SERDAR]

Üzgünüm hocam ama dediğiniz gibi kodu dediğiniz yere yazdım fakat değişen birşey olmadı.

.


Dediğiniz imkansız birşey...


Dosyanız ekte.

.

 

[arslanbey]

Tamam hocam teşekkürler.

 

[assenucler]

Sayın Murat Osma ve yurttas;


Değerli üstadlarım, günaydınlar ve iyi pazarlar.

Katkılarınız için içten teşekkürler.

Sevgi ve saygılar.

 

[Murat OSMA]

Sn.yurttas, sorunuzu çözüme kavuşturduğunuz için, ben de ayrıca teşekkür ederim.

İyi çalışmalar...