• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Numarayı sendkeys metodu ile gönderme

H

harziyan

Katılım
13 Aralık 2006
Mesajlar
575
Excel Vers. ve Dili
Office 2010
Merhaba;

Ada numarası maksimum 3 rakam, parsel numarası ise max 4 rakamdır. Ben ada numarasını ve parsel numarasını resimde görüldüğü şekilde "parçaal" yöntemi ile ayırdım. Şimdi A3, A4 ve A5'teki rakamları sırayla
sendkeys (1)
sendkeys (0)
sendkeys (1)
ile gönderdiğimde ilgili hücreye (herhangi bir hücre) 101 yazdırabiliyorum.
Aynı şekilde parsel numarasını da
sendkeys (1)
sendkeys (0)
sendkeys (7)
sendkeys (1)
ile 1071 yazdırabiliyorum.
Şimdi benim bu işin döngüsüne ihtiyacım var.
Kod: 
Mesela textbox1'e veri göndereceğimi varsayarak
[COLOR="DarkRed"]ada numarası için[/COLOR]
a3 0 ise sendkeys (0)
a3 1 ise sendkeys (1)
a3 2 ise sendkeys (2)
.
a3 2 ise sendkeys (9)

a4 0 ise sendkeys (0)
a4 1 ise sendkeys (1)
a4 2 ise sendkeys (2)
.
a4 9 ise sendkeys (9)

a5 0 ise sendkeys (0)
a5 1 ise sendkeys (1)
a5 2 ise sendkeys (2)
.
a5 9 ise sendkeys (9)

[COLOR="DarkRed"]parsel numarası için[/COLOR]
b3 0 ise sendkeys (0)
b3 1 ise sendkeys (1)
b3 2 ise sendkeys (2)
.
b3 9 ise sendkeys (9)

b4 0 ise sendkeys (0)
b4 1 ise sendkeys (1)
b4 2 ise sendkeys (2)
.
b4 9 ise sendkeys (9)

b5 0 ise sendkeys (0)
b5 1 ise sendkeys (1)
b5 2 ise sendkeys (2)
.
b5 9 ise sendkeys (9)

b6 0 ise sendkeys (0)
b6 1 ise sendkeys (1)
b6 2 ise sendkeys (2)
.
b6 9 ise sendkeys (9)

Ada ve Parsel numaralarını sendkeys metodu ile göndermek. Bu amaca uygun farklı çözüm önerilerine de açığım.
Teşekkürler.
 
Örnek dosya ekleyebilir misiniz.
Bu işlem için Sendkey'i neden kullanmak istiyorsunuz.
 
Bu sebepten ama malesef bakanlık sitesi olduğundan ve ip kısıtlaması olduğundan dosya paylaşamıyorum! Çok özür dilerim.:oops:
 
Maksadım da bu;
Kod: 
Sub sorgula()
    'Ada Numarası için
    WebBrowser1.Document.getelementbyid("ctl00_ctl00_bodyCPH_ContentPlaceHolder1_edtBlockNoTapu").Focus
    If Sheets("send").[a3] = 0 Then
    SendKeys (0): End If
    If Sheets("send").[a3] = 1 Then
    SendKeys (1): End If
    If Sheets("send").[a3] = 2 Then
    SendKeys (2): End If
    If Sheets("send").[a3] = 3 Then
    SendKeys (3): End If
    If Sheets("send").[a3] = 4 Then
    SendKeys (4): End If
    If Sheets("send").[a3] = 5 Then
    SendKeys (5): End If
    If Sheets("send").[a3] = 6 Then
    SendKeys (6): End If
    If Sheets("send").[a3] = 7 Then
    SendKeys (7): End If
    If Sheets("send").[a3] = 8 Then
    SendKeys (8): End If
    If Sheets("send").[a3] = 9 Then
    SendKeys (9): End If
    
    If Sheets("send").[a4] = 0 Then
    SendKeys (0): End If
    If Sheets("send").[a4] = 1 Then
    SendKeys (1): End If
    If Sheets("send").[a4] = 2 Then
    SendKeys (2): End If
    If Sheets("send").[a4] = 3 Then
    SendKeys (3): End If
    If Sheets("send").[a4] = 4 Then
    SendKeys (4): End If
    If Sheets("send").[a4] = 5 Then
    SendKeys (5): End If
    If Sheets("send").[a4] = 6 Then
    SendKeys (6): End If
    If Sheets("send").[a4] = 7 Then
    SendKeys (7): End If
    If Sheets("send").[a4] = 8 Then
    SendKeys (8): End If
    If Sheets("send").[a4] = 9 Then
    SendKeys (9): End If
    
    
    If Sheets("send").[a5] = 0 Then
    SendKeys (0): End If
    If Sheets("send").[a5] = 1 Then
    SendKeys (1): End If
    If Sheets("send").[a5] = 2 Then
    SendKeys (2): End If
    If Sheets("send").[a5] = 3 Then
    SendKeys (3): End If
    If Sheets("send").[a5] = 4 Then
    SendKeys (4): End If
    If Sheets("send").[a5] = 5 Then
    SendKeys (5): End If
    If Sheets("send").[a5] = 6 Then
    SendKeys (6): End If
    If Sheets("send").[a5] = 7 Then
    SendKeys (7): End If
    If Sheets("send").[a5] = 8 Then
    SendKeys (8): End If
    If Sheets("send").[a5] = 9 Then
    SendKeys (9): End If

    'Parsel numarası için
    WebBrowser1.Document.getelementbyid("ctl00_ctl00_bodyCPH_ContentPlaceHolder1_edtParcelNoTapu").Focus
    If Sheets("send").[b3] = 0 Then
    SendKeys (0): End If
    If Sheets("send").[b3] = 1 Then
    SendKeys (1): End If
    If Sheets("send").[b3] = 2 Then
    SendKeys (2): End If
    If Sheets("send").[b3] = 3 Then
    SendKeys (3): End If
    If Sheets("send").[b3] = 4 Then
    SendKeys (4): End If
    If Sheets("send").[b3] = 5 Then
    SendKeys (5): End If
    If Sheets("send").[b3] = 6 Then
    SendKeys (6): End If
    If Sheets("send").[b3] = 7 Then
    SendKeys (7): End If
    If Sheets("send").[b3] = 8 Then
    SendKeys (8): End If
    If Sheets("send").[b3] = 9 Then
    SendKeys (9): End If
    
    If Sheets("send").[b4] = 0 Then
    SendKeys (0): End If
    If Sheets("send").[b4] = 1 Then
    SendKeys (1): End If
    If Sheets("send").[b4] = 2 Then
    SendKeys (2): End If
    If Sheets("send").[b4] = 3 Then
    SendKeys (3): End If
    If Sheets("send").[b4] = 4 Then
    SendKeys (4): End If
    If Sheets("send").[b4] = 5 Then
    SendKeys (5): End If
    If Sheets("send").[b4] = 6 Then
    SendKeys (6): End If
    If Sheets("send").[b4] = 7 Then
    SendKeys (7): End If
    If Sheets("send").[b4] = 8 Then
    SendKeys (8): End If
    If Sheets("send").[b4] = 9 Then
    SendKeys (9): End If

    If Sheets("send").[b5] = 0 Then
    SendKeys (0): End If
    If Sheets("send").[b5] = 1 Then
    SendKeys (1): End If
    If Sheets("send").[b5] = 2 Then
    SendKeys (2): End If
    If Sheets("send").[b5] = 3 Then
    SendKeys (3): End If
    If Sheets("send").[b5] = 4 Then
    SendKeys (4): End If
    If Sheets("send").[b5] = 5 Then
    SendKeys (5): End If
    If Sheets("send").[b5] = 6 Then
    SendKeys (6): End If
    If Sheets("send").[b5] = 7 Then
    SendKeys (7): End If
    If Sheets("send").[b5] = 8 Then
    SendKeys (8): End If
    If Sheets("send").[b5] = 9 Then
    SendKeys (9): End If
    
    If Sheets("send").[b6] = 0 Then
    SendKeys (0): End If
    If Sheets("send").[b6] = 1 Then
    SendKeys (1): End If
    If Sheets("send").[b6] = 2 Then
    SendKeys (2): End If
    If Sheets("send").[b6] = 3 Then
    SendKeys (3): End If
    If Sheets("send").[b6] = 4 Then
    SendKeys (4): End If
    If Sheets("send").[b6] = 5 Then
    SendKeys (5): End If
    If Sheets("send").[b6] = 6 Then
    SendKeys (6): End If
    If Sheets("send").[b6] = 7 Then
    SendKeys (7): End If
    If Sheets("send").[b6] = 8 Then
    SendKeys (8): End If
    If Sheets("send").[b6] = 9 Then
    SendKeys (9): End If
    
    WebBrowser1.Document.all.Item("bodyCPH_ContentPlaceHolder1_btnSearchTapu1").Click

End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst