[es] - pomoc oko menjanja mesta

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-2.sezampro.rs.

+2 Profil

pomoc oko menjanja mesta

^{04.04.2011. u 17:56 - pre 158 meseci}

ljudi molio bih vas da mi pomognete! Ynaci svuda sam trayio i vise nema gde!
Treba mi u excell-u da mi se napise kod da kada se u C23 izabere slovo R da merged polja A3 i C3 zamene mesta sa formulama; tj da C3 moze da se pise a da A3 automatski izracuna ostatak od A22 A kad se izabere slovo L da opet ostane kako je sad?

I jel postoji kod koji ce da kopira sliku iz jednog sheeta u drugi na osnovu toga sta upisem u to drugo polje! U pitanju je pravljenje ponude za prodaju stolarije pa kad dodje covek da mu dam ponudu i kad u Sheet1 ukucam u neko polje K1-OK da povuce sliku na odredjeno mesto ali ako Prvo ukucam K2-Ok da sliku koja je vezana sa tim tekstom dovuce opet na prvo mesto a na drugo sta ukucam i sve tako redom!

Nadam se da sam lepo obrazlozio evo saljem i attach da vidite na sta sam mislio sa prvim pitanjem!
Molim vas bar mi kazite da ne postoji ta mogucnost samo me nemojte kulirati! Svuda sam probao i niko nema sluha za moje pitanje!

Prikačeni fajlovi

Book1.xlsx - 18.59k

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pomoc oko menjanja mesta

^{10.04.2011. u 17:56 - pre 158 meseci}

Prvo, moram da napomenem da je Excel poprilično neprikladan za ono što ti hoćeš da uradiš. A sad, da vidim koliko mogu da pomognem. Što se tiče izračunavanja ovih ostataka, bitno pitanje je da li su A3 i D3 uvek jednaki, tj. kada se upiše C3, da li merdžovana polja uvek zauzimaju jednak deo od ostataka. Ako je tako, onda u A3 (tj. merdžovanu ćeliju A3B3 koja se vodi kao A3) upišeš sledeću formulu

Code:
=IF(C23="R",((A22-C3)/2),0)

a u D3 (tj. merdžovano polje D3E3 koje se vodi kao D3), možeš ili

Code:
=A22-C3-A3

ili opet

Code:
=IF(C23="R",((A22-C3)/2),0)

Dakle, ako u C23 piše R, računaće se ostatak, u suprotnom biće 0. E sad, ovo za L mi nije baš najjasnije. Šta znači vratiti se na ono što je bilo ? Jel to nešto kao vraćanje na neku fiksnu default vrednost ili da uvek ide na ono što je bilo pre nego što si ukucao R. Ako je ono prvo, onda ćeš to rešiti sa jednim ugnježdenim IF-om, recimo

Code:
=IF(C23="R",((A22-C3)/2),IF(C23="L",400,0))

Pa tako ako je u C23 upisano R, onda će da sračuna kao gore što računa, ako je L onda će da bude 400 bez obzira šta piše u drugim poljima, a ako je prazno, onda 0. Ako je ovo drugo, onda to komplikuje situaciju podosta i iskreno nemam pojma kako bi to rešio, a i lakše je koristiti undo opciju u excelu nego pokušati da to izvedeš preko formula.

Dalje, što se tiče ovog drugog dela sa kopiranjem slike, iskreno, nisam shavtio šta želiš da postigneš, ali sam poprilično sam siguran da to ne može preko formula već bi morao da napraviš neki makro. E sad, to pozivanje makroa sa promenom vrednosti ćelija može da bude poprilično nezgrapno. Morao bi da koristiš neki event, a pošto je excel poprilično ograničen sa eventima, jedino što mi pada napamet jeste da koristiš change event worksheeta, pa da proveravaš da li je Target onaj koji treba da bude i onda izvršiš neku akciju. No, oko ovoga ne mogu da ti pomognem, jer naprosto excel nikada nisam koristio za event driven programiranje.

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-8.sezampro.rs.

+2 Profil

Re: pomoc oko menjanja mesta

^{10.04.2011. u 18:14 - pre 158 meseci}

Hvala na pomoci, ali to nece raditi, ja oko excell znam poprilicno dobro, ne extra ali poprilicno. Meni treba VB kod! Jer se u A3 i C3 upisuju razliciti brojevi. Ako primecujes radi se o programu za izracunavanje dimenzija prozora i prozorskih krila! E sad kad se u A22 unese kao sto je sad 1200 a u C23 izabere da je glavno krilo na kome je rucka za otvaranje odnosno slovo R da moze u C3 da se upise broj odnosno dimenzija Desnog dela prozora a A3 da izracuna ostatak od A22-C3 i obrnutoi kada se C23 izabere slovo L da u A3 upise sirina kolika se zeli a da C3 izracuna A22-A3! To ne moze sa funkcijom jer bi prilikom unosa broja funcija bi se obrisala!
E sad ja sam gledao ali odprilike da sam pogresio koji fajl treba da posaljem tako da vam ovaj put sigurno saljem pravi dokument! Hvala!

Prikačeni fajlovi

Book1.xlsx - 42.7k

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pomoc oko menjanja mesta

^{10.04.2011. u 19:13 - pre 158 meseci}

Aha, pa može i to da se reši sa formulama, samo treba malo mašte :) Iskoristi jednu ćeliju koja će sadržati širinu glavnog okna. Recimo, ta ćelija može biti A2 koju ne koristiš ni za šta. Ako ne želiš da ta ćelija bude vidljiva u štampi, jednostavno stavi da tekst u njoj bude bele boje. Onda u A3 staviš sledeću formulu

Code:
=IF(AND(E8>0,A22>0,C23="L"),A2,IF(AND(E8>0,A22>0,C23="R"),A22-C3,0))

a u C3

Code:
=IF(AND(E8>0,A22>0,C23="R"),A2,IF(AND(E8>0,A22>0,C23="L"),A22-A3,0))

I sad, sve što treba da uradiš jeste da u C23 upišeš R ili L, a u A2 upišeš širinu glavnog okna, a A3 i C3 će se sami izračunati na osnovu formula. Jeste možda malo čudno rešenje, ali kad rešiš da ovako nešto radiš u excelu, korišćenje workarounda je neizbežno. Može naravno i da se napravi makro koji bi to radio, tj. da se na promenu vrednosti određenog polja pokrene isti, ali onda ulećeš u event driven programiranje u kome excel baš nije šampion, naprotiv.

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-8.sezampro.rs.

+2 Profil

Re: pomoc oko menjanja mesta

^{10.04.2011. u 21:33 - pre 158 meseci}

jeste to ok ali nije lepo jer onda nece korisnik moci da vidi sta unosi jer su slova bela, ai da se stavi van stampanog dela, nije bas estetski! Jeste to resenje, nisam se toga ni setio, ali nije naj korisnije!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pomoc oko menjanja mesta

^{10.04.2011. u 21:50 - pre 158 meseci}

Ok, onda sa kodom. Otvori VBA editor i stavi ovaj kod u Sheet1

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Me.Range("C23").Value = "R" Then
        Me.Range("A3").Value = Me.Range("A22").Value - Me.Range("C3").Value
    ElseIf Me.Range("C23").Value = "L" Then
        Me.Range("C3").Value = Me.Range("A22").Value - Me.Range("A3").Value
    Else
        MsgBox "Vrednost celije C23 mora biti R ili L", vbCritical, "Greska"
    End If
End Sub

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-8.sezampro.rs.

+2 Profil

Re: pomoc oko menjanja mesta

^{10.04.2011. u 23:06 - pre 158 meseci}

prijavljuje mi gresku! Kad menjal L ili R

Prikačeni fajlovi

greska1.jpg - 168.68k

greska2.jpg - 46.91k

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pomoc oko menjanja mesta

^{11.04.2011. u 15:31 - pre 158 meseci}

Hm, proveri da ti nije neka ćelija zaključana, recimo C3.

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-8.sezampro.rs.

+2 Profil

Re: pomoc oko menjanja mesta

^{11.04.2011. u 16:30 - pre 158 meseci}

bila je zakljucana ali cak i posle toga ako u radu promenim l ili r on izbaciu opet istu gresku! Jel kod tebe sve ok? cak mi resetuje excell a posle reseta izbacuje opet onaj prozor sa end i debug, a zatim i "not enough system resouces to dispay completey"

