Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-03-2017, 13:26   #1
Platonica
 
Giriş: 21/02/2016
Şehir: İstanbul
Mesaj: 19
Excel Vers. ve Dili:
Office 365 for Mac Türkçe
Varsayılan Koda bağlı sayfanın chrome ile açılması

Arkadaşlar merhaba, 10 gündür buradayım ve inanılmaz katkılarınız oldu. Şimdiden bunun için çok teşekkür ederim. Makroda çok yeniyim en fazla 10 gün oldu. Bu yüzden sorularım saçma veya basit gelebilir. Bunun için de affınıza sığınıyorum. Gelelim sorularıma;

1- Aşağıdaki kod benim command buttonlarımdan birisi. Ve ben bu butona bastığımda chrome ile açsın istiyorum. Sorum aşağıdaki butonun chromda açması için değişmiş hali nasıl olmalı?

Private Sub CommandButton1_Click()
Dim URL As String
Dim HTML_Body As Object
Dim IE As Object
URL = "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate URL
.Visible = True
Do Until IE.ReadyState = 4: DoEvents: Loop
Do While IE.Busy: DoEvents: Loop
IE.Document.all("j_username").Value = Cells(1, "a")
IE.Document.all("isyeri_kod").Value = Cells(2, "a")
IE.Document.all("j_password").Value = Cells(2, "b")
IE.Document.all("isyeri_sifre").Value = Cells(2, "c")
End With
Set IE = Nothing
Set HTML_Body = Nothing
End Sub

2- Yukarıdaki buton chrome ile ya da explorer ile (chrome tercihim) açtıktan sonra o sayfadaki doğrulama kodunu ben manuel girdikten sonra tekrar bir makro ile o sayfanın alt sayfalarından birinden veri çektirmek istiyorum. Bu mümkün mü?

Şimdiden teşekkür ederim.
Platonica Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 19:16   #2
Sinan2618
Altın Üye
 
Giriş: 17/08/2016
Mesaj: 78
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

Merhaba,

Aşağıdaki konu işinize yarar gibi geldi.

http://www.excel.web.tr/f48/google-c...e-t135102.html
Sinan2618 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 19:18   #3
Sinan2618
Altın Üye
 
Giriş: 17/08/2016
Mesaj: 78
Excel Vers. ve Dili:
2013 Türkçe
Varsayılan

32 Bit için

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Google_Chrome()
    Dim Yol As String
    Yol = "C:\Program Files\Google\Chrome\Application\chrome.exe"
    Shell (Yol & " -url https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap/"), vbMaximizedFocus
        Application.Wait Now + TimeValue("00:00:03")
        guvenlik$ = InputBox("Güvenlik kodunu giriniz")
        Application.WindowState = xlMinimized
        SendKeys güvenlik$
        SendKeys "{Tab}"
        SendKeys "Kullanıcı_Adı"
        SendKeys "{Tab}"
        SendKeys "Sifre"
        SendKeys "{Tab}"
        SendKeys "{ENTER}"
    Yol = vbNullString
End Sub
64 Bit için
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Google_Chrome()
    Dim Yol As String
    Yol = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
    Shell (Yol & " -url https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap/"), vbMaximizedFocus
        Application.Wait Now + TimeValue("00:00:03")
        guvenlik$ = InputBox("Güvenlik kodunu giriniz")
        Application.WindowState = xlMinimized
        SendKeys güvenlik$
        SendKeys "{Tab}"
        SendKeys "Kullanıcı_Adı"
        SendKeys "{Tab}"
        SendKeys "Sifre"
        SendKeys "{Tab}"
        SendKeys "{ENTER}"
    Yol = vbNullString
End Sub
Sinan2618 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-03-2017, 20:49   #4
Platonica
 
Giriş: 21/02/2016
Şehir: İstanbul
Mesaj: 19
Excel Vers. ve Dili:
Office 365 for Mac Türkçe
Varsayılan

Sinan bey cevabınız için teşekkürler ancak SendKeys işimi çözmeyecek gibi. Zaten tab kısmına benim Explorer versiyonu kodlamamdaki gibi, örneğin A2 hücresindeki veriyi kullancı adına, B2 hücresindeki veriyi şifreye girdirme mantığını kuramadım. Ben bu işi profesyonel amaçla yapmadığımdan ihtiyacım olan tek şey ilk mesajımdaki kodumu chrome ile açılıp çalışacak şekilde revize etmek. Mevcut kod kusursuz şekilde çalışıyor Explorer'da ancak benim chrome ile girmem gerekiyor. Başkaca yardımcı olacak herkese de şimdiden çok teşekkür ederim.
Platonica Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-03-2017, 13:20   #5
Platonica
 
Giriş: 21/02/2016
Şehir: İstanbul
Mesaj: 19
Excel Vers. ve Dili:
Office 365 for Mac Türkçe
Varsayılan

Yardımcı olabilecek kimse yok mudur acaba?
Platonica Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:49


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden