[ mirko1949 @ 23.03.2009. 10:06 ] @
Imam formu za unos kojom unosim podatke u list "Unos"
Potrebno mi je da kada prilikom unosa dodjem do reda 200 da mi porukom (MsgBox) javi da sam dosao do tog reda i eventualno ogranici unos u tom redu i dalje.
[ 3okc @ 23.03.2009. 14:29 ] @
Koristi validaciju za ograničenje unosa, a kao pravilo napiši f-ju u kojoj ćeš logičkim operatorima ispitivati f-ju ROW().
[ Gix_ @ 27.03.2009. 22:03 ] @
Re,
Odgovaramti totalno napamet, recimo da popunjavas listbox
mozes usloviti na sledeci nacin:

With .ListBox1
If .ListCount < 1 Then

popunjavas listu TBox ili combo ili cime vec

ElseIf .ListCount >= 200 Then
MsgBox "Lista kompletna 200 Linije popunjene !", vbCritical

[ mirko1949 @ 28.03.2009. 10:42 ] @
Hvala na odgovorima,
Ja sam nesto pokusao, odnosno uspeo sam da mi porukom javi kad prekoracim red. Ipak kad bih jos mogao da posle tog reda i ogranicim unos bilo bi dobro. Saljem fajl pa ako neko ima vremena da mi u tom smislu pomogne.
[ gvlaisavljevic @ 28.03.2009. 20:53 ] @
U kod dodaj Unload Me između uslova i poruke-forma za unos se zatvori kada se popuni 10. red.
[ Gix_ @ 30.03.2009. 00:49 ] @
Re,
prepravi kodu komand-boutona na ovaj nacin
Code:
Private Sub CommandButton1_Click()

ActiveWorkbook.Sheets("Unos").Activate
Range("b2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
    
If ActiveCell.Row >= 10 And ActiveCell.Column < 6 Then
    MsgBox ("KRAJ UNOSA  -   VIŠE NIJE DOZVOLJENO")
    Exit Sub 'izaci iz procedure akoje kondicija popunjena
End If
    
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = TextBox1.Value
       
End Sub
[ mirko1949 @ 30.03.2009. 16:14 ] @
Hvala Gix
Pozdrav