[es] - Unos podataka iz sheet 1 u sheet 2

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
89.216.49.*

Sajt: www.gowi.rs

+112 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{15.10.2019. u 14:55 - pre 67 meseci}

I dalje mi nejasno.

Sada postoji grananje:
a/ da li je ceo red na listu računi prazan - Novi unos, sva polja se čiste
b/ ako je nešto u redu popunjeno - preuzimaju se podaci iz lista Računi i radi se izmena podataka

Pretpostavljam da ovao pod a/ ostaje?

Ako je ideja da u slučaju da podatak ne postaji na listu Računi u odgovarajućoj koloni, prilikom izmene b/ ostane prethodno upisan podatak na obrazcu za unos, onda bi moglo ovako:

Code:
shUnos.Range("C3").Value = IIf(Len(cl.Offset(0, 1).Text) = 0, shUnos.Range("C3").Value, cl.Offset(0, 1).Value)

Isto treba zameniti za sva polja u obrazcu. Sličnu proveru već imaš u funkciji koja ispituje da li je prazan red

Code:
If Len(cl.Text) > 0 Then ...

Moram da priznam da bi mi takvo ponašanje prilikom unosa delovalo konfuzno.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{15.10.2019. u 20:42 - pre 67 meseci}

U prilogu ga sam dao 7 koraka kroy excel da jer nzm kako da stavim malu sliku.

U sheet racuni uvek je nepromeljiva kolona A, tj. racun broj, a ostale kolone su promenljive.

Ukoliko prilikom novog unosa u sheet racuni nema tog broja racuna npr. racun broj 100, isti se dodaje.

Kolone koje su promenljive se unose samo podaci koji su sadrzani u sheet unos, ukoliko nema podataka, tj.celija prayna ide se skip blank.

Promenljive mogu se se prelepljuju novim unosom ukoliko ima podatak u sheet unos

Prikačeni fajlovi

UnosUList.xlsm - 17.29k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
89.216.49.*

Sajt: www.gowi.rs

+112 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{16.10.2019. u 09:41 - pre 67 meseci}

Citat:

Kolone koje su promenljive se unose samo podaci koji su sadrzani u sheet unos, ukoliko nema podataka, tj.celija prayna ide se skip blank.

U postojećoj postavci ako id postoji i izabere se iz liste, svi podaci se preuzimaju u listu unos, tako da ne vidim svrhu preskakanja praznih - jer ako nisu prazni u listu računi neće biti prazni ni na Unos?
Npr. scenario Unos 6, iz tvog primera
Ako se na listu unos izabere 12 iz drop down liste list unos izgledaće ovako (Racuni 5)

I nakon što se popuni iznos 1100 i klikne na dugme u odgovarajući red prepisaće se sve podaci iz lista Unos: postojeći koji nisu menjani (Vreme) i izmenjeni (Iznos).

Ako baš želiš već sam u prethodnom postu objasnio kako da izvedeš to što ti zoveš "skip blank". Obrati pažnju da izmenu vršiš u proceduri Button1_Click() - ne kako si ti naveo

Code:
' Popuni i preskoci prazna
            cl.Offset(0, 1).Value = IIf(Len(shUnos.Range("C3").Text) > 0, shUnos.Range("C3").Value, cl.Offset(0, 1).Value)
            cl.Offset(0, 2).Value = IIf(Len(shUnos.Range("C4").Text) > 0, shUnos.Range("C4").Value, cl.Offset(0, 2).Value)
            cl.Offset(0, 3).Value = IIf(Len(shUnos.Range("C5").Text) > 0, shUnos.Range("C5").Value, cl.Offset(0, 3).Value)

Za dodavanje nepostojećeg treba dodati novi kod.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

UnosPreuzimanje.png - 5.09k

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{20.10.2019. u 22:30 - pre 67 meseci}

imam par pitanja:

kako da ga otkljucam da bi ga prilagodio?
sta je i gde se nalayi Find(BrRacuna)?
sta je i gde se nalazi Dim shLista As Worksheet

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
89.216.49.*

Sajt: www.gowi.rs

+112 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{21.10.2019. u 09:22 - pre 67 meseci}

Citat:

