Odlazak na predefinisano polje (VBA)

Odlazak na predefinisano polje (VBA) 02.03.2012. u 12:38 · pre 178 meseci #1

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

Re: Odlazak na predefinisano polje (VBA) 02.03.2012. u 12:43 · pre 178 meseci #2

Nasao :)

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

Re: Odlazak na predefinisano polje (VBA) 02.03.2012. u 13:15 · pre 178 meseci #3

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

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: Forma sa popunjavanjem razlicitih celija 02.03.2012. u 13:42 · pre 178 meseci #4

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?

Re: Odlazak na predefinisano polje (VBA) 02.03.2012. u 13:54 · pre 178 meseci #5

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

Re: Odlazak na predefinisano polje (VBA) 02.03.2012. u 14:04 · pre 178 meseci #6

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

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!

1

Re: Odlazak na predefinisano polje (VBA) 02.03.2012. u 14:24 · pre 178 meseci #7

:)
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?

Re: Odlazak na predefinisano polje (VBA) 02.03.2012. u 15:13 · pre 178 meseci #8

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

InvNoXXX_klijent.xlsm44.05k

Forum kao aplikacija na telefonu

Srodne teme