Zdravim,
potreboval bych poradit, mam dva sesity nasledujiciho formatu
Sesit1
Datum, Var. symbol, neco, neco
Sesit2
Neco, neco, Datum, Var. symbol, neco, neco
A potrebuji do Sesitu1 dotahnout hodnotu z sloupce x ze Sesitu2, samozrejme pro dany datum a variabilni symbol ze sesitu 1.
Pres s vyhledat to nepujde, tam lze hledat jen jednu hodnotu.
Diky za pomoc
Mira
Excel - vyhledavani na zaklade vice vstupu Vyřešeno
-
- Level 4
- Příspěvky: 1142
- Registrován: srpen 08
- Pohlaví:
- Stav:
Offline
Re: Excel - vyhledavani na zaklade vice vstupu Vyřešeno
nize je procedura VBA ( v nejnutnejsim rozsahu, muzes doplnit o odstraneni promennych z pameti,..), zadej cestu a soubor ve kterem je vyhledavano, uprav pripadne adresy sloupcu s VS a zadej ofsety doplnovaneho sloupce pro oba sesity
Kód: Vybrat vše
Option Explicit
Sub VyhledatDoplnit()
Dim Wbk2 As Workbook, Wsht2 As Worksheet, VarS2 As Range, VCll2 As Range, firstAddress As String
Dim VarS1 As Range, VCll1 As Range
'
With ActiveSheet ' aktivni list v doplnovanem sesitu
Set VarS1 = .Range(.Range("B2"), .Range("B2").End(xlDown)) ' blok bunek s var symbolem
End With
'otevrit sesit 2
On Error GoTo Err1
Set Wbk2 = Workbooks.Open("Disk:\cesta\soubor.xls") 'cesta soubor
Set Wsht2 = Wbk2.Worksheets("list1") ' prohledavany list
With Wsht2
Set VarS2 = .Range(.Range("D2"), .Range("D2").End(xlDown)) ' blok bunek s var symbolem
End With
' vyhledat v sesitu 2 a doplnit do sesitu 1
For Each VCll1 In VarS1.Cells
With VarS2
' vyhledat v sesitu 2
Set VCll2 = .Find(VCll1, LookIn:=xlValues, LookAt:=xlWhole)
If Not VCll2 Is Nothing Then ' nalezen VS
firstAddress = VCll2.Address
Do
If VCll2.Offset(0, -1).Value = VCll1.Offset(0, -1).Value Then ' shoda data
' doplnit do sesitu 1
VCll1.Offset(0, 4).Value = VCll2.Offset(0, 8).Value ' ofsety sloupcu zadat dle pozadavku
End If
Set VCll2 = .FindNext(VCll2)
Loop While Not VCll2 Is Nothing And VCll2.Address <> firstAddress
End If
End With
Next VCll1
Wbk2.Close
Exit Sub
Err1:
MsgBox "Chybna cesta nebo nazev souboru."
End Sub
Re: Excel - vyhledavani na zaklade vice vstupu
Diky, to je presne ono
Jen jsem to poupravil at je to v ramci jednoho Workbooku
Jeste jednou DIK
Jen jsem to poupravil at je to v ramci jednoho Workbooku
Jeste jednou DIK
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Re: Excel - vyhledavani na zaklade vice vstupu
mirakos: Příště prosím označ vlákno za vyřešené. Dnes jsem to udělal za tebe...
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
Re: Excel - vyhledavani na zaklade vice vstupu
jde to i pomocí maticových vzorců, viz příklad v příloze
- Přílohy
-
- PC_Help_20090206.xls
- (19 KiB) Staženo 56 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 2
- 1197
-
od Myerina
Zobrazit poslední příspěvek
20 dub 2024 11:36
-
-
excel text na konec více řádků najednou Příloha(y)
od Myerina » 03 led 2024 11:51 » v Kancelářské balíky - 5
- 1295
-
od Zivan
Zobrazit poslední příspěvek
04 led 2024 09:42
-
-
-
Google vyhledávání-reCaptcha Příloha(y)
od ski1961 » 23 kvě 2023 16:58 » v Internet a internetové prohlížeče - 4
- 2397
-
od kecalek
Zobrazit poslední příspěvek
24 kvě 2023 14:59
-
-
-
Vyhledávání z adresní řádky - chyba (Chrome) Příloha(y)
od pikaso.andreas » 23 říj 2023 14:34 » v Internet a internetové prohlížeče - 1
- 2722
-
od rhsCZ
Zobrazit poslední příspěvek
25 říj 2023 19:55
-
-
- 9
- 1524
-
od atari
Zobrazit poslední příspěvek
11 kvě 2024 21:53
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti