MS Excel

Pokusil jsem se o to, ale nejde mi to - myslíte, že byste mohl kouknout na celé to makro, které mám a případně mi to tam doplnit?
ještě jednou díky moc za pomoc..
Pavel

Sub RunBut_Click()
Dim SourceBook As Workbook
Dim TargetSheet As Worksheet
Dim SRow, TRow, TargetNameRow, SheetIndex As Integer
Dim FromDate, ActDate As Date
Dim Company As String
Dim Correct As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False

Set TargetSheet = Sheets("Souhrn")
FromDate = Cells(2, 3)

TargetSheet.Activate
TRow = 2
While Not IsEmpty(TargetSheet.Cells(TRow, 1))
TargetSheet.Rows(TRow).Clear
TRow = TRow + 1
Wend

TargetNameRow = 2
TRow = 2

While Not IsEmpty(Cells(TargetNameRow, 1))
Company = Cells(TargetNameRow, 2)
Correct = Cells(TargetNameRow, 4)
Workbooks.Open Cells(TargetNameRow, 1), UpdateLinks:=False, ReadOnly:=True
Set SourceBook = Application.ActiveWorkbook
For SheetIndex = 1 To SourceBook.Sheets.Count

SRow = 4
While Not IsEmpty(SourceBook.Sheets(SheetIndex).Cells(SRow, 1))

If ActDate >= FromDate And SourceBook.Sheets(SheetIndex).Cells(SRow, 11) <> 0 Then
SourceBook.Sheets(SheetIndex).Activate
ActiveSheet.Rows(SRow).Copy
TargetSheet.Activate
ActiveSheet.Rows(TRow).PasteSpecial Paste:=xlPasteValues
ActiveSheet.Rows(TRow).PasteSpecial Paste:=xlPasteFormats
ActiveSheet.Cells(TRow, 16).Value = Company
ActiveSheet.Cells(TRow, 17).Value = Correct

TRow = TRow + 1
End If
SRow = SRow + 1
Wend
Next SheetIndex

Application.DisplayAlerts = False
SourceBook.Close
Application.DisplayAlerts = True

TargetNameRow = TargetNameRow + 1
Wend

TargetSheet.Cells(2, 1).Select

Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox ("Hotovo!!")
End Subcitovat

Dobrý den,

jak jsem psal - jsem spíš začátečník, takže jsem se snažil to udělat tak, aby to fungovalo - bez ohledu na rychlost :)
- cílem je, aby to následně fungovalo pod správou lidí, kteří nemají s excelem (a s vba už vůbec ne) moc velké zkušenosti, takže asi spíš makro než power query.
Jinak jak jste psal, že nemáte k dispozici soubory, tak všechny ty primární soubory budou mít +/- stejnou strukturu - každý soubor bude obsahovat list Souhrn, který je nejdůležitější a list souhrn bude mít vždy stejnou strukturu. Protože ale ještě nevim určitě, jestli některý z těch sloupců nebude obsahovat datum, tak jsem tam dal kopírování formátů buněk..zkusil jsem pustit to makro, které jste poslal a bohužel mi to spadlo - konkrétně na řádku "S = .Cells(4, 1).Resize(SRow, 15).Value 'Načítanie hodnôt zo zdrojového listu".
Myslíte, že byste na to mohl ještě kouknout, jestli tam není nějaká chyba? Bez ohledu na to, kolik souborů si vyberu na listu štart, tak makro mi padá...
Ještě jednou díky
Pavelcitovat

Dobrý den,

máte pravdu - omluva :). všechny zdrojové soubory budou obsahovat list souhrn (viz.příloha) a obsažená data budou začínat na řádku 4.
Soubor, který bude data konsolidovat by měl mít hlavičku na řádku 1 a strukturu listu stejnou..
díky
Pavelcitovat

Dobrý den,

Skvělé :-) ..AcDate a FromDate je vlastně už ted zbytečné...myslel jsem,že bude hrát nějakou roli zohlednění konkrétního data, ke kterému soubory konsoliduju, ale dozvěděl jsem se, že to nebude potřeba, takže to můžete klidně odstranit...
díky

Pavelcitovat

Dobrý den,
funguje to krásně - díky moc..
Můžu poprosit ještě o radu/tip - mohl byste mi doporučit nějakou knihu/učebnici o programování vba? Něco sice vím, ale stejně :)
Ještě jednou díky a kdybych se Vám mohl nějak revanšovat, tak stačí říct
P.citovat