satır ve sütunla ilgili bir makro Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Sub Test()
    MsgBox FilteredRowsCount(ActiveSheet) & "  data was found."
    MsgBox FilteredRowsCount2(ActiveSheet) & " data was found."
End Sub

--------------------------------------------------------------------------------

Function FilteredRowsCount(ByVal Sh As Worksheet)
    Dim Target As Range
    Dim c As Range
    Dim i As Long
    'If the Filter is not used
    If Sh.FilterMode = False Then
        FilteredRowsCount = 0
        Exit Function
    End If
    Set Target = Sh.AutoFilter.Range
    For Each c In Target.SpecialCells(xlCellTypeVisible).Areas
        i = i + c.Rows.Count
    Next
    FilteredRowsCount = i - 1    '-1 stands for remove header row
End Function

--------------------------------------------------------------------------------

Function FilteredRowsCount2(ByVal Sh As Worksheet)
    Dim Target As Range
    'If the Filter is not used
    If Sh.FilterMode = False Then
        FilteredRowsCount2 = 0
        Exit Function
    End If
    Set Target = Sh.AutoFilter.Range
    FilteredRowsCount2 = _
    Target.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
End Function

Benzer Sonuçlar
No	Makro Adı
1	satır ve sütunla ilgili bir makro
2	alt alta kayıt işlemi
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	satır ve sütunları renklendirme
5	makrolar kutusu ve makrolar görünsün
6	Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.
7	sayfada belli hücrelere veri girilince yanındaki satıra tarihini atar
8	bul-değiştir-sil-kaydet makrosu
9	excel dosyası belirli bir tarihten sonra açılmasın
10	makronun otomatik olarak açılması ve çalışması
11	Tüm Satırları ve Sütunları Göster: Satırları ve sütunları tek tek elden geçirmek yerine, bunu tek bir seferde yapmak için bu kodu kullanabilirsiniz.
12	Metin Sarmalamasını Kaldırma: Bu kod, tek bir tıklamayla tüm çalışma sayfasındaki metin sarma işlemini kaldırmanıza yardımcı olacaktır. Önce tüm sütunları seçer ve daha sonra metin kaydırmayı kaldırır ve tüm satırları ve sütunları otomatik olarak sığar.
13	hücre renkleri ile ilgili kodlar
14	bir hücreye makro atamak
15	makroda bul ve kopyala yapıştır
16	satır sıralama yandaki satır la birlikte
17	excel'de kopyalama makrosu nasıl yazılır?
18	yazdıracağınız satır ve sütunları manuel olarak seçebileceğiniz kodlar
19	tüm kitapta istenilen sayfada sütunlardaki en son dolu hücreleri bildirir
20	listbox1de değişken

Benzer Sonuçlar

Makro Adı

satır ve sütunla ilgili bir makro

alt alta kayıt işlemi

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

satır ve sütunları renklendirme

makrolar kutusu ve makrolar görünsün

Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.

sayfada belli hücrelere veri girilince yanındaki satıra tarihini atar

bul-değiştir-sil-kaydet makrosu

excel dosyası belirli bir tarihten sonra açılmasın

makronun otomatik olarak açılması ve çalışması