Emeğiniz için teşekkürler. Çok faydalı idi. Benim bir sorum var. Soldaki bir hücrenin seçili veya dolu olup olmamasına göre bu hücrenin bitişiğindeki tablonun (dikdörgen şekilde 3 -4 sıra veya 2 kolon gibi) başka bir combobox a tıklandıktan sonra workbookta diğer seçili hücrelere bağlı tablolarla sıralanmalarını istiyorum. Hücrenin dolu veya checkbox şeklinde seçili olması koşulu ile böyle bir çalışma için makro yazmadan netice alınabilir mi ?
Aşağıdaki kod isteğinizi karşılayacaktır. Gizli sayfaları göstermemek için Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Sheets.Count If Sheets(i).Visible = False Then Else: ComboBox1.AddItem Sheets(i).Name ComboBox1.Value = ActiveSheet.Name End If Next End Sub
Bilgiler için teşekkürler. Eleştirim sesin çok kısık olması. İntro yüksek, anlatım kısık. Hoparlörü sonuna kadar açmak zorunda kalıyorum. Reklam çıkınca apartman ayağa kalkıyor.
hocam emeğinize sağlık çok güzel izah etmişsiniz ben bile excelde yeni sayılırım çok güzel anladım
Güzel sözleriniz için ben teşekkür ederim.
Bilgi paylaştıkça değerlidir. Teşekkürler hocam çok işime yaradı bu videonuz. Emeğinize sağlık
Ben teşekkür ederim. Faydalanıldığını duymak güzel duygu.
👍
Merhaba hocam "ANASINIFI" ile başlayan sayfaları nasıl combobox a listeleyrbilirim.
user Form hakkında da bir video bekliyoruz hocam... ama vba kodlarını eklerseniz sevinirim
En kısa zamanda istediğiniz tarz da bir video çekeceğim.
Emeğiniz için teşekkürler. Çok faydalı idi. Benim bir sorum var. Soldaki bir hücrenin seçili veya dolu olup olmamasına göre bu hücrenin bitişiğindeki tablonun (dikdörgen şekilde 3 -4 sıra veya 2 kolon gibi) başka bir combobox a tıklandıktan sonra workbookta diğer seçili hücrelere bağlı tablolarla sıralanmalarını istiyorum. Hücrenin dolu veya checkbox şeklinde seçili olması koşulu ile böyle bir çalışma için makro yazmadan netice alınabilir mi ?
Sayın hocam elinize sağlık. Sayfa 4 ün gizli olduğu durumda bunu combobox da göstermek istemez isek ne yapmalıyız?
Aşağıdaki kod isteğinizi karşılayacaktır. Gizli sayfaları göstermemek için
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
If Sheets(i).Visible = False Then
Else:
ComboBox1.AddItem Sheets(i).Name
ComboBox1.Value = ActiveSheet.Name
End If
Next
End Sub
Bilgiler için teşekkürler. Eleştirim sesin çok kısık olması. İntro yüksek, anlatım kısık. Hoparlörü sonuna kadar açmak zorunda kalıyorum. Reklam çıkınca apartman ayağa kalkıyor.
Eleştirin için teşekkür ederim. Haklı olabilirsin. Daha dikkatli olmaya çalışacam.
Hakikaten yav çok az geliyor