Google Üzerinde Arama Yapma

Bu kod ile Google Üzerinde Arama Yapma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.

XD Destek İste
Sub SearchWindow32()
Dim chromePath As String
Dim search_string As String
Dim query As String
query = InputBox("Aramak istediğiniz kelimeyi yazın", "Google Arama")
search_string = query
search_string = Replace(search_string, " ", "+")
'Uncomment the following line for Windows 64 versions and comment out Windows 32 versions'
'chromePath = "C:Program FilesGoogleChromeApplicationchrome.exe"
'Uncomment the following line for Windows 32 versions and comment out Windows 64 versions
chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Shell (chromePath & " -url https://www.google.com/search?q=" & search_string)
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Üstteki kod 32 bit için geçerli yola göre eklenmiştir.
64 bit kullanıyorsanız, chromePath kısmındaki yolu tanımlamanız yeterli olacaktır.

Kodu çalıştırdığınız bir InputBox nesnesi açılacak ve yazacağınız arama Google Chrome tarayıcısı ile Google üzerinden yapılacaktır.
Bilgisayarınızda Chrome yüklü değilse kod hata verir, hemen "kod hatalı" diye yorum yazmayın :)

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Gizli Sayfaların Bulunması ve Gösterilmesi
Sütun Genişliklerini Otomatik Ayarlama
Sayfadaki Grafikleri Yeniden Boyutlandırma
Bir Aralıktaki Maksimum Değeri Renklendirme
Satırı Kes Kopyala ve Yapıştır
Birden Çok Sütun Ekleme
Seçili Hücrenin Sütun Harfini Bulma
Makro ile Biçimleri Temizleme
Tüm Formülleri Değerlere Dönüştürme
Formül Bulunan Hücreleri Koruma ve Kilitleme
Makro ile Boş Satırları Silme
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Özet Tablo Aralığını Otomatik Güncelleştirme
Sayıyı Çift ya da Çiftin Katı Yapma
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
Salt Okunur Excel Dosyasını Kontrol Etme
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
UserForm Kapatma Kodu
Aç Penceresini Açan Makro
Bir Aralığa Alfabenin Harflerini Ekleme
Dizileri İç İçe Döngüye Eklemek
Belirli Metni Vurgulama
Açıklama İçeren Tüm Hücreleri Vurgulama
Excel Dosya Arama Yapma Makrosu
Sağ Tık ile Açılan Menüye Ekleme Yapma
Excel Sayfalarında Çarpım Tablosu Oluşturma
Excel Makroları ile Form Çağırma
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Belirli Bir Metne Sahip Hücreleri Vurgulama
Adlandırılmış Aralıkları Vurgulama
Metnin İçinden TC Kimlik Numarasını Ayırma
Aktif Hücrenin Sütun Numarasını Bulma
Veri Giriş Formunu Etkinleştirme
Birden Çok Satır Ekleme
Aktif Hücrenin Temel Bilgilerini Bulma
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Excel Şerit Menü Çubuğunu Gizleme
Tarih ve Saatten Tarihi Kaldırma
Klavyeye Makro Atama ve Çalıştırma
Aktif Çalışma Sayfası Korumasını Kaldırma
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Dar Kenar Boşluğu Yazdırma
Çalışma Kitabını E-Posta Ekine Ekleme
Seçili Alanda Yinelenenleri Vurgulama
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Bir Excel sayfası üzerinde yer alan verilerinize ekleme yapmanın farklı farklı yolları vardır. Shift tuşu ile ekleme yapmak ise çok fazla bilinmez.
Shift tuşu ile ekleme, silme yapmak için şu adımları uygulayın:
  1. Veri ekleyeceğiniz aralığı seçin. (Ekleme yapılacak son kısma kadar)



  1. Fareyi, seçili alanın bittiği hücrenin sağ alt köşesine getirin. Koyu + şeklinde olan işaretçi farklı bir hal alacaktır.



  1. Fare işaretçisi üst resimdeki gibiyken, farenin sol tuşunu basılı tutmak suretiyle, sağa, sola, aşağı doğru gittiğinizde ekleme yapacaktır.
  2. Yukarı doğru gittiğinde ise, gittiğiniz kadar hücrenin silindiği görülecektir.
Yükleniyor...