Treeview Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! 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. Private Sub TreeView1_Click() On Error GoTo son Dim bak As Range Dim a As String a = UserForm1.TreeView1.SelectedItem.Text If a "" Then Sayfa2.Select For Each bak In Sayfa2.Range("B2:B" & WorksheetFunction.CountA(Sayfa2.Range("B1:B65000"))) If StrConv(bak.Value, vbUpperCase) = StrConv(a, vbUpperCase) Then ' .ComboBox1.Value, vbUpperCase) Then bak.Select With UserForm1 .TextBox1.Value = bak.Offset(0, 0) 'adı soyadı .TextBox4.Value = bak.Offset(0, 1) 'görevi .TextBox2.Value = bak.Offset(0, 3) 'tc kimlik no .TextBox3.Value = bak.Offset(0, 2) 'sicil no End With Exit Sub End If Next bak Else Exit Sub End If son: MsgBox "Aradığınız isimde bir kayıt bulunamadı" End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 treeview a eklediğimiz bir veriyi seçerek bunu çift tıklamayla aktif hücreye yazdır 2 treeview 3 seçilen alanlari bir kağitda yazdırır eder 4 seçilen alanları bir kağıtta yazdırır eder 5 status barda mesajla bekleterek makro yaptırma 6 excel operatörleri hk 7 makro ile belirli bir hücreye sayfa sayısı yazdırma 8 hücreler arasını seçer ve yakınlaştırır 9 aktif sayfanın ismi a1 hücresinde 10 Bölmeleri dondurma 11 Aktif sayfayı belli bir büyüklüğe zoom yapma / büyütme veya küçültme 12 pencereyi dikey bölme 13 pencereyi dikey bölme 2 14 sayfa sıralama 15 listbox'a "for" döngüsü ile additem ekleme 16 a1 itibaren sayfa isimlerini yaz 17 sayfa numarası ekleme makrosu 18 sayfa isimlerini alfabetik sıralama 19 açılış makrosu(aktif pencerede mesaj verir.) 20 aktif sayfayı emaille gönderme