[es] - Linkovanje na radnu svesku

jaskojsako
BIH

Član broj: 141632
Poruke: 224
..a02:f790:4984:91ec:ece0:b3d5

+4 Profil

^{17.06.2023. u 16:10 - pre 10 meseci}

Pozdrav
jedno pitanje,da li se moze napraviti ,da se napravi jedna radna sveska za artikle,druga radna sveska za klijente a da se sa trece radne sveske povlace klijenti i artikli .
Ja trenutno povlacim artikle preko userforme na kojoj imam combox na osnovu odabira naziva popunjavam texboxove na userformi, (artikli su u istoj radnoj svesci) da li se moze povuci sa druge radne sveske,kao sto sad povlaci sa iste radne sveske.
Trebalo bi mi,jer sam planirao da koristim artikle i klijente zasebno da bi mogao povuci i iz drugih radni sveski po potrebi.
Nadam se da cete razumjeti pitanje.
Ako ko ima primjer bio bi zahvalan.

Jasmin

Odgovor na temu

ib.kroki
Beograd

Član broj: 188338
Poruke: 805
*.dynamic.isp.telekom.rs.

+36 Profil

Re: Linkovanje na radnu svesku

^{17.06.2023. u 17:14 - pre 10 meseci}

Ako sam te dobro razumeo možeš sa Vlookup povlačiti informacije iz druge radne sveske.

Primer, ako u jednom fajlu želiš povući šifre iz fajla Sifre.xlsx koji se nalazi direktno na disku C, iskoristi 'C:\[Sifre.xlsx]Sheet1'!$A$1:$B$3 za pozivanje tabele odakle čitaš podatke.

Code:
=VLOOKUP(A1;'C:\[Sifre.xlsx]Sheet1'!$A$1:$B$3;2;FALSE)

Zvoni, kucanje ne radi ...

Odgovor na temu

jaskojsako
BIH

Član broj: 141632
Poruke: 224
..a02:f790:4984:91ec:ece0:b3d5

+4 Profil

Re: Linkovanje na radnu svesku

^{17.06.2023. u 20:15 - pre 10 meseci}

Hvala na odgovoru,ali mi ne odgovara preko Vlookup funkcije.
Ovako ide meni kod trenutno kad povlacim iz lista unutar radne sveske.

Code:

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex >= 0 Then
TextBox1.Text = _
Sheets("dijelovi").Cells(ComboBox1.ListIndex + 2, 1).Value

TextBox2.Text = _
Sheets("dijelovi").Cells(ComboBox1.ListIndex + 2, 2).Value
..........................................................

Private Sub UserForm_Initialize()
ComboBox1.SetFocus
ComboBox1.RowSource =Sheets("dijelovi").Name & "!B2:B5000"
End Sub

Moze li se ovdje preurediti kod da dohvati sa drugog radnog lista.

Jasmin

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
*.dynamic.isp.telekom.rs.

Sajt: www.gowi.rs

+109 Profil

Re: Linkovanje na radnu svesku

^{18.06.2023. u 10:26 - pre 10 meseci}

Probaj da pozoveš tu drugu radnu svesku prilikom inicijalizacije UserForm. Npr

Code:
Private Sub UserForm_Initialize()
' Populate combo for another workbook
ComboBox1.List = Workbooks("Test.xlsx").Worksheets("dijelovi").Range("B2:B5000").Value
End Sub

Pošto radna sveska treba da je otvorena, ako ti ne treba na drugom mestu možeš da je otvoriš (skrivenu za korisnika) u proceduri inicijalizacije forme

Code:
Private Sub UserForm_Initialize()
    ' Load list for combo
    '
    ' Otvaranje radne sveske sa podacima za combo u pozadini kao read only
     Application.ScreenUpdating = False
     Set wbSource = Workbooks.Open("C:\Folder\Test.xlsx", _
                     False, True)
     ' Vredosti za combo
     ListItems = wbSource.Worksheets("dijelovi").Range("B2:B5000").Value
     ' Zatvaranje radne sveske bez cuvanja
     wbSource.Close False
     Set wbSource = Nothing
     Application.ScreenUpdating = True
     With Me.ComboBox1
        .Clear ' remove existing entries from the listbox
        .List = ListItems
     End With
End Sub

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

Odgovor na temu

jaskojsako
BIH

Član broj: 141632
Poruke: 224
..a00:f6d0:1d9d:2311:941e:b298

+4 Profil

Re: Linkovanje na radnu svesku

^{18.06.2023. u 11:59 - pre 10 meseci}

Hvala na odgovoru Jpeca
ovaj dio mi odgovara (Private Sub UserForm_Initialize()),kad sam ubacio nove probne artikle ucitao je i njih,i ovo radi kako treba,
medjutim kako izmjeniti kod da se textboxovi popune odabirom combox .

Code:

If ComboBox1.ListIndex >= 0 Then
TextBox1.Text = _
Sheets("dijelovi").Cells(ComboBox1.ListIndex + 2, 1).Value

TextBox2.Text = _
Sheets("dijelovi").Cells(ComboBox1.ListIndex + 2, 2).Value

Code:

hvala

Jasmin

Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2268
*.dynamic.isp.telekom.rs.

Sajt: www.gowi.rs

+109 Profil

Re: Linkovanje na radnu svesku

^{18.06.2023. u 22:05 - pre 10 meseci}

Teško mi je da ispratim tačno šta treba da se dešava bez primera.

Probaj da proceduri inicijalizacije popuniš globanu promenljivu (varijant, definisanu u glavnom modulu kao public) iz kolone 1 i 2 lista dijelovi, pa da se onda refenciraš na te nizove u događaju ComboBox1_Change() za popunu text box, umesto na list iz druge radne sveske. Ako je drugi niz iz kolone 2 kao i combobox (?) možeš koristiti vrednosti iz comboboxa

Napravio sam neki primer, pa pogledaj prilog

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

Prikačeni fajlovi

InitComboFromAnotherWB.xlsm - 22.09k

Odgovor na temu