-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Web Sayfasına Veri girişi
- Konbuyu başlatan Karanlik1
- Başlangıç tarihi
- Katılım
- 14 Şubat 2006
- Mesajlar
- 3,426
- Excel Vers. ve Dili
- (Excel 2016 - İngilizce)
- Altın Üyelik Bitiş Tarihi
- 30-11-2022
Aşağıdaki kodları kullanabilirsiniz.
Kod:
Sub www()
On Error Resume Next
ActiveWorkbook.FollowHyperlink address:="http://www.excel.web.tr", NewWindow:=True
End SubÇok saol Dostum.. Bişey daha soruyum
Web sayfasına bilgi girişi yapabiliyorum ama şurda
Web sayfasına bilgi girişi yapabiliyorum ama şurda
Kimilk kısmına Tc kimlik seçtirmek istiyorum<select name="kimlik"><option value="9">Bilinmiyor</option><option value="3">Nüfus Cüzdanı</option><option value="5">Vergi Kimlik No</option><option value="6">TC Kimlik No</option><option value="2">Ehliyet/Sürücü Belgesi</option><option value="1">Pasaport</option>
şeklinde yaptığımda çalışmıyor. Nasıl yapabilirim.Kimlik.Value = "TC Kimlik No"
- Katılım
- 14 Şubat 2006
- Mesajlar
- 3,426
- Excel Vers. ve Dili
- (Excel 2016 - İngilizce)
- Altın Üyelik Bitiş Tarihi
- 30-11-2022
Combobox'da default olarak "TC Kimlik No" mu olmasını istiyorsunuz?
Eğer bu şekilde ise kodlarınıza SELECTED ifadesini ekleyiniz.
Yani,
<option value="6" SELECTED>TC Kimlik No</option>
Eğer bu şekilde ise kodlarınıza SELECTED ifadesini ekleyiniz.
Yani,
<option value="6" SELECTED>TC Kimlik No</option>
Son düzenleme:
Merhabalar
Web sayfasına bilgi girişi yapabiliyorum ama şurda açlır menüden;
Web sayfasına bilgi girişi yapabiliyorum ama şurda açlır menüden;
Kimlik kısmına Tc kimlik seçtirmek istiyorum<select name="kimlik"><option value="9">Bilinmiyor</option><option value="3">Nüfus Cüzdanı</option><option value="5">Vergi Kimlik No</option><option value="6">TC Kimlik No</option><option value="2">Ehliyet/Sürücü Belgesi</option><option value="1">Pasaport</option>
veya.Kimlik.Value = "TC Kimlik No"
şeklinde yaptığımda çalışmıyor. Nasıl yapabilirim.Kimlik.Value = option.value=6
çok saol, kusura bakma yanlış anlattım. Aşağıdaki kodlara ekleyip web sayfasında seçtirmek istiyorum.
TC = Replace(ListBox1.List(ListBox1.ListIndex, 1), " ", "")
MyData(1) = TC
MyData(2) = ListBox1.List(ListBox1.ListIndex, 2)
MyData(3) = ListBox1.List(ListBox1.ListIndex, 3)
MyData(4) = ListBox1.List(ListBox1.ListIndex, 4)
MyData(5) = ListBox1.List(ListBox1.ListIndex, 5)
MyData(6) = ListBox1.List(ListBox1.ListIndex, 6)
MyData(7) = ListBox1.List(ListBox1.ListIndex, 7)
MyData(8) = ListBox1.List(ListBox1.ListIndex, 8)
Set IE = CreateObject("Shell.Application").Windows.Item
With IE.Document.all
.txtAdi_1.Value = MyData(1)
.txtSoyadi_1.Value = MyData(2)
.txtBabaAdi_1.Value = MyData(3)
.txtKimlikNo_1.Value = MyData(4)
.txtDigerKimlikNo_1.Value = MyData(5)
.DogumTarih_1.Value = MyData(6)
.txtAdresSatiri1_1.Value = MyData(7)
.txtAdresSatiri2_1.Value = MyData(8)
'.tCmbDigerKimlikTuru_1.Value = "TC Kimlik No"
6 veya "6" olarak da çalışmadı
düzeltmeye çalıştığım kod bu
düzeltmeye çalıştığım kod bu
TC = Replace(ListBox1.List(ListBox1.ListIndex, 1), " ", "")
MyData(1) = TC
MyData(2) = ListBox1.List(ListBox1.ListIndex, 2)
MyData(3) = ListBox1.List(ListBox1.ListIndex, 3)
MyData(4) = ListBox1.List(ListBox1.ListIndex, 4)
MyData(5) = ListBox1.List(ListBox1.ListIndex, 5)
MyData(6) = ListBox1.List(ListBox1.ListIndex, 6)
MyData(7) = ListBox1.List(ListBox1.ListIndex, 7)
MyData(8) = ListBox1.List(ListBox1.ListIndex, 8)
Set IE = CreateObject("Shell.Application").Windows.Item
With IE.Document.all
.txtAdi_1.Value = MyData(1)
.txtSoyadi_1.Value = MyData(2)
.txtBabaAdi_1.Value = MyData(3)
.txtKimlikNo_1.Value = MyData(4)
.txtDigerKimlikNo_1.Value = MyData(5)
.DogumTarih_1.Value = MyData(6)
.txtAdresSatiri1_1.Value = MyData(7)
.txtAdresSatiri2_1.Value = MyData(8)
.kimlik.Value = "TC Kimlik No"
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Olmaması mümkün değil ...
Ekli zip dosyasını indirin ve içindeki Test.htm ile SendData.xls dosyalarının her ikisini de açın. Daha sonra, Excel dosyasındaki butona tıklayın.
Butona tıkladıktan sonra, html sayfasındaki combo' da "TC Kimlik No" seçili olacaktır.
Not:
Eğer o sırada 1'den fazla IE penceresi açıksa, kod hata verir. Esasında, VBA kodunuz güzel değil...
Lokal değil de Web de bir sunucu üzerindeki sayfaya data yollmaya çalıişıyorsanız, createobject ile IE nesnesi oluşturduktan sonra sayfaya navigate edip, bağlantı kurun.
Forumda bununla ilgili çok örnek var.
Ekli zip dosyasını indirin ve içindeki Test.htm ile SendData.xls dosyalarının her ikisini de açın. Daha sonra, Excel dosyasındaki butona tıklayın.
Butona tıkladıktan sonra, html sayfasındaki combo' da "TC Kimlik No" seçili olacaktır.
Not:
Eğer o sırada 1'den fazla IE penceresi açıksa, kod hata verir. Esasında, VBA kodunuz güzel değil...
Lokal değil de Web de bir sunucu üzerindeki sayfaya data yollmaya çalıişıyorsanız, createobject ile IE nesnesi oluşturduktan sonra sayfaya navigate edip, bağlantı kurun.
Forumda bununla ilgili çok örnek var.
Son düzenleme:
Arkadaşlar birde şu "radio" tarzı seçimi nasıl yaptırabilirim.
Cinsiyet </font></td><td><font color="#0c0080" size="-1">:</font></td><td><font color="#0c0080" size="-1"> <input value="1" name="optcinsiyet" type="radio"> Erkek</font></td><td align="left"><font color="#0c0080" size="-1"> <input value="2" name="optcinsiyet" type="radio"> Bayan</font></td></tr></tbody>
Son düzenleme:
Haluk
Özel Üye
- Katılım
- 7 Temmuz 2004
- Mesajlar
- 12,406
- Excel Vers. ve Dili
-
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
- Altın Üyelik Bitiş Tarihi
- ∞
Sözkonusu RadioButton' lar olunca, VBA'den kumanda etmesi biraz daha degisik oluyor .... Bu iş için başka bir örnek hazırladım.
Ekli zip dosyasını indirin ve yine daha önce olduğu gibi hem HTML dosyasını hem de Excel dosyasını açın.
Excel dosyasındaki butonlarla, HTML sayfasında Bayan veya Bay cinsiyetini seçebileceksiniz.
Ekli zip dosyasını indirin ve yine daha önce olduğu gibi hem HTML dosyasını hem de Excel dosyasını açın.
Excel dosyasındaki butonlarla, HTML sayfasında Bayan veya Bay cinsiyetini seçebileceksiniz.
-
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.