Find Macro Online Excel and Excel Macro (VBA) Courses Copy Macro 'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php Option Compare Binary Private Sub CheckBox4_Click() If CheckBox4.Value = True Then CheckBox3.Enabled = False End Sub Private Sub CommandButton1_Click() If TextBox1.Text = "" Then Exit Sub If CheckBox1.Value = True Then look = 1 Else look = 2 If CheckBox3.Value = True Then bas = 1 Else bas = 2 ListBox1.Clear Set c = Range("a:a").Find(TextBox1, LookIn:=xlValues, MatchCase:=CheckBox2.Value, LookAt:=look, SearchDirection:=bas) If Not c Is Nothing Then firstAddress = c.Address ListBox1.AddItem ListBox1.List(0, 0) = c.Address ListBox1.List(0, 1) = c basla: Set c = Range("a:a").FindNext(c) If Not c Is Nothing And c.Address firstAddress Then a = a + 1 ListBox1.AddItem ListBox1.List(a, 0) = c.Address ListBox1.List(a, 1) = c GoTo basla End If End If If CheckBox4.Value = 0 Then Exit Sub If ListBox1.ListCount > 0 Then For x = 0 To ListBox1.ListCount - 2 For y = x + 1 To ListBox1.ListCount - 1 If Val(Replace(ListBox1.List(x, 0), "$A$", "")) > Val(Replace(ListBox1.List(y, 0), "$A$", "")) Then Call swap(x, y) Next y, x End If End Sub Private Sub ListBox1_Click() Range(ListBox1.List(ListBox1.ListIndex, 0)).Select End Sub Sub swap(ind1, ind2) Set l = ListBox1 ara = l.List(ind1, 0) l.List(ind1, 0) = l.List(ind2, 0) l.List(ind2, 0) = ara ara = l.List(ind1, 1) l.List(ind1, 1) = l.List(ind2, 1) l.List(ind2, 1) = ara End Sub Report problem with this macro This macro does not work. There's an error in the code. Other You can write your comments about the error in the box below. Report error ALL MACROS Youtube Channel The following macros may be useful for you. Similar Results NoMacro Name 1 find macro 2 Protect All Worksheets Now: This is a code for you if you want to protect all your worksheets at once. & Nbsp; When you run this macro, you will find an input box to enter a password. After entering your password, click All. And be careful with CAPS. 3 find and copy and paste in macro 4 Active workbook in email: Use this macro code to quickly send your active workbook by email. & Nbsp; You can change the subject email and body text in the code. If you want to send this mail directly, use.Send" instead of.Display." 5 Add menu to file edit bar delete 6 change the message text written in macro 7 search macro 8 macro that finds the IP number 9 Codes that prevent and open the vba window and access codes 10 find-change-delete-save macro 11 macros box and macros appear 12 excel operators hk 13 indisin vba macro 14 wav file playback 4 15 preview macro 16 to call a macro from within a macro 2 17 If Cell A1 is greater than zero, let the macro run. 18 for example, if macro is executed in line 4 19 wav file play 2 20 conditional wav ringing