listbox a her sayfanın d3 hücresini almak

[hurkanpisirici]

merhabalar ben listbox ıma kitabımda bulunan her sayfanın d3 hücresinde buluınan verilerin gelmesini sitiyorum tabi sol tarafta sayfa ismi sağ tarafta veri olacka buna nasıl bir kod lazım acaba?

 

[Orion1]

Private Sub UserForm_Initialize()
Dim syf As Worksheet
ListBox1.ColumnCount = 2
For Each syf In Worksheets
    ListBox1.AddItem
    ListBox1.Column(0, ListBox1.ListCount - 1) = syf.Name
    ListBox1.Column(1, ListBox1.ListCount - 1) = syf.Range("D3").Value
Next syf
End Sub

 

[hurkanpisirici]

harikasınız hocam peki f1 ve f2 hücresi sini nasıl alırım yani iki hücre?

dosyam ekte

 

[hurkanpisirici]

evren bey bide sizin sayfa kopyalam kodunuzu kullanıyorumda sayfayı komple kopyalıyor harika ben kopyaladığım sayfaya birde buton eledim o butonu kopyaltamıyorum çok oldum dimi

 

[hurkanpisirici]

f2 yi almayı başardım peşin soru sormuşum özür dilerim ama buton sorunum devamn ediyo

 

[Orion1]

harikasınız hocam peki f1 ve f2 hücresi sini nasıl alırım yani iki hücre?

dosyam ekte

Dosyanız ekte

 

[hurkanpisirici]

ellerinize sağlık hocamm

 

[Orion1]

evren bey bide sizin sayfa kopyalam kodunuzu kullanıyorumda sayfayı komple kopyalıyor harika ben kopyaladığım sayfaya birde buton eledim o butonu kopyaltamıyorum çok oldum dimi

Dosyanız ekte.

 

[hurkanpisirici]

çok teşekkür edeirm evren bey sizin cevap bulamadığınız gün bende excelle ilgilenmeyi bırakacağım

 

[hurkanpisirici]

evren bey sayfa ismi nokta ile başlayan sayfalrın listboxt a gözükmemesini nasıl sağlarım.

 

[Orion1]

evren bey sayfa ismi nokta ile başlayan sayfalrın listboxt a gözükmemesini nasıl sağlarım.

Dosyanız ekte.

 

[hurkanpisirici]

çok teşekkür edeirm evren bey nerede değişiklik yapığınız anlamadım ama?

 

[Orion1]

Private Sub UserForm_initialize()
    On Error Resume Next
    shCount = ActiveWorkbook.Sheets.Count
    ReDim shInfo(1 To shCount, 1 To 2)
    i = 1
    For Each sh In ActiveWorkbook.Sheets
        [B][COLOR="Red"]If Left(sh.Name, 1) <> "." Then[/COLOR][/B]
            shInfo(i, 1) = sh.Name
            Select Case sh.Visible
                Case xlSheetVisible
                shInfo(i, 2) = "A&#231;&#305;k"
                Case xlSheetHidden
                shInfo(i, 2) = "A&#231;&#305;k"
                Case xlSheetVeryHidden
                shInfo(i, 2) = "&#199;ok Gizli"
            End Select
            i = i + 1
        [B][COLOR="red"]End If[/COLOR][/B] 
   Next
    With ListBox1
        .ColumnWidths = "150 pt;50 pt"
        .List = shInfo
        .ListIndex = 0
    End With
Dim syf As Worksheet
For Each syf In Worksheets
    If syf.Name <> "men&#252;" Then
        ComboBox1.AddItem syf.Name
    End If
Next
'If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0

End Sub

 

[hurkanpisirici]

teşekkür etmek yetmez ellerinize sağlık.

 

[hurkanpisirici]

değişikliği bakiye takipteki listboxuma koydum hata verdi ama

 

[Orion1]

değişikliği bakiye takipteki listboxuma koydum hata verdi ama

Private Sub UserForm_initialize()
Dim syf As Worksheet
ListBox1.ColumnCount = 3
For Each syf In Worksheets
    If Left(syf.Name, 1) <> "." Then
        ListBox1.AddItem
        ListBox1.Column(0, ListBox1.ListCount - 1) = syf.Name
        ListBox1.Column(1, ListBox1.ListCount - 1) = syf.Range("f1").Value
        ListBox1.Column(2, ListBox1.ListCount - 1) = syf.Range("f2").Value
    End If
Next syf
End Sub

 

[Orion1]

Bu kodları ben yazdığımda nedense hata vermiyor..!!!

 

[hurkanpisirici]

harikasınız.büyük ihtimal programıcısnız bu sizin için hobi değil bir meslek büyük ihtimalle.

 

[Orion1]

harikasınız.büyük ihtimal programıcısnız bu sizin için hobi değil bir meslek büyük ihtimalle.

Rica ederim.
Ben sadece hobi olarak yapıyorum.
İyi çalışmalar.

 

[hurkanpisirici]

anında yazıyorsunuz mükemmel bişey kolay gelsin sağolun sabrınız için de teşekkürler