benzersiz (tek) olan veri girişlerinin tespit edilmesi 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. 
Sub UniqueEntries()
'uArray will contain the unique values in the selection
Dim rng1 As Range
Dim theList As Variant
Dim uArray
Dim J As Long, I As Long
'make sure the selection is only a single column wide
If Selection.Columns.Count > 1 Then
MsgBox "the selection can only be a single column wide"
Exit Sub
End If
'set the range to a variable and to just cells in the used range
Set rng1 = Intersect(Selection, ActiveSheet.UsedRange)
'transpose the range so that it can be used by QuickSort and assign
'values to a variant variable which can act as an array
theList = Application.Transpose(rng1)
'sort the list using the routine below this one
QuickSort theList, 1, UBound(theList) LBound(
theList) + 1
'remove nonunique
entries and assign to a new variant array
J = 0
For I = LBound(theList) To UBound(theList)
If J = 0 Then
'create the array and put in the first entry
J = 1
ReDim uArray(1 To 1)
56
uArray(1) = theList(I)
Else
If theList(I) <> theList(I 1)
Then
'if the next item in the theList is unique, add it to theList array
J = J + 1
ReDim Preserve uArray(1 To J)
uArray(J) = theList(I)
End If
End If
Next
'display the list
For I = 1 To UBound(uArray)
MsgBox uArray(I)
Next
End Sub
Sub QuickSort(SortArray, L, R)
Dim I, J, X, Y
I = L
J = R
X = SortArray((L + R) / 2)
While (I  L)
J = J 1
Wend
If (I

Benzer Sonuçlar
No	Makro Adı
1	benzersiz (tek) olan veri girişlerinin tespit edilmesi
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	Benzersiz Değerleri Vurgulayın: Bu kodlar, seçimdeki benzersiz bir değeri olan tüm hücreleri vurgulayacaktır.
4	Excel Versiyon Dilini Tespit Etme
5	comboboxda verilerin yalnızca birer kere görünmesi
6	Ad yöneticisi kullanılarak belli bir hücre veya bölgeye ya da herhangi bir şeye ad verilip verilmediğini tespit etme
7	Hücrenin sayısal bir değer içerip içermediğinin tespit edilmesi
8	Aktif hücrenin içerisinde bulunduğu sayfanın ve dosyanın adının tespit edilmesi
9	Seçilen alandaki sadece boş olan hücreleri tespit edip seçme
10	mükerrer olanları kırmızı ile tespit etmek
11	ehatalıysa formülünün izahı
12	Sadece şu ana kadar kullanılmış olan hücrelere veri girişi ve diğer işlemlere izin verme, diğer hücreleri kilitleme
13	istediğim mükerrer olanlari silmesi(satır silme olabilir)
14	veri olan tüm sayfaları yazdırır yoksa tarar ama yazdırmaz
15	makroda bir veya birden çok değer döndürmek
16	veri olan hücreleri yazdırır
17	şifreli kapali bir dosyadan veri almak
18	ı1:i13 hücrelerinde yazılı yazılı olan veriler 0a eşit değilse 0 yapar çevirir
19	Aktif hücrenin satır ve sütun numaralarının tespit edilmesi
20	veri olan iki ayrı sütunu birleştirme

Benzer Sonuçlar

Makro Adı

benzersiz (tek) olan veri girişlerinin tespit edilmesi

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

Benzersiz Değerleri Vurgulayın: Bu kodlar, seçimdeki benzersiz bir değeri olan tüm hücreleri vurgulayacaktır.

Excel Versiyon Dilini Tespit Etme

comboboxda verilerin yalnızca birer kere görünmesi

Ad yöneticisi kullanılarak belli bir hücre veya bölgeye ya da herhangi bir şeye ad verilip verilmediğini tespit etme

Hücrenin sayısal bir değer içerip içermediğinin tespit edilmesi

Aktif hücrenin içerisinde bulunduğu sayfanın ve dosyanın adının tespit edilmesi

Seçilen alandaki sadece boş olan hücreleri tespit edip seçme

mükerrer olanları kırmızı ile tespit etmek