list box kullanımı

[inowjoin]

merhabalar ben excelde her personel için bir sekme oluşturdum ali veli gibi..
bunların olduğu sayfalara ana sayfadan ve her sayfadan list box la erişmek istiyorum buton olarak yaptım macro kaydederek ama pratik değil
bu konudan anlayanların yardımını bekliyorum

 

[milhanalp]

Forumda arama yapmadan soru soruyorsunuz. Bu örnek kodlar forumdan alınmıştır.

Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Activate
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
    Dim j As Integer
      If Worksheets.Count = 1 Then Exit Sub
    For i = 1 To Worksheets.Count
    Sheets(i).Name = LCase(Sheets(i).Name)
        For j = i + 1 To Worksheets.Count
            If LCase(Worksheets(j).Name) < LCase(Worksheets(i).Name) Then
                Worksheets(j).Move Before:=Worksheets(i)
            End If
        Next j
    Next i
    For i = 1 To Sheets.Count
        ListBox1.AddItem Sheets(i).Name
    Next

End Sub

 

[inowjoin]

dediğiniz doğru olabilir fakat bu bölümün adında anlayayabileceğiniz gibi yeniyiz
bir takım veriler var ama nasıl birleştirecez nasık kullanacaz sorun bu...
problem basit listbox tan ilgili sayfaya tıklayarak gitmek
yinede teşekkürler

 

[inowjoin]

listbox?

bir örnek gönderdim foruma incelerseniz sevinirim şimdilik bu kadar ilerleyebildim

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=1382&highlight=listbox

 

[inowjoin]

ya çok pardon ya list box değil bu combo box muş
gerçi bunuda çözemedim ben

 

[Levent Menteşoğlu]

Aşağıdaki linkteki excelvba isimli üyemizin eklemiş olduğu "sayfayagit" isimli dosyayı inceleyin.

http://www.excel.web.tr/viewtopic.php?t=8363

 

[inowjoin]

bu tamam gibi teşekürler iyi geceler

 

[inowjoin]

fakat sayfaya git adlı dosyadaki combo box u taşıyamıyorum ve değiştiremiyorum bunun nedeni nedir?