sözlük kodlari 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. 
 
SÖZLÜK OLUŞTURMA KODLARI
Sub auto_open()
    Dim cbMenu As CommandBarControl
    
    MenuSil
    
    Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
    With cbMenu
        .Caption = "&Sözlük"
        .OnAction = "formac"
        .Tag = "MyTag"
        .BeginGroup = True
    End With
    
    If cbMenu Is Nothing Then Exit Sub
    
    Set cbSubMenu = Nothing
    Set cbMenu = Nothing
End Sub

Sub MenuSil()
    kaldir "MyTag"
End Sub

Private Sub kaldir(CustomControlTag As String)
    On Error Resume Next
    Do
        Application.CommandBars.FindControl(, , CustomControlTag, False).Delete
    Loop Until Application.CommandBars.FindControl(, , CustomControlTag, False) Is Nothing
    On Error GoTo 0
End Sub

Sub auto_close()
    MenuSil
End Sub

Sub formac()
    UserForm1.Show
End Sub
SÖZLÜK OLUŞTURMA KODLARI
Private Sub UserForm_Initialize()
    With ListBox1
        .RowSource = "[Sözlük.xla]TrEng!A1:A16174"
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
    With ComboBox1
        .RowSource = "[Sözlük.xla]TrEng!A1:A16174"
        .ShowDropButtonWhen = fmShowDropButtonWhenNever
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
    With ComboBox2
        .RowSource = "[Sözlük.xla]TrEng!B1:B16174"
        .ShowDropButtonWhen = fmShowDropButtonWhenNever
        .Locked = True
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
    With ListBox2
        .RowSource = "[Sözlük.xla]EngTr!A1:A11435"
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
    With ComboBox3
        .RowSource = "[Sözlük.xla]EngTr!A1:A11435"
        .ShowDropButtonWhen = fmShowDropButtonWhenNever
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
    With ComboBox4
        .RowSource = "[Sözlük.xla]EngTr!B1:B11435"
        .ShowDropButtonWhen = fmShowDropButtonWhenNever
        .Locked = True
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
End Sub
 
'BU KOD COMBOBOX1'E YAZILACAK
Private Sub ComboBox1_Change()
    ListBox1.ListIndex = ComboBox1.ListIndex
    ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub
'BURASI BOŞ KALACAK
Private Sub ComboBox2_Change()

End Sub
'BU KOD BUTTON'A YAZILACAK
Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub
'BU KOD LİSTBOX1'E YAZILACAK
Private Sub ListBox1_Click()
    ComboBox1.ListIndex = ListBox1.ListIndex
    ComboBox2.ListIndex = ListBox1.ListIndex
End Sub

'BU KOD FORM İÇİNE YAZILACAK
Private Sub UserForm_Initialize()
     With ListBox1
        .RowSource = "sayfa1!A1:A12174"
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
    With ComboBox1
        .RowSource = "sayfa1!A1:A12174"
        .ShowDropButtonWhen = fmShowDropButtonWhenNever
        .Font.Name = "Verdana"
        .Font.Size = 10
    End With
    With ComboBox2
        .RowSource = "sayfa1!B1:B12174"
        .ShowDropButtonWhen = fmShowDropButtonWhenNever
        .Locked = True
        .Font.Name = "Verdana"
        .Font.Size = 12
    End With
  End Sub

Benzer Sonuçlar
No	Makro Adı
1	sözlük kodlari
2	gizli sayfayı yazdır
3	makrolar kutusu ve makrolar görünsün
4	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
5	geri çalişan timer
6	korumalı hücrelere sıralama yapmak?
7	listbox'tan seçilen hücreyi silmek.
8	Dosyayı kim açtı 2
9	excel sayfasında yazılanları texte çevirmek
10	userform'u otomatik boyutlandırma
11	30 excel dosyası içinde bir kelime aratma
12	aynı makroyla birden çok sayfaya kayıt yapmak
13	kodlara açiklama ekleme
14	istenilen makronun kodlarının görülmesi
15	makro istediğim tarihten sonra açılmasın
16	kodlarin hata vermesini engeller
17	vba kodlarını görme makrosu
18	kodları kopyalama
19	korumali sayfada makro çalişir mi?
20	sayfaya koruma koyma ve kaldırma 2

Benzer Sonuçlar

Makro Adı

sözlük kodlari

gizli sayfayı yazdır

makrolar kutusu ve makrolar görünsün

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

geri çalişan timer

korumalı hücrelere sıralama yapmak?

listbox'tan seçilen hücreyi silmek.

Dosyayı kim açtı 2

excel sayfasında yazılanları texte çevirmek

userform'u otomatik boyutlandırma