Re,
evo pocetka za kodovanje tvoje petlje
napravi jedan formuler sa imenom UserForm1
dodaj kontrolu sa imenom ListBox1
prepisi ovu kodu:
Code:
Option Explicit
Const G As String = "Demonstracija za Forum Elitesecurity"
Private Sub UserForm_Initialize()
Dim i As Integer
UserForm1.Caption = G
For i = ActiveSheet.Index To Sheets.Count
Me.ListBox1.AddItem Sheets(i).Name
Next i
End Sub
pokusaj da konbinujes petlju selekciju u listbox i kodu od mirka.
Pozdrav
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!