< návrat zpět

MS Excel


Téma: Získání dat z několika listů pomcí VBA rss

Zaslal/a 7.7.2018 9:54

Zdravím,

pracuji na možnosti reportovat data z celého sešitu na jediném listu "reporting" kde pomocí tlačítka aktualizuji vše co potřebuji ve zbylých sešitech najít a vizualizovat (celý kód níže).

Problém nastává ve chvíli, když nechci aby akce "For each ws in ActiveWorkbook.Worksheets" zahrnula i 2 listy "Reporting", "Vstupy". Zkoušel jsem tyto listy obejít podmínkami If, ale bez úspěchu.

Dokázali byste prosím poradit jak udělit tuto vyjímku? Když název listu "Reporting" nebo "Vstupy" - přeskočit tyto listy?

Sub Reporting()

Dim ws As Worksheet, myCounter
Dim erowDat, erowInv, erowRez, erowDdhm, myDat, myInv, myRez, myDdhm As Long

For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws

Sheets("Reporting").Range("B2:E100").Select
Selection.ClearContents

For Each ws In Sheets

myCounter = 1
ws.Select


myInv = ws.Range("I1").Value
myRez = ws.Range("I2").Value
myDdhm = ws.Range("I3").Value
myDat = ws.Range("I4").Value


Worksheets("Reporting").Select
'ws.Range("I4").Select

erowInv = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erowInv, 2) = myInv

erowRez = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erowRez, 3) = myRez

erowDdhm = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erowDdhm, 4) = myDdhm

erowDat = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Offset(1, 0).Row
ActiveSheet.Cells(erowDat, 5) = myDat

Next ws
End Sub

Zaslat odpověď >

#040896
avatar
Trochu fištrónu do toho kódování...

ws.select versus ActiveSheet.. zbytečná věc, rovnou pracujte s ws, přeci.. a kdybyste tohle věděla, tak už pak docvakne možnost testování na ws.name a vyřazení ze zpracování, je to tak?

A koukněte se i na syntaxi With..End With.citovat
#040898
elninoslov
2 rôzne návrhy. Zapnite si prípadne, ak chcete naozaj tie listy odkrývať, lebo na vytiahnutie dát to nieje potrebné.
A napadol ma ďalší návrh, keď by sa aktualizovali nie hodnoty, ale vzorce, ktoré by udržovali stále aktuálne hodnoty v daných listoch. Riešení je veľa. Dáta som si vymyslel.
Příloha: zip40898_reporting.zip (23kB, staženo 18x)
citovat
#040904
avatar
Super, díky za rady!citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

VBA Kopie listu s makry.

jnkopr • 15.11. 11:16

hodnota na měnu

kolouch • 15.11. 10:57

Makro - přenos dat z jednoho souboru do druhého

lugr • 15.11. 10:55

VBA Kopie listu s makry.

jnkopr • 15.11. 10:02

hodnota na měnu

mepexg • 15.11. 9:46

hodnota na měnu

jardik • 15.11. 9:40

Makro - přenos dat z jednoho souboru do druhého

mepexg • 15.11. 9:38