Web sayfası obtion value nesnesine hücreden veri aktarma

[kelkitli]

Değerli Dostlar Selamlar,

Private Sub CommandButton1_Click()
On Error Resume Next
WebBrowser1.Document.all.txtKKod.Value = Range("U2").Value
WebBrowser1.Document.all.txtParola.Value = Range("U3").Value
WebBrowser1.Document.all.btnGiris.Click
End Sub

yukarıdaki kodlarla taşınır.net web sayfasına veri giriyorum.
İşlemleri hızlandırmak için açılan web sayfasına excelden bilgi aktararak işlemleri hızlandırmak istiyorum.
Mesela:

WebBrowser1.Document.all.txtKisiAd.Value = Range("U4").Value

U4 deki veriyi Kişi adı kısmına gönderiyorum.
Sorunum şu:
Web sayfası içerisinde bu kısım açılır kutu.

<div class="row">
<div class="yaziAlanK">Kişi Adı</div>
<div class="ikiNokta">:</div>
<div class="veriAlan"><input name="txtKisiAd" type="text" size="110" id="txtKisiAd" class="veriAlan" /></div>
</div>
<div class="row">
<div class="yaziAlanK">Makbuz Tipi</div>
<div class="ikiNokta">:</div>
<div class="veriAlan" style="width:397px"><select name="ddlMakbuzTipi" id="ddlMakbuzTipi" class="veriAlanDDL" style="width:400px;">
<option value=""></option>
<option value="5">ANKARAY ÖĞRENCİ MANYETİK KART BEDELİ</option>
<option value="4">ANKARAY TAM MANYETİK KART BEDELİ</option>
<option value="32">ARAÇ KİRA BEDELİ</option>
<option value="40">AVUKATLIK VEKALET ÜCRETI GELIRLERI</option>
<option value="20">BANDROL ÜCRETİ GELİRLERİ</option>
<option value="26">BERBER GELİRLERİ</option>
<option value="41">BILET BAYILERINDEN ALINAN GÜVENCE</option>
<option value="17">BİLET BASIM BEDELİ</option>
<option value="23">C PLAKA SERVİS ARAÇLARI UYGUNLUK</option>
<option value="13">CENAZE OTO TAHSİSLERİ</option>
<option value="35">CEZA GELİRLERİ</option>
<option value="36">DIĞER FAIZLER(GECİKME CEZASI)</option>
<option value="34">DIĞER İDARI PARA CEZALARI</option>
<option value="45">DİĞER</option>
<option value="46">DİĞER GELİRLER</option>
<option value="8">DİĞER KART GELİRLERİ</option>
<option value="38">DİĞER KİRA GELİRLERİ</option>
<option value="22">ELEKTRİK VE SU GELİRLERİ</option>
<option value="42">GEÇICI TEMINATLAR</option>
<option value="28">GİYİM YARDIMI KESİNTİLERİ</option>
<option value="15">HALK OTO.ARAÇ UYGUNLUK</option>
<option value="33">HARİTA SATIŞ GELİRLERİ</option>
<option value="16">HASAR GELİRLERİ</option>
<option value="18">HURDA MALZEME GELİRLERİ</option>
<option value="47">İHALELERDEN KESİLEN DAMGA VERGİSİ</option>
<option value="2">İLAN VE REKLAM GELIRLERI</option>
<option value="9">KAMU KARTI BEDELİ</option>
<option value="21">KART BASIM BEDELİ</option>
<option value="27">KAYIP EŞYA VE DEPOLAMA GELİRİ</option>
<option value="30">KAYIP KART BEDELİ</option>
<option value="43">KESIN TEMINATLAR</option>
<option value="39">KESİN VE GEÇİCİ İRAD KAYDI</option>
<option value="37">LOJMAN KIRA GELIRLERI</option>
<option value="7">METRO ÖĞRENCİ MANYETİK KART BEDELİ</option>
<option value="6">METRO TAM MANYETİK KART BEDELİ</option>
<option value="44">OTO HASARI</option>
<option value="14">OTO TAHSİS GELİRLERİ</option>
<option value="3">OTOBÜS ÖĞRENCİ MANYETİK KART BEDELİ</option>
<option value="1">OTOBÜS TAM MANYETİK KART BEDELİ</option>
<option value="11">ÖĞRETMEN PASO GELİRLERİ</option>
<option value="19">ÖZEL HALK OTO.%10 GELİR PAYI</option>
<option value="12">ÖZÜRLÜ SERBEST KART BEDELİ</option>
<option value="29">PSİKOTEKNİK BEDELİ</option>
<option value="31">ŞARTNAME, BASILI EVRAK, FORM SATIŞ GELIRLERI</option>
<option value="24">TAHSİL EDİLEN RAPOR PARASI</option>
<option value="10">YAŞLILIK KARTI GELİRLERİ</option>
<option value="25">YEMEK GELİRLERİ</option>

Mesela buradaki nesne içerisine T12 hücresine yazacağım bir bilgi ile nasıl seçim yapabilirim.

 

[Mahmut Kök]

Aşağıdaki gibi deneyiniz.

Açılan kutulara value değerlerini girmeniz gerekir, mesela oraya 11 girdiğinizde 11 değerine karşılık gelen yazı gözükür. Siz de T12 hücresine bu şekilde bir tanımlama yaparsanız işlem hallolacaktır diye düşünüyorum.

WebBrowser1.Document.all.ddlMakbuzTipi.Value = Range("T12")

 

[kelkitli]

Selamlar,
Sayın Mahmut Bey,
Cevabınız için teşekkür ederim. Ancak sonuç alamadım. Nesnenin içerisi dolu iken bu kodu çalıştırınca texti siliyor.

 

[Mahmut Kök]

Önceki iltide bahsettiğim şekilde örnek hazırladım. T12 hücresine value değerleri gelecek şekilde bir ayarlama yapın demiştim, ben basit bir yöntem kullandım orada, siz aynı mantıkla başka bir yöntem de kullanabilirsiniz. İnceleyiniz, sorun varsa, başka bir çözüm yolu bulalım.

 

[kelkitli]

Sayın Mahmut Bey,
Tekrar teşekkür ederim. Sağolun güzel oldu. Ben sadece değeri yazmıştım. Demek ondan dolayı olmamış.
Ben şöyle ilginç bir durum izledim. Bilgiler isimli sayfadaki "21 KART BASIM BEDELİ" ibaresinin sadece sayısal kısmını bırakıp (21), diğer kısmını silince web browserden açılır kutu kayboluyor. Bağlantıyı anlayamadım.

 

[Mahmut Kök]

Dediğiniz gibi sadece sayı kısmını bıraksanız da olur. Oraların internet tarayıcısı kısmıyla herhangi bir ilgisi yok, sadece sayfalar arasında dolaşınca tarayıcıda niyeyse öyle şeyler oluyor bazen.