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= ????
Broj trenutno aktivnog reda u UserForm
Zaključano
Zakačeno
Code:
ActiveCell.Row
ActiveCell.Row
Da li si probao Data >> Form... ??
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!
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!
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
Inace "ActiveCell.Row" mi ne daje broj reda u koji unosim vec neki broj teda na ciju celiju sam zadnji put kliknuo
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š.
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!
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!
Ne znam, jer dok unosim podatke nije mi aktivna nijedan radni list. Zato sam i stavio da bude oznacen red u koji se unosi
Mirko druze pojasni malo ovo tvoje pitanje,
neshvatam sta hoces da znas jer kao sto kaze :
kolikoje meni poznato kada saljes informacije preko VBA uvek imaju neku destinaciju ili ???
Pozdrav
neshvatam sta hoces da znas jer kao sto kaze :
Citat:
kolikoje meni poznato kada saljes informacije preko VBA uvek imaju neku destinaciju ili ???
Pozdrav
Potpis
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
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).
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).
A kako popunjavaš red/ćeliju? Da li možeš da daš deo koda pa će biti jasnije.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
izmenjeno 1 put, poslednji put Jpeca 31.03.2009. u 12:47
Izmene poruke
- Jpeca31.03.2009. u 12:47zapis iz teksta poruke
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
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
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()
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()
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Hvala Peco
Pozdrav
Pozdrav