Her Bir Sütundaki Maksimum Değeri Bulma

27 Aralık 2020 789

Her Bir Sütundaki Maksimum Değeri Bulma isimli kullanıcı tanımlı fonksiyon, seçtiğiniz sütunlardaki her maximum değeri ayrı ayrı bulmaktadır.

Function Max_Each_Column(Data_Range As Range) As Variant
Dim TempArray() As Double, i As Long

If Data_Range Is Nothing Then Exit Function

With Data_Range
    ReDim TempArray(1 To .Columns.Count)
    For i = 1 To .Columns.Count
        TempArray(i) = Application.Max(.Columns(i))
    Next
End With

Max_Each_Column = TempArray

End Function

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 boş bir Module içine eklemeniz gerekecektir. Kullanımı:

=Max_Each_Column(A1:C10) şeklindedir.

Eğer Ofis 365 kullanıcısıysanız, bu kullanıcı tanımlı fonksiyon otomatik olarak bir taşma aralığı oluşturacaktır.

50 Farklı Hazır Makro (VBA) Kodu
Excel Makroları ile Klasör Arama
Sayfa Üzerindeki Formüllerin Sayısını Bulma
Bir Değeri Renklendirme
ListBox Üzerindeki Verilere Çoklu Seçim Yapma
Etkin Sayfa Hariç Çalışma Sayfalarını Gizleme
Çalışma Kitabının Yedeğini Oluşturma
C Klasörüne Sanal Dizin Oluşturma
Seçili Satırların Sayısını Bulma
Makro ile Klasör Açma
Toplu Sütun Silme
Belirli Kriterlere Sahip Satırları Silme
Makro Çalışırken İmlecin Hareket Etmemesi
Hücrenin Rengini Değiştirme
Sayılara Yeni Bir Sayı Ekleme
Satırı Kes Kopyala ve Yapıştır
Çift Satırlı Msgbox Örneği
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
TextBox Nesnesine Harf Girilmesini Engelleme
Dosyanın Olduğu Dizin İsmini Bulma
Txt Dosyası Oluşturma
Hedef Aramayı Kullanma
Ondalık Sayıları Tam Sayıya Çevirme
UserForm Açılırken Efekt Ekleme
Çalışma Kitabını Kapatırken Otomatik Kaydetme
ListBbox ve ComboBox Satır Kaydırma
Sütunları Otomatik Sığdırma
Tek Sütunu Kes Kopyala ve Yapıştır
Pivot Tablo Alt Toplamlarını Gizleme
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Sütunun Herhangi Hücresine Çift Tıklayınca UserForm Açılsın
Grafiği Görüntü Olarak Yapıştırma
Makro Etkinletirilmezse Sayfalar Gizlenir
Aktif Hücrenin Sütun Numarasını Bulma
Bilgisayar Bilgilerini Özetleme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Seri Numaralarını Ekleme
Tüm Çalışma Sayfalarını Gösterme
Excel Dosya Arama Yapma Makrosu
Sütun Genişliklerini Otomatik Ayarlama
Birden Çok Sütun Ekleme
Makrolar ile Dosyaları Kopyalama
Kullanıcı Adınızı Bulma
Aktif Çalışma Sayfası Dışında Tümünü Silme
Aktif Çalışma Sayfasını Koruma
Sütunlardaki Farkı Renklendirme
Makrolar ile Eliptik Form Oluşturma
Excel Satır Seçme Kodu
Kilitlenmemiş Hücreleri Seçme İşlemi
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Makrolar ile Klasör Silme

Daha önce yorum yapılmamış!

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