Herkese merhabalar ,
programımda userformlar ve sheetler yani sayfalar fazla oldugu için programı ikiye böldüm . bi excel dosyamda sadece userformlar var ve onlara gelen bilgimide diger excel dosyasından alıyorum . Userform olan excel dosyamı açınca program açılıyor . Şöyle bi sorum olacak , ben şimdi kendime admin panel gibi bi form hazırlıyorum ve bunun içinde diger exceldeki sayfaları gizleme gösterme olacak . daha önce bu konuyla çalışmalar olmuş ancak ben başka exceldeki sheetler için bunu yapamadım . diger bir problemde sayfalarımın isimleri düzensiz yani "sheet2" , "sheet3" gibi degil . "iT110","iT220" gibi..
Workbooks(ThisWorkbook.iDataFile).Sheets("iT212").Cells gibi komutlarla iDataFile diye tanımladığım diger excel dosyasından, sayfalarındaki(sheet) verileri çekiyorum .
Şu kodları buldum :
Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox2.Clear
For a = 2 To Sheets.Count
If Sheets(a).Visible = True Then
ListBox1.AddItem Sheets(a).Name
Else
ListBox2.AddItem Sheets(a).Name
End If
Next
End Sub
özetliyeyim tekrar : ben bu yukarıdaki kodu iDataFile diye tanımladıgım başka bir excel dosyasındaki sheetleri gizlemek ve göstermek istiyorum ve sheetlerimin adı yukarıda dediğim gibi düzensiz .
Umarım anlatabilmişimdir
Yardımcı olabilirseni çok ama çok ama çok ama çok sevinirim
programımda userformlar ve sheetler yani sayfalar fazla oldugu için programı ikiye böldüm . bi excel dosyamda sadece userformlar var ve onlara gelen bilgimide diger excel dosyasından alıyorum . Userform olan excel dosyamı açınca program açılıyor . Şöyle bi sorum olacak , ben şimdi kendime admin panel gibi bi form hazırlıyorum ve bunun içinde diger exceldeki sayfaları gizleme gösterme olacak . daha önce bu konuyla çalışmalar olmuş ancak ben başka exceldeki sheetler için bunu yapamadım . diger bir problemde sayfalarımın isimleri düzensiz yani "sheet2" , "sheet3" gibi degil . "iT110","iT220" gibi..
Workbooks(ThisWorkbook.iDataFile).Sheets("iT212").Cells gibi komutlarla iDataFile diye tanımladığım diger excel dosyasından, sayfalarındaki(sheet) verileri çekiyorum .
Şu kodları buldum :
Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox2.Clear
For a = 2 To Sheets.Count
If Sheets(a).Visible = True Then
ListBox1.AddItem Sheets(a).Name
Else
ListBox2.AddItem Sheets(a).Name
End If
Next
End Sub
özetliyeyim tekrar : ben bu yukarıdaki kodu iDataFile diye tanımladıgım başka bir excel dosyasındaki sheetleri gizlemek ve göstermek istiyorum ve sheetlerimin adı yukarıda dediğim gibi düzensiz .
Umarım anlatabilmişimdir
Yardımcı olabilirseni çok ama çok ama çok ama çok sevinirim