bul makrosu 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. 
 
Option Compare Binary

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then CheckBox3.Enabled = False
End Sub

Private Sub CommandButton1_Click()
    
    If TextBox1.Text = "" Then Exit Sub

If CheckBox1.Value = True Then look = 1 Else look = 2
    If CheckBox3.Value = True Then bas = 1 Else bas = 2
    ListBox1.Clear
    Set c = Range("a:a").Find(TextBox1, LookIn:=xlValues, MatchCase:=CheckBox2.Value, LookAt:=look, SearchDirection:=bas)
    If Not c Is Nothing Then
        firstAddress = c.Address
        ListBox1.AddItem
        ListBox1.List(0, 0) = c.Address
        ListBox1.List(0, 1) = c
    
basla:
            Set c = Range("a:a").FindNext(c)
            
            If Not c Is Nothing And c.Address  firstAddress Then
                a = a + 1
                ListBox1.AddItem
                ListBox1.List(a, 0) = c.Address
                ListBox1.List(a, 1) = c
                GoTo basla
            End If
    End If
If CheckBox4.Value = 0 Then Exit Sub
If ListBox1.ListCount > 0 Then
    For x = 0 To ListBox1.ListCount - 2
        For y = x + 1 To ListBox1.ListCount - 1
        If Val(Replace(ListBox1.List(x, 0), "$A$", "")) > Val(Replace(ListBox1.List(y, 0), "$A$", "")) Then Call swap(x, y)
    Next y, x
End If
End Sub
Private Sub ListBox1_Click()
Range(ListBox1.List(ListBox1.ListIndex, 0)).Select
End Sub
Sub swap(ind1, ind2)
Set l = ListBox1
ara = l.List(ind1, 0)
l.List(ind1, 0) = l.List(ind2, 0)
l.List(ind2, 0) = ara
ara = l.List(ind1, 1)
l.List(ind1, 1) = l.List(ind2, 1)
l.List(ind2, 1) = ara
End Sub

Benzer Sonuçlar
No	Makro Adı
1	ara bul makrosu
2	bul makrosu
3	vb kodlari ile bir excel dosyası aciyorum fakat bu excel dosyasindaki makroyu çalıştırma2
4	bul-değiştir-sil-kaydet makrosu
5	30 excel dosyası içinde bir kelime aratma
6	5. sütunundaki hücreye girilen veriye karşılık farklı farklı makroların çalışması
7	a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın
8	Kullanıcı adına bağlı olarak çalışan makro
9	açılış makrosu(aktif pencerede mesaj verir.)
10	çıkış makrosu
11	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
12	Hücre (değeri, içindeki ifade vb.) değiştiği zaman makro çalıştırma / Hücre değiştiğinde çalışan makro
13	D2 hücresine tıklandığında hücrenin bulunduğu sütun genişlesin, başka bir hücreye tıklandığında ise daralsın.
14	makroda bul ve kopyala yapıştır
15	aranan kelimeyi bulup o satır ı temizleyen makro
16	Hesap Makinesi Aç: Pencerede belirli bir hesap makinesi bulunur ve bu makro kodunu kullanarak hesaplamayı doğrudan Excel kullanımıyla hesaplamalarınız için açabilirsiniz.
17	sutunu ve aranacak değer makronun içine yazılır
18	rastgele bir sayının üretilmesi
19	Tüm Çalışma Sayfalarını Hemen Koruyun: Tüm çalışma sayfalarınızı tek seferde korumak istiyorsanız, sizin için bir koddur. & Nbsp; Bu makroyu çalıştırdığınızda, bir şifre girmek için bir giriş kutusu bulacaksınız. Parolanızı girdikten sonra Tamamı tıklayın. Ve, CAPSye dikkat etmeyi unutma.
20	ıp numarasını bulan makro

Benzer Sonuçlar

Makro Adı

ara bul makrosu

bul makrosu

vb kodlari ile bir excel dosyası aciyorum fakat bu excel dosyasindaki makroyu çalıştırma2

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

30 excel dosyası içinde bir kelime aratma

5. sütunundaki hücreye girilen veriye karşılık farklı farklı makroların çalışması

a sütunundan g sütununa (g hariç) kadar olan hesaplamalar açık , diğer sütunlar butona basınca hesaplasın

Kullanıcı adına bağlı olarak çalışan makro

açılış makrosu(aktif pencerede mesaj verir.)

çıkış makrosu