Broj trenutno aktivnog reda u UserForm

[ mirko1949 @ 30.03.2009. 12:26 ] @

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= ????

[ 3okc @ 30.03.2009. 12:39 ] @

Code:
ActiveCell.Row

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

[ mirko1949 @ 30.03.2009. 12:54 ] @

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

[ 3okc @ 30.03.2009. 13:14 ] @

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š.

[ mirko1949 @ 30.03.2009. 13:20 ] @

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

[ Gix_ @ 30.03.2009. 20:53 ] @

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

[ mirko1949 @ 31.03.2009. 10:13 ] @

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).

[ Jpeca @ 31.03.2009. 11:01 ] @

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

[ mirko1949 @ 31.03.2009. 11:22 ] @

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]}

[ Jpeca @ 31.03.2009. 12:25 ] @

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()

[ mirko1949 @ 31.03.2009. 17:28 ] @

Hvala Peco
Pozdrav