[Excel] Pristup različitim listovima iz forme

[Excel] Pristup različitim listovima iz forme 24.07.2007. u 10:40 · pre 234 meseca #1

[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).

Probaforme.xls46k

Re: [Excel] Pristup različitim listovima iz forme 24.07.2007. u 11:23 · pre 234 meseca #2

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

Potpis

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

Re: [Excel] Pristup različitim listovima iz forme 25.07.2007. u 13:33 · pre 234 meseca #3

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

Re: [Excel] Pristup različitim listovima iz forme 25.07.2007. u 14:27 · pre 234 meseca #4

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

Potpis

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

Re: [Excel] Pristup različitim listovima iz forme 25.07.2007. u 18:28 · pre 234 meseca #5

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

Re: [Excel] Pristup različitim listovima iz forme 26.07.2007. u 08:15 · pre 234 meseca #6

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

Potpis

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

ProbaForme.xls54k

Re: [Excel] Pristup različitim listovima iz forme 08.12.2007. u 14:24 · pre 230 meseci #7

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.

Re: [Excel] Pristup različitim listovima iz forme 08.12.2007. u 16:52 · pre 230 meseci #8

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

Potpis

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

Forum kao aplikacija na telefonu

Srodne teme