Giriş Kutusu ve Mesaj Yazma İşlemi

Giriş Kutusu ve Mesaj Yazma İşlemi isimli hazır kod, bir giriş kutusu ekranı açılmasını ve bu kutu aracılığıyla nasıl işlem yapabileceğinizi öğretmektedir.

XD Destek İste
Public Sub MyInputBox()

Dim MyInput As String
MyInput = InputBox("Bu bir giriş kutusudur", "Giriş Kutusu", "Buraya istediğiniz bir şeyler yazabilirsiniz")

If MyInput = "Buraya istediğiniz bir şeyler yazabilirsiniz" Or MyInput = "" Then
    Exit Sub
Else
    MsgBox "Giriş Kutusuna yazılı olan mesaj: " & MyInput
End If

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ı

Kodu çalıştırdığınızda bir şeyler yazmanızı ister. Eğer yazdığınız metin ekrana gelen metinden farkıysa, yazdığınız mesajı bir MsgBox nesnesinde gösterir.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Sayılara Yeni Bir Sayı Ekleme
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Dolar Okutma Makrosu
Makro Etkinletirilmezse Sayfalar Gizlenir
Checkbox ile Exceli Kapatıp Açmak
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Makrolar İşlem Yaparken Ekranın Kilitlenmesi
Tekrar Eden Verileri Farklı Sütunda Yazma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Aktif Hücrenin Üstüne Satır Ekleme
A Sütunundaki Verileri C Sütununda Sıralama
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Alarmlı Saat Ekleme Kodu
Seçili Hücrenin Sütun Harfini Bulma
Tek Satırı Kes Kopyala ve Yapıştır
Çalışma Kitabının Kaç Kez Açıldığını Öğrenme
Tekrarlayan Verileri Vurgulama
Sayfadaki Ad Tanımlamaları Silme
İçindekiler Tablosu Oluşturma
Tüm Boş Çalışma Sayfalarını Silme
Özet Tablo Aralığını Otomatik Güncelleştirme
Bir Aralıktaki Maksimum Değeri Renklendirme
UserForm Üzerinde Dört İşlem
Hücre Aralığını Kes Kopyala ve Yapıştır
Yanıp Sönme Efekti Verme Kodu
Sayfadaki Grafikleri Yeniden Boyutlandırma
TextBox Nesnelerinin Arasında Boşluk Bırakma
Hücrenin Arka Plan Rengini Değiştirme
Birden Çok Çalışma Sayfası Ekleme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Hatalı Hücreleri Renklendirme
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Seri Numaralarını Ekleme
Tüm Satırda İşlem Yapan Döngü
Metnin İçinden TC Kimlik Numarasını Ayırma
Excel Satır Seçme Kodu
Program Başlangıcı Kodları
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
R1C1 Referans Stilini Etkinleştirme
Excel Alarm Kurma
Satırları Otomatik Sığdır
Kopyala ve Özel Yapıştır
Belirli Bir Metne Sahip Hücreleri Vurgulama
Excel ile Demo Yapma Makrosu
Excel Açılırken Otomatik İşlem Yaptırma
MsgBox ile Uyarı Çıkarma Kodu
Makro ile Biçimleri Temizleme
Her Bir Sütundaki Maksimum Değeri Bulma
Grafik Türünü Değiştirme
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

#YOK! (#NULL?) Hatası

Formülde bazı yerlerde ya noktalı birgül yerine virgül kullanmışsınızdır. Ya da başvurulan hücrelerde başvuru bilgisi bulunamamıştır. Çoğunlukla Düşeyara, yatayara gibi formül sonuçlarında bu hata alınabiliyor.

Detaylı bilgi için buradaki makalemizi inceleyebilirsiniz.
Yükleniyor...