U rutini
Code:
Private Sub UserForm_Initialize() '======================================<.>
Dim I As Integer 'Aktiviraj Sheet->EVIDENCIJA !?!
ActiveWorkbook.Worksheets("EVIDENCIJA").Activate
X = 0
LL = 2
aktivna.ColumnCount = 1 'aktivna
aktivna.BoundColumn = 1
aktivna.RowSource = "aktivna!A1:A35"
aktivna.ColumnWidths = "5,5,10"
'
mesec.ColumnCount = 1 'mesec
mesec.BoundColumn = 1
mesec.RowSource = "mesec!A1:A35"
mesec.ColumnWidths = "5,5,10"
'
I = PodesiRed()
End Sub
Umesto LL=2, stavi
Code:
LL = ActiveCell.Row()
LL je globalni parametar, bolje bi bilo da si definisao kao ulazni parametar za funkciju PodesiRed(), ali to bi zahtevalo izmene na više mesta
Nije to loše Rembrante, samo što ne bi dodao još malo boje?