Excel - vyhledavani na zaklade vice vstupu Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

mirakos
nováček
Příspěvky: 4
Registrován: leden 09
Pohlaví: Nespecifikováno
Stav:
Offline

Excel - vyhledavani na zaklade vice vstupu

Příspěvekod mirakos » 26 led 2009 16:15

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

Reklama
navstevnik
Level 4
Level 4
Příspěvky: 1142
Registrován: srpen 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - vyhledavani na zaklade vice vstupu  Vyřešeno

Příspěvekod navstevnik » 26 led 2009 19:03

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

mirakos
nováček
Příspěvky: 4
Registrován: leden 09
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - vyhledavani na zaklade vice vstupu

Příspěvekod mirakos » 28 led 2009 08:05

Diky, to je presne ono :wink:
Jen jsem to poupravil at je to v ramci jednoho Workbooku

Jeste jednou DIK

Uživatelský avatar
mike007
Master Level 7.5
Master Level 7.5
Příspěvky: 5860
Registrován: srpen 07
Bydliště: Pardubice
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Excel - vyhledavani na zaklade vice vstupu

Příspěvekod mike007 » 28 led 2009 10:17

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

JarZa
nováček
Příspěvky: 25
Registrován: únor 08
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Excel - vyhledavani na zaklade vice vstupu

Příspěvekod JarZa » 06 úno 2009 14:21

jde to i pomocí maticových vzorců, viz příklad v příloze
Přílohy
PC_Help_20090206.xls
(19 KiB) Staženo 57 x


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Tisk více excel souborů najednou.
    od Myerina » 17 dub 2024 17:42 » v Kancelářské balíky
    2
    3447
    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
    3030
    od Zivan Zobrazit poslední příspěvek
    04 led 2024 09:42
  • EXCEL -jak otevřít 2 excel sobory abych je viděla současne a samostatně
    od Ketty02 » 30 srp 2024 21:19 » v Vše ostatní (sw)
    2
    2034
    od Riviera kid Zobrazit poslední příspěvek
    02 zář 2024 16:21
  • Více separátních ploch ve WIN11
    od Speed_dead » 01 kvě 2024 09:09 » v Windows 11, 10, 8...
    13
    5889
    od Speed_dead Zobrazit poslední příspěvek
    19 čer 2024 19:43
  • Jak přidám více monitorů do mini Windows PC.
    od holatir427 » 06 lis 2023 13:59 » v Problémy s hardwarem
    8
    2097
    od mmmartin Zobrazit poslední příspěvek
    04 led 2024 11:27

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 4 hosti