Evo samo da javim da je problem riješen uz pomoć našeg novog člana
devious-a...
Car si i puno ti hvala na pomoći... (riješeno u roku par sati
, sam da se zna...)
Ak te vidim negdje imaš
Još jednom... hvala...
+ mislio sam ubaciti kod kasnije... (i ako je samo c/p)
____________________________________________________
'**************************************************'
'**************************************************'
'*** ***'
'*** Ovaj dio koda sređuje ***'
'*** Stanje skladišta ***'
'*** ***'
'**************************************************'
'**************************************************'
Private Sub Worksheet_Activate()
Dim brojac As Integer
Range("A7", "E" & Rows.Count) = ""
brojac = 0
For Each sht In Worksheets
If sht.Name <> "Stanje skladišta" Then
Range("B" & (Int(brojac) + 7)).Value = sht.Range("A1").Value
Range("E" & (Int(brojac) + 7)).Value = sht.Range("G6").Value
Range("C" & (Int(brojac) + 7)).Value = "kom"
Range("A" & (Int(brojac) + 7)).Value = sht.Name
brojac = brojac + 1
End If
Next
End Sub