Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další » ... 43
Kopírování hodnoty z bunky (28.7.2020 16:18)

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

Kopírování hodnoty z bunky (26.7.2020 20:19)

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

Kopírování hodnoty z bunky (26.7.2020 19:17)

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

JAN na pole ve VBA (26.7.2020 11:03)

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

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

MsgBox strNames(i)

Next i

JAN na pole ve VBA (26.7.2020 0:01)

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

For Each_ Praktické vysvětlení (24.7.2020 22:30)

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 2 5

Z více souborů jeden (11.7.2020 21:15)

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)

Z více souborů jeden (10.7.2020 23:29)

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

Z více souborů jeden (10.7.2020 20:19)

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 1 9

Hledat výraz v celé složce sešitů (26.6.2020 23:42)

elninoslov
ano, vpodstate jsem si s TC pomohl nevsiml jsem si toho a zrovna mi to chybelo. 5 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
1 5 2

Hledat výraz v celé složce sešitů (26.6.2020 21:03)

5 jojo vrtko kluci tady sou mooc sikovni a radi vzdy pomuzou 2

Hledat výraz v celé složce sešitů (26.6.2020 20:07)

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

Hledat výraz v celé složce sešitů (26.6.2020 12:07)

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

Hledat výraz v celé složce sešitů (26.6.2020 9:15)

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

K unikátním hodnotám vytvořit nový list (13.6.2020 11:29)

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ééé 5 5
*Koukám že noční páteční programování Vám svědčí pánové 5 5 hezký den


Strana:  1 ... « předchozí  3 4 5 6 7 8 9 10 11   další » ... 43

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje