[es] - [Excel] Pristup različitim listovima iz forme

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.zastava-automobili.com.

+2 Profil

[Excel] Pristup različitim listovima iz forme

^{24.07.2007. u 09:40 - pre 203 meseci}

[Excel] Imam 2 pitanja u vezi Forme u Excelu

1. Kko mogu istu formu (npr.UserForm1) koristiti za popunjavanje 2 ili vise radnih
listova npr Unos, pa zatim Unos2...., ili moram za svaki radni list imati drugu
formu i modul?
2. Kako da prepravim kod u prilogu da bi mi se podaci kopirali uvek u iste celije
(A1 i B1).

Prikačeni fajlovi

Probaforme.xls - 46k

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Pristup različitim listovima iz forme

^{24.07.2007. u 10:23 - pre 203 meseci}

1/ Umesto

Code:
ActiveCell.Value = TextBox1.Value

navodiš punu adresu npr.

Code:
ActiveWorkbook.Sheets("Unos").Range("A1").Value =TextBox1.Value
ActiveWorkbook.Sheets("Unos2").Range("A1").Value =TextBox2.Value

(nije potrebno da selektuješ ćeliju da bi promenio vrednost iz koda!). U vezi pristupa ćeliji pogledaj i uvodni deo odgovora http://www.elitesecurity.org/t246081-0#1480006

2/ Ne treba ti petlja do...loop koja traži prvu praznu ćeliju u proceduri na klik OK. Jednostavno:

Code:

Private Sub cmdOK_Click()
    With ActiveWorkbook.Sheets("Unos")
      .Range("A1").Value = Me.TextBox1.Value
      .Range("B1").Value = Me.ComboBox1.Value
     End With
End Sub

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

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.co.yu.

+2 Profil

Re: [Excel] Pristup različitim listovima iz forme

^{25.07.2007. u 12:33 - pre 203 meseci}

Za prvo pitanje nisam siguran da se razumemo. Kod koji si mi poslao funkcionise, ali ja sam mislio na sledece:
- Ne radi se o popunjavanju 2 ili vise listova istim podacima (istovremeno) vec razlicitim.
- Znaci koristio bih istu Formu za popunjavanje 2 lista, ali razlicitim podacima. Prvo kad startujem Formu izvrsim unos i ti podaci se ispisu u listu 1. Onda ponovo startujem istu formu, ubacim druge podatke, a oni se sada ispisu u listu 2....
Sto se tice drugog pitanja to je OK.
Hvala

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Pristup različitim listovima iz forme

^{25.07.2007. u 13:27 - pre 203 meseci}

Treba da dodaš još jednu kontrolu na formi u kojoj ćeš da biraš koji list unosiš.
Kod ostaje manje-više isti. Zavisno od unetog u tu kontrolu menjaš list. Npr. neka imaš kombo box sa nazivima listova.
Kombo možeš da popuniš u događaju OnLoad forme na sledeći način:

Code:

' Dodatak na postojeci kod
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
       Me.cmbList.AddItem sh.Name
    Next sh
    Me.cmbList.Value = Sheets(1).Name ' Default

Sad na klik dugmeta OK izmeniš da se koristi izabrani list

Code:

Private Sub cmdOK_Click()
    With ActiveWorkbook.Sheets(Me.cmbList.Text)
      .Range("A1").Value = Me.TextBox1.Value
      .Range("B1").Value = Me.ComboBox1.Value
   End With
End Sub

_{[Ovu poruku je menjao Jpeca dana 25.07.2007. u 14:39 GMT+1]}

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

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.co.yu.

+2 Profil

Re: [Excel] Pristup različitim listovima iz forme

^{25.07.2007. u 17:28 - pre 203 meseci}

Mozda sam malo dosadan, ali ako moze jos malo pomoci u vidu prikacenog primera (ispravljen moj primer). Puno bi mi znacilo.

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Pristup različitim listovima iz forme

^{26.07.2007. u 07:15 - pre 203 meseci}

Možda te je zbunilo cmbList - tako sam ja nazvao novu kontrolu na formi - izbegavam da koristim ComboBox1, ComboBox2, ovako je malo više opisno. U svakom slučaju primer ti je prikačen

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

Prikačeni fajlovi

ProbaForme.xls - 54k

Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
89.216.234.*

+2 Profil

Re: [Excel] Pristup različitim listovima iz forme

^{08.12.2007. u 13:24 - pre 199 meseci}

Kako bih mogao da ogranicim da mi se u cmbList ne pojavljuju svi listovi vec samo oni koje ja hocu. Na primer imam 5 listova (svi su u nekoj funkciji), ali ja hocu da iz forme vrsim unos samo u neka tri. Znaci u cmbList da budu samo tri lista, a ne svi listovi koliko ih ima u radnoj svesci.

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] Pristup različitim listovima iz forme

^{08.12.2007. u 15:52 - pre 199 meseci}

Kod koji dodaje stavke na listu comboboxa je

Code:

Me.cmbList.AddItem "ListX"

Gde je ListX naziv lista koji se dodaje. Dakle umesto petlje For ... Eeach u gornjem primeru dodaš prethodni kod u doga]aju OnLoad forme za onoliko i one listove koje želiš.

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

Odgovor na temu