web'den belirlenen hücreye seçili değeri alma

[ismailayan]

merhaba arkadaşlar
gerçi daha önce yazmıştım ama

tam bana uyarlanacak bir örnek olmadııı
benim istediğim belirlenen hücreye döviz kurlarının bulunduğu siteden sadece EURO yu alabilirmiyim...

bu konuda bana yardımcı olurmusunuz???

 

[Kemal Demir]

Zannedersem biraz ayrıntıyı kaçırmısım

Umarım bu sefer ısıne yarar

 

[ismailayan]

Ne demek istedin hiç bir şey anlamadım.


sanırım bu konuda bana yardımcı olamayacaksın....

 

[Levent Menteşoğlu]

Ekteki dosyayı inceleyin. Bu dosya TCMB web sitesinden $ ve € kurlarını alıp altaalta sıralamaktadır. İsterseniz koda ilave yaparak $ kurlarını silip sadece € kurlarını bırakırsınız.

 

[ismailayan]

merhaba leventm beyyyy


bu konuda bilgilisiniz..

be n ekteki excel dosyasına uyarlayamadımmm..


sizden rica etsemmmm..

ekteki dosyaya uyarlayabilirmisiniz...


benim için çok önemli iş açısından ..


yardımın için şimdiden çok teşekkürler


cevabınızı bekliyorum....

 

[Levent Menteşoğlu]

Ã?ncelikle dosyayı incelemeden yorum yapıyorsunuz bunu hatırlatayım. Dosyanızdaki butona aşağıdaki kodu yazın.

[vb:1:ef91438a69]Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Set s1 = Sheets(1)
On Error GoTo 10
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.tcmb.gov.tr/yeni/ana.php", Destination:=Range("a1"))
.Name = "ana"
.AdjustColumnWidth = True
.WebFormatting = xlWebFormattingNone
.WebTables = "7"
.WebPreFormattedTextToColumns = True
.Refresh BackgroundQuery:=False
End With
TextBox3 = Format(Date, "dd.mmmm.yy")
If Weekday(Date) = 1 Then TextBox3 = Format(Date - 2, "dd.mmmm.yy")
If Weekday(Date) = 7 Then TextBox3 = Format(Date - 1, "dd.mmmm.yy")
TextBox1 = [d5] / 10000
TextBox2 = [d6] / 10000
[a:e].ClearContents
MsgBox "KURLAR ALINDI"
Exit Sub
10 MsgBox "İNTERNET BAÐLANTISI YOK VEYA WEB SAYFASI AÇILAMIYOR"
End Sub
[/vb:1:ef91438a69]

 

[ismailayan]

merhaba levent bey


çok oluyorum biliyorum ama
ekteki dosyayı sizin gönderdiğiniz örneğe göre uyarlamaya çalıştım ama beceremedim...

bu konuda bana yardımcı olursan sevinirim...

userform1 deki listeye listeyi dökecek

listeden seçilen isimlerinde bilgileri yan taraftaki textlerde gösterilmesi gerekiyor...

yardımın için şimdiden teşekkürler..

çok sıktığım farkındayım....



cevabını bekliyorum...