İnternet Üzerindeki Option'u Seçtirme

[dragon44760]

Kodla Exeldeki Verileri İnternete Girdiriyorum Ama Option'u Seçtiremiyorum

Sn. Haluk beyin eklemiş olduğu kodu kendime uyarlayıp internet sayfasına veri girmekteyim. Ancak veri girdiğim yerde seçmen gereken Option var ama bir türlü seçmem gereken seçeneği seçtiremedim. 'Kira' diye yazılı olan seçeneği nasıl seçtirebilirim_? Aşağıda verdiğim VBA kodunda nasıl bir değişiklik yapmam gerekiyor_? Yardımcı olursanız sevinirim.

İnternet sayfasına giriş düzenlediğim VBA kodu:

Sub Kira_Otomatik()
Application.ScreenUpdating = False
Dim URL As String
     Dim IE As Object
     Dim HTML_Body As Object
     Dim HTML_Tables As Object, MyTable As Object, HTML_Input As Object     
     URL = "http://uyg.hmm/PktMlyIslemleri/WebMlyIslemleri/FORMAyl/frmMmrBrcGD.aspx"
     If Cells(ActiveCell.Row, 31) = 0 Then
     MsgBox "Giriş İşlemleri Bitti.!", vbOKOnly + vbInformation, "BİTTİ..!"
     Exit Sub
     End If
     Set IE = CreateObject("InternetExplorer.Application")
         
     IE.Navigate URL
     Do Until IE.ReadyState = 4: DoEvents: Loop
     Do While IE.Busy: DoEvents: Loop
     
     Set HTML_Body = IE.Document.GetElementsByTagName("Body").Item(0)
     Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
     Set MyTable = HTML_Tables(1)
     
     On Error GoTo ErrHandler:
     HTML_Body.all.txtPBIK.Value = Sheets("Lojman Kira Hesaplama Tablosu").Cells(ActiveCell.Row, 2).Value
     HTML_Body.all.txtTtr.Value = Sheets("Lojman Kira Hesaplama Tablosu").Cells(ActiveCell.Row, 39)
     IE.Visible = True
     Application.Wait Now + TimeValue("00:00:10")
     Set HTML_Input = HTML_Body.GetElementsByTagName("Input")
     Set MyButton = HTML_Input(11)
     MyButton.Click
     Set HTML_Input = HTML_Body.GetElementsByTagName("Input")
     Set MyButton = HTML_Input(8)
     MyButton.Click
     IE.Visible = False
     ActiveCell.Offset(1, 0).Select
     Application.Run "Kira_Otomatik"
     GoTo SafeExit:
ErrHandler:
     MsgBox "Bağlantı hızınız yetersiz veya siteye zaten login durumdasınız." _
     & vbCrLf & "Başka bir neden de;" & vbCrLf & Err.Description, vbCritical, "Dikkat...!"
     IE.Visible = True
SafeExit:
     Set HTML_Body = Nothing
     Set HTML_Tables = Nothing
     Set MyTable = Nothing
     Set IE = Nothing
End Sub

İlgili olduğunu düşündüğüm HTML kodu ise:

  BORÇ BİLGİLERİ GÜNCELLEME İŞLEMLERİ</td>
    </tr>    
    <tr>
    <td>Borç Türü:</td>
    <td style="width: 802px">
        <select name="scmBrctur" id="scmBrctur" style="font-size:XX-Small;">
	<option value="OZLSGRTTR">Özel Sigorta Tutarı</option>
	<option value="BRCMKT03">Maaş Katı Ceza</option>
	[COLOR="Red"]<option value="BRCMKT04">Kira</option>[/COLOR]
	<option value="BRCMKT05">İlaç Katılım Payı</option>
	<option value="BRCMKT06">Tedavi Katılım Payı</option>
	<option value="BRCMKT07">Kişi Borcu</option>
	<option value="BRCMKT09">Tayın Bedeli</option>

Not: Html kodundan başka bilgiler lazım olursa tamamı EK'te bulunan dosyada.

 

[dragon44760]

Yardımcı olacak biri yok mu_?

 

[Recep İpek]

HTML_Body.all.scmBrctur.Value = ="BRCMKT04" olarak deneyebilir misiniz?

 

[dragon44760]

Teşekkürler

Sn. İPEK teşekkürler..