• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Jiří497
Problém nastane pokud budu chtit posunout cilovou lokaci..
nejake reseni? DĚKUJI

Workbooks("POKUS.xlsm").Worksheets(8).Range("E13:G15").Value = Workbooks("POKUS.xlsm").Worksheets(7).Range("A13:C15").Value

Jiří497
Jasnéé, takto staci. Nedoslo mi ze nemusism kopirovat ale jen odkazovat jak pisete.
Děkuji za nakopnutí

Zdravím
chtěl bych se zeptat proč nelze kopírovat zadefinovanou hodnotu z bunky..? (se Select to funguje ale zas je to pomalé..)

Potřeboval bych aby fungovalo něco jako toto. Nasměruje mě někdo jak to dělat správně..

ZDROJtext = List1.Range("C5").Value

ZDROJtext.Copy

Děkuji

elninoslov
DĚKUJI MOC funguje skvěle už to chááápuu.

tento kod je super:
For i = LBound(strNames) To UBound(strNames)

MsgBox strNames(i)

Next i

Zdravim potrebuji radu jak z provoznit makro viz priloha aby fungovalo? Dokaze nekdo poradit a upravit?
Děkuji

Sub Pokus()

Dim strNames(1 To 4) As String
strNames(1) = "Shelly"
strNames(2) = "Steve"
strNames(3) = "Neema"
strNames(4) = "MERLIN"


For Each Item In strNames
MsgBox strNames()
Next Item

End Sub

Zdravím,
v příloze přidávám praktické vysvětlení syntaxe For Each Next..
Štramáci tady to zkritizujou ale pro začátečníka který netuší že For Each existuje a PROČ by ho měl začít znát si myslím super (osvěčeno v praxi). V příloze porovnání lineárního kodu a kodu ve smyčce For Each.
Čao hezký večer

Děkuji za rady ale myslím že jsem již našel co jsem potřeboval zde:
https://stackoverflow.com/questions/43579513/vba-loop-through-files-in-folder-and-copy-paste-to-master-file

*Jen je potřeba si upravit kus kodu ktery vklada data porad pres sebe tak aby je vkladal za sebe. Pak je to skvělý kod.

MaxR_ZDROJ = Workbooks("xx.xlsm").Worksheets("xx").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("xx.xlsm").Worksheets("xx").Cells(MaxR_ZDROJ + 1, 1).PasteSpecial (xlPasteValues)

Tak jsem asi našel docela dobry reseni:

Sub AllFiles666()
Application.DisplayAlerts = False
Application.EnableCancelKey = xlDisabled
Dim folderPath As String
Dim Filename As String
Dim wb As Workbook
Dim sh As Worksheet
folderPath = "C:\Users\marti\OneDrive\Plocha\ZDROJ" 'contains folder path
If Right(folderPath, 1) <> "\" Then folderPath = folderPath + "\"
Filename = Dir(folderPath & "*.xlsx")
Do While Filename <> ""
Application.ScreenUpdating = False

Set wb = Workbooks.Open(folderPath & Filename)

Range("A1:AA" & Range("A" & Rows.Count).End(xlUp).Row).Copy

'Not working well here as it will be overwritten by the next file
Workbooks("POKUS.xlsm").Worksheets("List1").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteValues

Workbooks(Filename).Close
Filename = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Zdravím,
poradí někdo jak na makro pokud mám odkaz na složku ve která mám X sešitů se stejným formátem dat a já potřebuji ze všech těchto sešitů jeden sešit s tím že se data seřadí pod sebe na jeden list do nově vytvořeného sešitu. Následně ve složce zbyde jen tento nový sešit obsahující veškerá data. Zdrojové sešity se smažou.

Něco jsem našel ale nefunguje to úplně jak bych potřeboval..
https://www.encodedna.com/excel/read-multiple-excel-files-and-merge-data-to-single-file-using-vba.htm

Děkuji za rady

elninoslov
ano, vpodstate jsem si s TC pomohl nevsiml jsem si toho a zrovna mi to chybelo. Jinak jde v podstate hledat v celem liste a soubory a listy nemusi byt rovnake.. takze tak
Děkuji i tak za pomoc elninoslov
hezký víkend

jojo vrtko kluci tady sou mooc sikovni a radi vzdy pomuzou

Jiří497 ajoooo mas naprostou pravdu nevsiml jsem si hned bych vsechno programoval a nepremyslim stydím se DÍKY

elninoslov
pokud možno projít všechny listy souborů s tím že se mohou jmenovat jakkoli.. pokud to tedy půjde.
Tímto způsobem to ulehčí sousty práce s hledáním.. Totalcomander to umí ale klasické složky nee.

Děkuji za pomoc

Hezký den VŠEM
mám prosbu ohledně jednoho makra jestli někdo poradí.

*Makro by mělo po zadání hledaného výrazu a dané cesty kde se soubory nachází vypsat MSGBOX se jménem sešitů a počtem výskytů výrazu.

Viz příloha. Děkuji za rady

Musím říct pánové klobou dolu koukám na všechny vaše řešení a snažím se to pochopit. Jinak konkrétněji:

Jiří497
Děkuji za nápad funguje ale není to tak elegantní jako řešení od elninoslov.

Stalker
Také děkuji za nápad funguje skvěle ale asi bych nedokázal doladit k dokonalosti jako udělal elninoslov.

elninoslov
Řešení je perfektní a po otestování funguje přesně jak jsem si představoval. DĚKUJI MOOOOC skvělééé
*Koukám že noční páteční programování Vám svědčí pánové hezký den

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse