Çekiliş ile 2 Adet Microsoft Excel Kitabı Hediye Edilecektir. Ayrıntılı Bilgi İçin [Tıklayınız]

ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/08/2013 21:22
Konu Sahibi
turuncumx
Yorumlar
4
Okunma
3470
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

turuncumx

Üye
Kullanici Avatari
Üye
1
1
30/08/2013
0
01/03/2014,16:16
Çözüldü 
MERHABA ARKADAŞLAR,
TTNETİN SAYFASINDAKİ FATURA SORGULAMA EKRANINDAN ELİMDE Excel DOSYASI HALİNDE OLAN ADSL NUMARALARI İLE TOPLU HALDE FATURA SORGULAMAK İSTİYORUM.BUNU EXCELDEN MAKROLARLA YAPMA ŞANSIMIZ VARMI?
BURDA BİRÇOK KONUYU GEZDİM LAKİN İSTEDİĞİM GİBİ BİR DOSYA BULAMADIM.YARDIMCI OLABİLECEK OLAN VARMI?


Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.437
17/05/2009
365
Ankara
Şirket Sahibi
Ofis 2010 64 Bit
Dün,20:25
Çözüldü 
Sn turuncumx forumumuza hoşgeldiniz. Lütfen Site Kuralları gereği mesajınızın tamamını büyük harfle yazmayınız.

Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
480
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:turuncumx
Sizin sorunuzada Sn:Muhammet Aytaş'ın bir başka arkadaşımıza verdiği cevabı örnek olarak vereyim.Muhammet arkadışımızada ayrıca verdiği cevap için teşekkürler.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Dim Web As Object
Sub SorgulaB()
Dim Son As Integer, Say As Integer
Son = ActiveSheet.Range("A65536").End(xlUp).Row
Set Web = CreateObject("InternetExplorer.application")
Web.Navigate "http://www.ailehekimibul.com"
For Say = 2 To Son
Denetle ActiveSheet.Range("A" & Say).Value, Say
Next
Set Web = Nothing
MsgBox "İşlem tamam.", vbInformation, "Sonuç"
End Sub

Sub Denetle(TC, Say)
On Error GoTo Hata
Web.Navigate "http://www.ailehekimibul.com"
Do While Web.Busy: DoEvents: Loop
Do While Web.ReadyState <> 4: DoEvents: Loop
Web.Document.getElementById("tc").Value = TC
Web.Document.getElementById("Sorgula").Click

Do While Web.Busy: DoEvents: Loop
Do While Web.ReadyState <> 4: DoEvents: Loop

With ActiveSheet
.Range("B" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(1).Cells(1).innerText
.Range("C" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(2).Cells(1).innerText
.Range("D" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(3).Cells(1).innerText
.Range("E" & Say).Value = Web.Document.all.tags("table").Item(6).Rows(4).Cells(1).innerText
End With
Exit Sub
Hata:
Range("A1") = Err.Number
If Err.Number = 91 Then
Err.Clear
Do While Web.Busy: DoEvents: Loop
Do While Web.ReadyState <> 4: DoEvents: Loop
If InStr(Web.Document.all.tags("table").Item(2).innerText, "SORGULADIĞINIZ KİŞİNİN") > 0 Then Exit Sub
Resume
Else: Exit Sub
End If
End Sub


Cevapla

Ender Ve Hülya Seçilir

Üye
Kullanici Avatari
Üye
E....
1
0
15/11/2014
0
Belirtilmemiş
15/11/2014,15:09
http://www.clkakdeniz.com/sayfa.asp?mdl=borcSorgulama bu adresten toplu bir şekilde excel'de abone numaralarını girerek sorgu yapmak istiyorum yardımcı olurmusunuz ???


Cevapla

atoz112

Uzman
Kullanici Avatari
Uzman
5.716
9
04/08/2009
İstanbul
Ofis 2007
10/11/2017,12:11
sayın Hülya ve Ender Seçilir,

Kurallar hk.

yukarıdaki bağlantıda ve 1.maddede yer alan kuralı hatırlatarak,talebinizi yeni konu açarak oluşturunuz lütfen.böylece,hem kapatılmış bir konunun içerik açısından artmamasını hem de yeni konu dahil ederek konu çeşitliliğini sağlamış olursunuz.

ayrıca,konuya dair öncesinde oluşturduğunuz eğer bir çalışma da mevcutsa bunu da konunuza dahil ediniz.
ilginize teşekkürler.

iyi çalışmalar,
saygılar.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Excel De Düşeyara Formülü #yok Hatası Veriyor... mehmet yaşar öztürk 8 270 29/08/2017, 18:47 mehmet yaşar öztürk
Çözüldü Excel Yıllık İzin Tablosu mehmetfetih 2 452 06/08/2017, 09:47 mehmetfetih
Çözüldü Hücredeki Değere Göre Tutarı Eksi Değer Yapmak? derzulya 4 367 29/05/2017, 08:18 derzulya
Çözüldü Excel Veri Çekme Sorunu goksel86 7 727 26/05/2017, 16:14 ozanakkaya
Çözüldü yardım excel açılış ve kapanışda uyarı rmznaydemr 5 675 13/05/2017, 12:19 atoz112
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.