kako da ga otkljucam da bi ga prilagodio?

Ako si mislio na list Unos, jednostavno desni klik na jezičak lista ("Unos") i Unprotected Sheet - nisam stavio nikakvu lozinku

Citat:

sta je i gde se nalayi Find(BrRacuna)?

Find je postojeća Excel Range metoda koja traži vrednost unutar opsega

Citat:

sta je i gde se nalazi Dim shLista As Worksheet

shLista kao promenjiva tipa Worksheet postoji u procedurama AzrurirajPodatke i Button1_Click. Ta promenljiva koristi se za pristup listu "Računi"

Code:
Dim shLista As Worksheet
...
Set shLista = ThisWorkbook.Sheets("Racuni")

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
87.116.175.*

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{21.10.2019. u 12:39 - pre 67 meseci}

kako da ga otkljucam da bi ga prilagodio?

Ako si mislio na list Unos, jednostavno desni klik na jezičak lista ("Unos") i Unprotected Sheet - nisam stavio nikakvu lozinku

To uradio ali mi ne da izmene i dalje.

I u vba izbrisao protect i nista, kada krenem da menjam ili dodajem stalno izbacuje ne moze se menjati zasticen je.

A sta je (BrRacuna) ? kako njega da prilagodim?

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
89.216.49.*

Sajt: www.gowi.rs

+112 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{21.10.2019. u 14:05 - pre 67 meseci}

Na klik dugmeta pretražuje se list Racuni (Find sa BrRacuna kao parametorm )
BrRacuna je vrednost iz ćelije C2 na listu Unos:

Code:
BrRacuna = shUnos.Range("C2").

Za nađeni broj računa upisuju uneti podaci u odgovarajući red

U prilogu je moja radna verzija gde sam otključao list unos. Nije mi jasno šta ne možeš da menjaš.

Ako imaš nameru da radiš sa VBA bilo bi dobro da kreneš iz početka - šta su varijable, funkcije, procedure, petlje, range objekat, kako se debaguje kod
Ima neki tutorial koje je već navođen ovde Djukanović: Programiranje kroz aplikacije
kao i Excel kuhinjica

_{[Ovu poruku je menjao Jpeca dana 21.10.2019. u 15:18 GMT+1]}

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Prikačeni fajlovi

UnosUList2.xlsm - 25k

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
87.116.175.*

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{21.10.2019. u 15:30 - pre 67 meseci}

ne dozvoljava mi da fomatiram celiju gde je datum i vreme?

Sto se tice skripte uzimao sam ih vise ali bas, bas tesko za razumeti, ja bih licno imao molbu kada bi neko mogao graficki da uradi grubu semu strukture macroa.

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2286
89.216.49.*

Sajt: www.gowi.rs

+112 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{22.10.2019. u 10:45 - pre 67 meseci}

Nije problem da promeniš format datuma, dok god ga Excel prepozaje kao datum (numerik). Možda te je zbunilo uputstvo "Uneti datum u formatu dd.mm.yyy" kad klikneš u ćeliju. To se podešava u validaciji (Data > Validation, Input message kartica). To je samo komentar za onoga koji unosi i možeš da napišeš šta god ti volja.

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
87.116.175.*

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{22.10.2019. u 14:03 - pre 67 meseci}

da li moze i da se doda racun koga nema u listi racuna?

znaci dodati novi racun

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{25.10.2019. u 23:00 - pre 66 meseci}

kako zameniti

For j = 1 To 2

u

1,3,5?

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.vipmobile.rs.

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{26.10.2019. u 14:19 - pre 66 meseci}

Da li bi moglo da se uredi da ima dva kriterijuma pomocu kojih se traze, npr br.racuna i datum, a ako nema jedan od njih ipak da da podatke koji su uneti?

Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
82.208.214.*

+2 Profil

Re: Unos podataka iz sheet 1 u sheet 2

^{08.11.2019. u 07:24 - pre 66 meseci}

Ovo se sa skip blank je potrebno da bise ogranicio pristup odredjenom koji to unosi, te bi zato bilo dobro da se ne vide podaci vec ti postojeci da se kopiraju, odnosno updejtuju i unrsu novi ako ne postoje

Odgovor na temu