Poruka o redu za unos

Odgovori Nova tema

6 odgovora
3.798 pregleda

Poruka o redu za unos 23.03.2009. u 11:06 · pre 214 meseci #1

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.

Re: Poruka o redu za unos 23.03.2009. u 15:29 · pre 214 meseci #2

Koristi validaciju za ograničenje unosa, a kao pravilo napiši f-ju u kojoj ćeš logičkim operatorima ispitivati f-ju ROW().

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: Poruka o redu za unos 27.03.2009. u 23:03 · pre 214 meseci #3

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: Poruka o redu za unos 28.03.2009. u 11:42 · pre 214 meseci #4

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.

poruka-ogranicenje.xls33k

Re: Poruka o redu za unos 28.03.2009. u 21:53 · pre 214 meseci #5

U kod dodaj Unload Me između uslova i poruke-forma za unos se zatvori kada se popuni 10. red.

Re: Poruka o redu za unos 30.03.2009. u 01:49 · pre 214 meseci #6

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: Poruka o redu za unos 30.03.2009. u 17:14 · pre 214 meseci #7

Hvala Gix
Pozdrav

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme