[es] - Broj trenutno aktivnog reda u UserForm

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.

+2 Profil

Broj trenutno aktivnog reda u UserForm

^{30.03.2009. u 12:26 - pre 183 meseci}

Potrebno mi je da u formi za unos u nekom Label-u ili TextBox-u (svejedno je) bude oznacen red u koji se unose podaci (trenutni red), nesto kao Label1.Caption= ????

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{30.03.2009. u 12:39 - pre 183 meseci}

Code:
ActiveCell.Row

Da li si probao Data >> Form... ??

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!

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.

+2 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{30.03.2009. u 12:54 - pre 183 meseci}

Forma je u VBA tako da Data >> Form...ne pomaze.
Inace "ActiveCell.Row" mi ne daje broj reda u koji unosim vec neki broj teda na ciju celiju sam zadnji put kliknuo

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{30.03.2009. u 13:14 - pre 183 meseci}

Citat:

mirko1949: "ActiveCell.Row" mi ne daje broj reda u koji unosim vec neki broj teda na ciju celiju sam zadnji put kliknuo

Tačno tako. A to je i bilo pitanje: stoji lepo "Broj trenutno aktivnog reda".

Ako radiš upis sa VBA onda je logično da znaš koji red koristiš.

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.

+2 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{30.03.2009. u 13:20 - pre 183 meseci}

Ne znam, jer dok unosim podatke nije mi aktivna nijedan radni list. Zato sam i stavio da bude oznacen red u koji se unosi

Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-28.abo.wanadoo.fr.

Profil

Re: Broj trenutno aktivnog reda u UserForm

^{30.03.2009. u 20:53 - pre 183 meseci}

Mirko druze pojasni malo ovo tvoje pitanje,
neshvatam sta hoces da znas jer kao sto kaze :

Citat:

3okc:

Ako radiš upis sa VBA onda je logično da znaš koji red koristiš.

kolikoje meni poznato kada saljes informacije preko VBA uvek imaju neku destinaciju ili ???

Pozdrav

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

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.

+2 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{31.03.2009. u 10:13 - pre 183 meseci}

Pokusacu bolje da objasnim.
Iz UserForm popunjavam redom list1. Dok vrsim ovo popunjavanje listovi nisu na ekranu odnosno pomocu:
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
stavleni su na minimized. Upravo stoga bih hteo da mi u nekom Label-u ili TextBox-u bude prikazan broj reda koji se popunjava ili prvi prazan nepopunjen red (svejedno).

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{31.03.2009. u 11:01 - pre 183 meseci}

A kako popunjavaš red/ćeliju? Da li možeš da daš deo koda pa će biti jasnije.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.

+2 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{31.03.2009. u 11:22 - pre 183 meseci}

Code:

Private Sub CommandButton1_Click()

ActiveWorkbook.Sheets("1").Activate
Range("b2").Select
Do
  If IsEmpty(ActiveCell) = False Then
     ActiveCell.Offset(1, 0).Select
  End If
  If ActiveCell.Row >= [3!a1] And ActiveCell.Column < 6 Then
     MsgBox ("KRAJ UNOSA  -   VIŠE NIJE DOZVOLJENO"), vbQuestion, "MAGDIC"
     Exit Sub
  End If
Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = OptionButton1.Value
ActiveCell.Offset(0, 6) = OptionButton2.Value
ActiveCell.Offset(0, 7) = OptionButton3.Value
ActiveCell.Offset(0, 8) = OptionButton4.Value
End Sub

Evo ovo je ceo kod za popunjavanja

_{[Ovu poruku je menjao Jpeca dana 31.03.2009. u 12:47 GMT+1]}

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
136.148.127.*

Sajt: www.gowi.rs

+109 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{31.03.2009. u 12:25 - pre 183 meseci}

Ako tek prilikom upisa odredjuješ u koji red će biti upisan podatak, onda je jasno da ne možeš da prikažeš broj reda.
Potrebno je određivanje reda za upis razdvojiti od konkretnog upisa. Npr na događaj OnLoad forme pozicionirati se u prvi prazan red, pa ćeš onda na ActiveCell.Row imati broj reda za prikaz. Pozicioniranje na prvi prazan red (sledeći?) obavi i nakon upisa, tj. na kraju rutine CommandButton1_Click()

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.rs.

+2 Profil

Re: Broj trenutno aktivnog reda u UserForm

^{31.03.2009. u 17:28 - pre 183 meseci}

Hvala Peco
Pozdrav

Odgovor na temu