[es] - Odlazak na predefinisano polje (VBA)

koska
London, UK

Član broj: 987
Poruke: 823
*.croy.cable.virginmedia.com.

+61 Profil

Odlazak na predefinisano polje (VBA)

^{02.03.2012. u 11:38 - pre 147 meseci}

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

Odgovor na temu

koska
London, UK

Član broj: 987
Poruke: 823
*.croy.cable.virginmedia.com.

+61 Profil

Re: Odlazak na predefinisano polje (VBA)

^{02.03.2012. u 11:43 - pre 147 meseci}

Nasao :)

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

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Odlazak na predefinisano polje (VBA)

^{02.03.2012. u 12:15 - pre 147 meseci}

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

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

dusantod
BMC System Engineer
Seavus DOO
BGD

Član broj: 46885
Poruke: 164
*.dynamic.sbb.rs.

ICQ: 640997805
Sajt: www.moj-kuvar.in.rs

+1 Profil

Re: Forma sa popunjavanjem razlicitih celija

^{02.03.2012. u 12:42 - pre 147 meseci}

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?

Odgovor na temu

koska
London, UK

Član broj: 987
Poruke: 823
*.croy.cable.virginmedia.com.

+61 Profil

Re: Odlazak na predefinisano polje (VBA)

^{02.03.2012. u 12:54 - pre 147 meseci}

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

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Odlazak na predefinisano polje (VBA)

^{02.03.2012. u 13:04 - pre 147 meseci}

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

Odgovor na temu

koska
London, UK

Član broj: 987
Poruke: 823
*.croy.cable.virginmedia.com.

+61 Profil

Re: Odlazak na predefinisano polje (VBA)

^{02.03.2012. u 13:24 - pre 147 meseci}

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

Odgovor na temu

dusantod
BMC System Engineer
Seavus DOO
BGD

Član broj: 46885
Poruke: 164
*.dynamic.sbb.rs.

ICQ: 640997805
Sajt: www.moj-kuvar.in.rs

+1 Profil

Re: Odlazak na predefinisano polje (VBA)

^{02.03.2012. u 14:13 - pre 147 meseci}

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

Prikačeni fajlovi

InvNoXXX_klijent.xlsm - 44.05k

Odgovor na temu