Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 34 odgovora
  • 9.779 pregleda

Najnovija ↓

Re: Unos podataka iz sheet 1 u sheet 2 15.10.2019. u 15:55 · pre 85 meseci #22
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.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: Unos podataka iz sheet 1 u sheet 2 15.10.2019. u 21:42 · pre 85 meseci #23
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

Re: Unos podataka iz sheet 1 u sheet 2 16.10.2019. u 10:41 · pre 85 meseci #24
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.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: Unos podataka iz sheet 1 u sheet 2 20.10.2019. u 23:30 · pre 85 meseci #25
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
Re: Unos podataka iz sheet 1 u sheet 2 21.10.2019. u 10:22 · pre 85 meseci #26
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")
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: Unos podataka iz sheet 1 u sheet 2 21.10.2019. u 13:39 · pre 85 meseci #27
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?
Re: Unos podataka iz sheet 1 u sheet 2 21.10.2019. u 15:05 · pre 85 meseci
izmenjeno 1 put, poslednji put Jpeca 21.10.2019. u 15:18
  1. Jpeca21.10.2019. u 15:18zapis iz teksta poruke
#28
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
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: Unos podataka iz sheet 1 u sheet 2 21.10.2019. u 16:30 · pre 85 meseci #29
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.
Re: Unos podataka iz sheet 1 u sheet 2 22.10.2019. u 11:45 · pre 85 meseci #30
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.
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: Unos podataka iz sheet 1 u sheet 2 26.10.2019. u 15:19 · pre 85 meseci #33
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?
Re: Unos podataka iz sheet 1 u sheet 2 08.11.2019. u 08:24 · pre 85 meseci #34
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
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme