Sayıları Yeni Bir Sayıyla Çarpma

Sayıları Yeni Bir Sayıyla Çarpma isimli kodu kullanarak, Excel sayfanızda seçtiğiniz alanda yazılı olan sayıları istediğiniz bir sayıyla çarpabilirsiniz.

XD Destek İste
Sub addNumber()
Dim rng As Range
Dim i As Integer
i = InputBox("Bir sayı yazın", "Değer gerekli")
For Each rng In Selection
    If WorksheetFunction.IsNumber(rng) Then
        rng.Value = rng + i
    Else
    End If
Next rng
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ı

Bir aralıktaki sayılarınızı, tek seferde bir sayıyla çarpma ihtiyacınız olursa, üstteki kod bu ihtiyacın üstesinden kolayca gelecektir.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Hoş Geldiniz Mesajı Ekleme
UserForm Üzerinde Dört İşlem
Yanlış Yazılmış Hücreleri Vurgulama
Sayfadaki Ad Tanımlamaları Silme
Kopyala ve Biçimleri Yapıştır
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Birden Çok Sütun Ekleme
Aktif Hücrenin İçeriği Hakkında Bilgi Verme
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Özet Tablo Aralığını Otomatik Güncelleştirme
Sağ Tık ile Açılan Menüye Ekleme Yapma
Çift Satırlı Msgbox Örneği
Son Dolu Satırın Bir Altına Yazdırma
Excel Üzerinden Klasör Açma Kodu
Seçili Satırların Sayısını Bulma
Excel Satır Seçme Kodu
Formül Bulunan Hücreleri Koruma ve Kilitleme
UserForm Kapatma Kodu
Verileri Tek Sütuna Göre Sıralama
Çoklu Bulma ve Karşısındaki Değeri Listeleme
Excel Kapanırken Otomatik İşlem Yaptırma
Kullanılan Tüm Sütunları Otomatik Sığdır
Excel Dosya Silme İşlemi Makrosu
Excel ile Demo Yapma Makrosu
Toplu Satır Silme
Otomatik Olarak Tarih ve Zaman Ekleme
Yorumları İçeren Hücreleri Renklendirme
Grafik Türünü Değiştirme
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Klavyeye Makro Atama ve Çalıştırma
Dizileri Döngüye Eklemek
Aç Penceresini Açan Makro
Excel Makroları ile Klasör Silme
Çalışma Kitabını Kapatırken Otomatik Kaydetme
Makro ile Boş Satırları Silme
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Metinden Konuşma Oluşturma
Pivot Tablo Alt Toplamlarını Gizleme
Her Bir Sütundaki Maksimum Değeri Bulma
Kapanış Mesajı Ekleme
Excel Hücresine Gitme Makrosu
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Bir Değeri Renklendirme
Tüm Çalışma Sayfalarını Gösterme
Birden Çok Satır Ekleme
Hücre Aralığını Kes Kopyala ve Yapıştır
Seçili Hücrelerden Boşlukları Kaldırma
Excel ile Faiz Hesaplama Kodu
Boş Hücreleri Sıfırlarla 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ış!

Onbinlerce satırlık Excel hücrelerinizin tamamı seçiliylen ve seçim bozulmadan verilerinizin en alt kısmına, en üst kısmına, en sağ kısmına ya da en son kısmına kolayca gitmek için, sağ ve altta bulunan kaydırma çubuklarının üzerindeyken sağ tıklamanız ve ilgili alana gitmeyi seçmeniz yeterli olacaktır.

Yükleniyor...