verileri isim sırasına göre dizer 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. 
 
FORMDAN COMBOBOX KUTUSUNA KOMUT BU KOMUT İSİMLERİ SIRAYA SOKAR MODÜLE YAZILAN KOMUT İLE BİRLİKTE.
Private Sub UserForm_Initialize()
MyForm = Me.Name
ComboBox1.RowSource = "sayfa1!b1:b1000"
OrganizeComboBox
End Sub
BU BÖLÜM MODÜL KISMINA YAZILACAK.
Dim MyForm As Variant
Option Base 1
'
Sub OrganizeComboBox()
Dim noData, i, j, k, m As Integer
Dim MyComboArray()
Dim MyRevizedComboArray()
Dim MyData As Range
Dim SortedColl As New Collection
Dim Swap1, Swap2 As Variant
'
For Each MyControl In UserForms(MyForm).Controls
'
i = 0
j = 0
k = 0
'
If TypeName(MyControl) = "ComboBox" Then
noData = MyControl.ListCount
ReDim MyComboArray(noData)
For Each MyData In Range(MyControl.RowSource)
i = i + 1
MyComboArray(i) = MyData
Next
For m = 1 To UBound(MyComboArray)
If Not WorksheetFunction.IsNumber(MyComboArray(m)) Then
MyComboArray(m) = UCase(MyComboArray(m))
MyComboArray(m) = Replace(MyComboArray(m), "Ç", "Ç")
MyComboArray(m) = Replace(MyComboArray(m), "İ", "İ")
MyComboArray(m) = Replace(MyComboArray(m), "Ğ", "Ğ")
MyComboArray(m) = Replace(MyComboArray(m), "Ş", "Ş")
MyComboArray(m) = Replace(MyComboArray(m), "Ü", "Ü")
MyComboArray(m) = Replace(MyComboArray(m), "Ö", "Ö")
End If
Next
For i = 1 To UBound(MyComboArray)
For j = i + 1 To UBound(MyComboArray) - 1
If MyComboArray(i) = MyComboArray(j) Then
MyComboArray(i) = ""
End If
Next
Next
'
MyControl.RowSource = ""
'
For i = 1 To UBound(MyComboArray)
If MyComboArray(i)  "" Then
k = k + 1
ReDim Preserve MyRevizedComboArray(k)
MyRevizedComboArray(k) = MyComboArray(i)
End If
Next
'
i = 0
j = 0
For i = 1 To UBound(MyRevizedComboArray)
SortedColl.Add MyRevizedComboArray(i)
Next
'
'On Error Resume Next
'For i = 1 To UBound(MyRevizedComboArray)
'MyRevizedComboArray(i) = WorksheetFunction.Small(MyRevizedComboArray, i)
'Next

For i = 1 To SortedColl.Count - 1
For j = i + 1 To SortedColl.Count
If SortedColl(i) > SortedColl(j) Then
Swap1 = SortedColl(i)
Swap2 = SortedColl(j)
SortedColl.Add Swap1, before:=j
SortedColl.Add Swap2, before:=i
SortedColl.Remove i + 1
SortedColl.Remove j + 1
End If
Next j
Next i
'
For i = 1 To SortedColl.Count
MyControl.AddItem SortedColl(i)
Next
'
For i = SortedColl.Count To 1 Step -1
SortedColl.Remove i
Next
'
End If
Erase MyComboArray
Erase MyRevizedComboArray
'
Next
End Sub

Benzer Sonuçlar
No	Makro Adı
1	verileri isim sırasına göre dizer
2	verileri isim sırasına göre dizer
3	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
4	Sayfaların adına göre A'dan Z'ye doğru sıralama / harf sırası
5	forma otomatik resim getirme
6	verileri kaydeder
7	combobox kullanımı
8	aynı makroyla birden çok sayfaya kayıt yapmak
9	veri sıralar ve isim bulur
10	veri sıralar ve isim bulur
11	veri bulur
12	parça al fonksiyonu makro olarak hazirlamak
13	comboboxa göre kayıt
14	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
15	a1:a5 verileri ile birlikte ait olunan ay ve yıl isimli yeni sayfa ekler
16	kapalı dosyalardan verileri toplayarak almak
17	textboxlarda yazanları tek textboxta alt alta birleştirmek
18	tek hücrede yer alan "ad soyad" bilgisini ayrı hücrelere alma
19	A sütununda verilere göre sayfa ekler ve D sütununa kadar olan verileri de yazar
20	comboboxtaki sıraya göre sayfadan seçmeveriler a sütununda

Benzer Sonuçlar

Makro Adı

verileri isim sırasına göre dizer

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

Sayfaların adına göre A'dan Z'ye doğru sıralama / harf sırası

forma otomatik resim getirme

verileri kaydeder

combobox kullanımı

aynı makroyla birden çok sayfaya kayıt yapmak

veri sıralar ve isim bulur

veri bulur

parça al fonksiyonu makro olarak hazirlamak