Makro výpis hodnot na jiném listu

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

Moderátor: Mods_senior

joczko1
nováček
Příspěvky: 3
Registrován: prosinec 13
Pohlaví: Nespecifikováno
Stav:
Offline

Makro výpis hodnot na jiném listu

Příspěvekod joczko1 » 07 pro 2013 19:44

Dobrý den,

měl bych malou prosbu o tvorbu makra, které vykopíruje hodnoty z jednoho listu na jiný list podle stanoveného filtru.
Popř. jestli to nejde udělat jiným způsobem než za pomocí makra - v VBA se bohužel moc neorientuji :(
Detailnější popis v příloze.

Děkuji za pomoc
Přílohy
Makro filtr výpis hodnot.xlsx
(15.9 KiB) Staženo 48 x

Reklama
joczko1
nováček
Příspěvky: 3
Registrován: prosinec 13
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Makro výpis hodnot na jiném listu

Příspěvekod joczko1 » 10 pro 2013 11:14

Trochu jsem pokročil, ale stále to není ono.

Tlačítko "Zobraz opravy"
Když dám do řádku 2 podmínky (měsíc i druh nákladu - v kódu to tučné), tak mi nevyjedou žádné hodnoty.
Když v řádku nechám pouze
If Cells(I, "D").Value = Mesic Then
Tak mi to vypíše všechny druhy nákladů za daný měsíc. Ale nedaří se mi zkombinovat tyto 2 podmínky dohromady.

Poradíte prosím? Díky.

Sub OpravyXX()

Dim Mesic As String, X As Integer
Mesic = Sheets("Prehled").Range("B3")
X = 2
For I = 1 To 100
Sheets("Data").Select
If Cells(I, "D").Value = Mesic And Cells(I, "A").Value = Opravy Then
Radek = ActiveCell.Row
Sheets("Data").Rows(Radek).Select
Selection.Copy
X = X + 1
Sheets("Výpis hodnot").Cells(X, "A").Select
ActiveSheet.Paste
End If
Next I

End Sub
Přílohy
Makro filtr výpis hodnot – pokus 2.xlsm
(25.06 KiB) Staženo 42 x

Azuzula
Level 3
Level 3
Příspěvky: 452
Registrován: leden 12
Bydliště: Země, bohužel...
Pohlaví: Žena
Stav:
Offline
Kontakt:

Re: Makro výpis hodnot na jiném listu

Příspěvekod Azuzula » 10 pro 2013 13:44

Dobrý den.
Vítám Vás na PC-HELP.

Mejspíš to bude tím, že proměnná Opravy je prázdná. Musíte ji naplnit stejně jako proměnnou Měsíc. Snad to bude jako nápověda stačit.
Pokud je to vše.
Vše co znám z VBA jsem se naučila tady na fóru, na Office.lasakovi, david-zbiral.cz a hlavně hledáním na googlu.
SZ není poradna, na pokládání dotazů je tu fórum. Děkuji.

lubo.
Level 2
Level 2
Příspěvky: 192
Registrován: červen 13
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Makro výpis hodnot na jiném listu

Příspěvekod lubo. » 10 pro 2013 16:56

Zkus něco takového:

Kód: Vybrat vše

Sub OpravyXX()
Dim Mesic As String, X As Integer
   
   Mesic = Sheets("Prehled").Range("B3")
   X = 2
   With Sheets("Data")
      For I = 1 To 100
         If .Cells(I, "D").Value = Mesic And .Cells(I, "A").Value = "Opravy" Then
            X = X + 1
            .Rows(I).Copy Destination:=Sheets("Vypis").Rows(X)
         End If
      Next I
   End With
End Sub


Vyber si, V buňce jsou "Opravy" to s čím to porovnáváš by tedy měl být text, buď konstanta nebo konstanta v proměnné.
Ještě by to chtělo dočistit předchozí seznam.

joczko1
nováček
Příspěvky: 3
Registrován: prosinec 13
Pohlaví: Nespecifikováno
Stav:
Offline

Re: Makro výpis hodnot na jiném listu

Příspěvekod joczko1 » 11 pro 2013 09:27

Super, moc díky za tuto modifikaci! Šlape to skvěle! S tím dočištěním předchozího seznamu máte pravdu, to budu muset ještě pořešit.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Porovnání hodnot ve sloupci Příloha(y)
    od luko02420 » 02 srp 2023 14:12 » v Kancelářské balíky
    0
    1515
    od luko02420 Zobrazit poslední příspěvek
    02 srp 2023 14:12
  • Součet hodnot s prázdnou vedlejší buňkou Příloha(y)
    od Karrex » 22 kvě 2023 17:00 » v Kancelářské balíky
    7
    1872
    od elninoslov Zobrazit poslední příspěvek
    23 kvě 2023 22:38
  • Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
    od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky
    2
    1841
    od kalosek Zobrazit poslední příspěvek
    29 čer 2023 19:39
  • Makro pro myš Rapture Python
    od mmmartin » 27 srp 2023 15:18 » v Problémy s hardwarem
    9
    1111
    od mmmartin Zobrazit poslední příspěvek
    29 srp 2023 16:47

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

Kdo je online

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