_{[Ovu poruku je menjao ivan.985 dana 11.04.2011. u 17:42 GMT+1]}

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pomoc oko menjanja mesta

^{11.04.2011. u 16:42 - pre 158 meseci}

Kod mene šljaka ok, ali sam ja isprobao to u Office 2003 verziji, a ti verovatno koristiš 2007 ili 2010, pa je možda do toga (mada ne bi trebalo). U svakom slučaju, pogledaj da još neka ćelija nije zaključana. Ili, evo ti fajl koji kod mene radi (u xls formatu je), pa vidi da li i kod tebe radi kako treba.

Prikačeni fajlovi

Book1.xls - 67k

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-8.sezampro.rs.

+2 Profil

Re: pomoc oko menjanja mesta

^{11.04.2011. u 17:37 - pre 158 meseci}

radi extra. Ali sto meni nece onda, sve su celije koje se koriste u kodu otkljucane! da ga ne remeti ovaj kod koji imam sheetu

Option Explicit
Private Sub OptionButton1_Click()
With Worksheets("1K-OK-1O")
.Shapes("image1").Visible = True
.Shapes("image2").Visible = False
.Shapes("image3").Visible = False
.Shapes("image4").Visible = False
End With
End Sub
Private Sub OptionButton2_Click()
With Worksheets("1K-OK-1O")
.Shapes("image1").Visible = False
.Shapes("image2").Visible = True
.Shapes("image3").Visible = False
.Shapes("image4").Visible = False
End With
End Sub
Private Sub OptionButton3_Click()
With Worksheets("1K-OK-1O")
.Shapes("image1").Visible = False
.Shapes("image2").Visible = False
.Shapes("image3").Visible = True
.Shapes("image4").Visible = False
End With
End Sub
Private Sub OptionButton4_Click()
With Worksheets("1K-OK-1O")
.Shapes("image1").Visible = False
.Shapes("image2").Visible = False
.Shapes("image3").Visible = False
.Shapes("image4").Visible = True
End With
End Sub

ili mozda ovaj koji imam u "this woorkbook"

Private Sub Workbook_Open()

Dim Cell As Range, Sht As Worksheet

For Each Sht In Worksheets
For Each Cell In Sht.UsedRange
If Cell.Locked = False Then Cell.Value = ""
Next Cell
Next Sht
End Sub

Ovaj kod mi brise sve unlock celije! Da bi mi sheet bio prazan pri paljenju!

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pomoc oko menjanja mesta

^{11.04.2011. u 17:48 - pre 158 meseci}

Može da bude. Taj tvoj kod menja dosta ćelija, što verovatno uzrokuje da change event sa sve onim kodom opali dosta puta, pa to može da stvori probleme. Zato sam i rekao da je excel nezgrapan za event driven programiranje. Uglavnom, ne može se znati tačno šta je problem. Probaj da ukloniš taj tvoj kod sa petljom čisto probe radi, pa vidi šta se dešava. Ako je on problem, onda suspenduj change event dok tvoja petlja radi i to bi trebalo da reši problem.

Odgovor na temu

ivan.985
Petrovic Ivan
Izradjivac PVC I AL Stolarije
Kolubara Gradjevinar D.O.O
Lajkovac

Član broj: 149219
Poruke: 199
*.adsl-a-8.sezampro.rs.

+2 Profil

Re: pomoc oko menjanja mesta

^{11.04.2011. u 21:26 - pre 158 meseci}

nece i bog. Kad ga stavim u ovaj sto sam ti okacio, a otkljucam sve celije onda radi. A kad ga stavim u ovaj koji mi treba i otkljucam celije i pobrisem sve vb kodove, on nece! evo kacim ti ovaj koji mi treba pa ti vidi, u pitanju je treci sheet i peti oni treba da rade na istom principu! mora da bude u ovoj ekstenziji jer ne mogu da ga sacuvam u drugoj zbog VB kodova! Ne da mi Excell, a inace je 2007!

Prikačeni fajlovi

Krojna lista.xlsm - 348.56k

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pomoc oko menjanja mesta

^{12.04.2011. u 02:45 - pre 158 meseci}

Pa ne znam, kod mene radi i ovaj što si okačio kad dodam kod. Evo probaj.

Prikačeni fajlovi

test.xls - 475k

Odgovor na temu