userformsuz combobox tryit e makro yolu verin 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 Base 1
Option Explicit

Dim EB As Object, LB As Object
Dim vaList As Variant
Dim oldText As String

Sub TryIt()
Sheets("Dialog1").Show
End Sub
Sub SetEditBox()
    
With ActiveDialog
    Set EB = .EditBoxes(1)
    Set LB = .ListBoxes(1)

.Focus = EB.Name
End With

EB.Text = ""
LB.ListIndex = 0

vaList = LB.List
End Sub
Sub EditBoxAction()

Dim i As Variant
Dim ebText As String, lbText As String
Dim iNums As Integer

Static fSendKeys As Boolean
If fSendKeys = True Then
    fSendKeys = False
    Exit Sub
End If

fSendKeys = False
ebText = EB.Text
If ebText = "" Then
    LB.ListIndex = 0
Else
    i = Application.Match(ebText & "*", vaList, 0)
    
    If IsError(i) = False Then
    
        LB.ListIndex = i
        lbText = LB.List(i)
        
        If Len(ebText) > Len(oldText) Or Left(ebText, Len(oldText))  ebText Then
        
            iNums = Len(lbText) - Len(ebText)
        
            If iNums > 0 Then
                SendKeys Right(lbText, iNums) & "+{LEFT " & iNums & "}"
        
                fSendKeys = True
            End If
        End If
    Else
        LB.ListIndex = 0
    End If
End If
oldText = ebText
End Sub
Sub ListBoxAction()
With LB
    EB.Text = LB.List(LB.ListIndex)
End With
oldText = EB.Text
ActiveDialog.Focus = "ebMonth"
SendKeys "{RIGHT}"
End Sub

Benzer Sonuçlar
No	Makro Adı
1	userformsuz combobox tryit e makro yolu verin
2	makrolar kutusu ve makrolar görünsün
3	commoboxa atanacak sabit
4	makro ile form import etmek
5	bul-değiştir-sil-kaydet makrosu
6	etopla formülüne karşilik gelen makro
7	veri siler
8	listbox ve combobox'a veri girmek
9	userform ve veri seçimine göre bilgi alma
10	verileri isim sırasına göre dizer
11	verileri isim sırasına göre dizer
12	makroda bir veya birden çok değer döndürmek
13	30 excel dosyası içinde bir kelime aratma
14	forma otomatik resim getirme
15	comboboxa göre kayıt
16	comboboxtan textboxlara veri aktarma
17	listboxtan comboboxa veri almak
18	sözlük kodlari
19	comboboxta bir değerin hazır seçili olarak gelmesi
20	listbox ve comboboxtaki boşluklar

Benzer Sonuçlar

Makro Adı

userformsuz combobox tryit e makro yolu verin

makrolar kutusu ve makrolar görünsün

commoboxa atanacak sabit

makro ile form import etmek

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

etopla formülüne karşilik gelen makro

veri siler

listbox ve combobox'a veri girmek

userform ve veri seçimine göre bilgi alma

verileri isim sırasına göre dizer