Odlazak na predefinisano polje (VBA)

[ koska @ 02.03.2012. 11:38 ] @

Jedno pocetnicko pitanjce, tako da se nadam brzom odgovoru :)
Recimo da imam ovako nesto:

Code:
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

(kod koji sam nasao na netu i koji mi pronalazi poslednji red u tabeli)

Kako da zadam da mi u celiji koja se nalazi ispod poslednjeg reda upise neka vrednost?

na primer imam:

Code:
A
------
1: 1
2: 2
3: 5
4: 67
5: 8

LastRow mi postaje 5
i hocu da mi se u A6 upise neka vrednost

hvala unapred

[ koska @ 02.03.2012. 11:43 ] @

Nasao :)

Code:
ActiveSheet.Cells(LastRow, 1).Select

[ 3okc @ 02.03.2012. 12:15 ] @

To što si našao nije u skladu sa onim što si tražio.

Citat:

koska: LastRow mi postaje 5 i hocu da mi se u A6 upise neka vrednost

Ako je LastRow = 5, upis u ćeliju ispod se referencira sa Cells(LastRow +1, 1).

Sasvim je druga stvar kako si došao do tog podatka. Iz definicije za LastRow vidi se da koristiš metod Find i da ničim nisi ograničio da to bude baš kolona A, u kojoj bi potom nešto da pišeš.

[ dusantod @ 02.03.2012. 12:42 ] @

Pozdrav,

pokusavam da u textbox u formi povucem podatak iz celije ali mi ne uspeva.

sheet("Podaci")
kolone: rbr, name, address, officebox

kolona rbr se automatski povecava za +1 u odnosu na prethodni red (stvara sortiran niz)
Imam formu pomocu koje unosim podatke u redove. Forma povlaci "Dim LastRow As Object" i "Set LastRow = Sheets("Podaci").Range("b65536").End(xlUp)"
kako bi odredio poslednji popunjen red.
Forma ima 5 textbox-ova i u petom textbox-u mi treba podatak iz poslednjeg reda u koloni rbr.

Kako ovo da dobijem?

[ koska @ 02.03.2012. 12:54 ] @

Da, moja greska... zaboravih da dodam +1
Ali zar nisam onda onim ActiveSheet.Cells(LastRow, 1).Select
dao komandu da ide na poslednji red prve (A) kolone?

E da... i na kraju treba dodati

ActiveCell.FormulaR1C1 = NekaVrednost

[ 3okc @ 02.03.2012. 13:04 ] @

@dusantod

Code:
Dim LastRow As Range
Set LastRow = Sheets("Podaci").Range("b65536").End(xlUp)

LastRow je postavljena na poslednju ćeliju B kolone. Vrednost ove ćelije dobiješ čitanjem LastRow.Value

@koska

Citat:

koska: Ali zar nisam onda onim ActiveSheet.Cells(LastRow, 1).Select
dao komandu da ide na poslednji red prve (A) kolone?

Nije sporno "gde si dao komandu da ide" nego što pretragu vršiš proizvoljno pa će takav i upis da bude: vezan doduše za prvu kolonu ali mesto upisa može da varira.

[ koska @ 02.03.2012. 13:24 ] @

:)
OK, to stoji...
ali ako znam sigurno da ce ovaj makro da bude upotrebljavan samo nad jednim istim fajlom, da li mora bas da se definise "u sitna crevca" ili moze i ovo moje ovako?

[ dusantod @ 02.03.2012. 14:13 ] @

@3okc

Citat:

3okc: @dusantod

Code:
Dim LastRow As Range
Set LastRow = Sheets("Podaci").Range("b65536").End(xlUp)

LastRow je postavljena na poslednju ćeliju B kolone. Vrednost ove ćelije dobiješ čitanjem LastRow.Value

Potrebna mi je vrednost iz kolone A gde su smesteni sortirani redni brojevi od 1 do xxx.

Da li moze da se ubaci automatsko brojanje i upis u celiju u koloni rbr na sledeci nacin ako je
A B C
rbr Name postbox
Set LastRow = Sheets("Podaci").Range("a65536").End(xlUp)
'u formi postoji textbox koji cita vrednost iz poslednje celije i uvecava za 1
textbox4.Value = LastRow.Value +1 //da li moze ovako?

@namestio sam da se prilikom pozivanja forme ucita vrdnost u textbox5 i da se uveca za jedan u odnosu na prethodni. Posto postoji mogucnost da se nastavi dalje, potrebno mi je da se posle potvrde na Yes osvezi podatak u textbox5 i da prikaze novu vrednost. Kako to da uradim?

_{[Ovu poruku je menjao dusantod dana 02.03.2012. u 17:35 GMT+1]}