Probao sam nekoliko varijanti, ali ne ide. Ova mi se ucinila najprihvatljivom, ali ni ona ne daje rezultat:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Prodaja As Integer
Prodaja = Range("A28").Value
If Prodaja > 0 Then
Range("A18:A27").Select
For Each Item In Selection
If Range(Item) > Prodaja Then
With Item
.Clear
Range("A28").Select
End With
End If
End If
Next Item
End Sub
Hteo sam da za pocetak izbrisem bar polja u "A" koja su veca od "A28", pa posle da pokusam cele redove, ali ni ovo ne radi. S.O.S. Hvala unapred.
Edit: Formatiranje
[Ovu poruku je menjao timmy dana 30.10.2009. u 11:12 GMT+1]