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. Dim cbb As CommandBarButton, ComBar As CommandBar, cbc As CommandBarControl Sub CommandBarControlID_List() Dim a, b, c Application.ScreenUpdating = False For Each ComBar In Application.CommandBars If ComBar.Name = "test" Then ComBar.Delete Next Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop) b = 0 c = 1 For a = 1 To 50000 On Error Resume Next Set cbb = ComBar.Controls.Add(ID:=a) If Err.Number 0 Then GoTo weiter cbb.CopyFace With Workbooks("FaceIDs").Sheets(1) .Cells((c Mod 100) + 1, (c 100) + b + 1).Formula = a .Cells((c Mod 100) + 1, (c 100) + b + 2).Activate ActiveSheet.Paste .Cells((c Mod 100) + 1, (c 100) + b + 3).Formula = cbb.Caption End With If (c + 1) Mod 100 = 0 Then b = b + 3 c = c + 1 weiter: Application.CommandBars("test").FindControl(ID:=a).Delete Err.Clear Next End Sub Sub CommandBarFaceID_List() Dim a, b Application.ScreenUpdating = False For Each ComBar In Application.CommandBars If ComBar.Name = "test" Then ComBar.Delete Next On Error Resume Next Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop) Set cbb = ComBar.Controls.Add(ID:=1) b = 0 For a = 1 To 3518 With cbb .FaceId = a .CopyFace End With With ThisWorkbook.Sheets(1) .Cells((a Mod 100) + 1, (a 100) + b + 1).Formula = a .Cells((a Mod 100) + 1, (a 100) + b + 2).Activate ActiveSheet.Paste End With If (a + 1) Mod 100 = 0 Then b = b + 2 Next End Sub Sub CommandBar_List() Application.ScreenUpdating = False Dim a, b, c, cbc, d b = 1 d = 0 For Each a In Application.CommandBars Cells(b + d, 1) = a.Name Cells(b + d, 2) = "Item-no: " & b For Each cbc In a.Controls d = d + 1 Cells(b + d, 3) = cbc.Caption Cells(b + d, 4) = Cells(cbc.Type, 10) Cells(b + d, 5) = "Type: " & cbc.Type Cells(b + d, 6) = "ID: " & cbc.ID Next b = b + 1 Next End Sub

TÜM MAKROLAR Youtube Kanalımız
Aşağıdaki makrolar işinize yarayabilir.

Warning: mysql_connect() [function.mysql-connect]: Headers and client library minor version mismatch. Headers:100519 Library:100236 in /home/dbswav/public_html/excelsizeyeter.com/benzerlik_hazir_makrolar4.php on line 19

Benzer Sonuçlar

No	Makro Adı
1	simgeleri, menüleri ve butonları sayfaya ekleyin
2	ilgili sayfaya gitme
3	sayfaya jpeg eklemek
4	dolaylı makro
5	süzlü aktarma
6	sayfalara şifre koymak
7	makrolar kutusu ve makrolar görünsün
8	forma otomatik resim getirme
9	t.c. merkez bankası güncel döviz kurlarını alma
10	sayfa silme & adlandirmayi engeller
11	sayfa silme & adlandırmayı engelleme
12	sayfa kopyalama (indexi 2 olan sayfanın c6 adıyla kopyalar butonları silerek)
13	hangi butona basıldığını bildirir (commandbutton)
14	yazilari yanıp söndürme
15	a1:af12 hücreleri arasındaki veriler yanıp söner
16	a1:af12 hücreleri arasındaki veriler yanıp söner
17	aktif sayfadaki formülleri bulur yeni sayfaya listeler
18	combobox kullanımı
19	yanıp sönme
20	değişen hücreleri göster