Sayıyı Çift ya da Çiftin Katı Yapma

24 Şubat 2021 747

Sayıyı Çift ya da Çiftin Katı Yapma isimli kodu kullanarak hücredeki sayıları çift ve katları olacak şekilde kolayca yazdırabilirsiniz.

Sub CifteKatla()
     If Range("A1") Mod (2) = 0 Then Range("A1") = Range("A1") + 2 Else Range("A1") = Range("A1") + 1
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. Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve BuÇalışmaKitabı kısmına çift tıklayın.
  4. Üstteki kodu yapıştırın.
50 Farklı Hazır Makro (VBA) Kodu
İçindekiler Tablosu Oluşturma
ListBbox ve ComboBox Satır Kaydırma
Excel Sayfalarındaki Resimleri Silmek
Belirli Bir Metne Sahip Hücreleri Vurgulama
Başka Dosyada Şifreli Userform Oluşturmak
Sayfada Alan Seçme ve Listeleme
Aktif Hücreye Günün Tarihini Yazma
Aktif Hücrenin Üstüne Satır Ekleme
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
TextBox Nesnesinde Kuruş Göstermek
Makrolar ile Txt Dosyası Oluşturma
Makro ile Web Sitesini Açmak
Dolar Okutma Makrosu
Excel Makroları ile Dosya Sayısını Bulma
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Makrolar ile Sonraki Sayfaya Geçmek
Seçili Satırların Sayısını Bulma
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Sayıyı Çift ya da Çiftin Katı Yapma
Giriş Kutusu ve Mesaj Yazma İşlemi
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Hücrenin Arka Plan Rengini Değiştirme
Boş Hücreleri Vurgulama
Seçili Alandan İstenilen Karakteri Kaldırma
Küp Kökünü Hesaplama
Aç Penceresini Açan Makro
Aktif Satırı ve Sütunu Vurgulama
Metinden Konuşma Oluşturma
Dördüncü Sütunda İşlem Yapılınca Çalışan Makro
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Seçimi Yazdırma
Formu Kapatma Makro Kodu
Dar Kenar Boşluğu Yazdırma
Seçili Aralığı PDF Olarak Kaydetme
Seçili Hücrelerdeki Harfleri Büyük Harfe Değiştirme
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Birden Çok Sütun Ekleme
Sayıları Yeni Bir Sayıyla Çarpma
Program Başlangıcı Kodları
Kare Kökünü Hesaplama
Hücre İçerisine Kelime Ekleme
MsgBox ile Uyarı Çıkarma Kodu
Adlandırılmış Aralıkları Vurgulama
Gizlenmiş Makro Örnekleri
Klasörde Dosya Araması Yapma
Google Üzerinde Arama Yapma
Excel Dosya Silme İşlemi Makrosu
Kapanış Mesajı Ekleme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...