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

Příspěvky uživatele

Ahoj, dekuji moc, funguje to. Mohl by si mi ten vzorec vysvetlit? neni mi jasne, proc se tam pouziva countif.

Dobrý den,

zde je soubor: http://ulozto.cz/xiHWr57K/filtrace-obchodu-xlsx

Mám dvě tabulky. První A:G a druhou K:Q.V kazde tabulce je vyhledavaci parametr, kde je spojene datum a cas. Prvni tabulka sloupec C, druha tabulka sloupec M. V prvni tabulce jsou v databazi vsechny hodnoty, v druhe tabulce jsou obchody, ktere potrebuji naleznout v tabulce prvni. Takze vemu prvni parametr v druhe tabulce potrebuji ho naleznout v tabulce prvni a na radek, kde je tento parametr napsat x. Takto vyhledat vsechny parametry z druhe tabulky a doplnit x. Dekuji za pomoc.

Logika vypoctu je takova: mam vstup do obchodu na urcite cene, napr. 100, v excelu oblast s nazvem entry_price, hodnota zapsana v listu data G4,G5..dva zapisy = dva obchody. Takze mam vstup na cene 100, obchod jde nejakou dobu proti me. hodnota pojmenovana MAE, obchod se vyviji spravnym smerem, oblast pojmenova MFE.

kdy za podminek pocitam sumu (kumulovany profit/ztrata pro jednotlive kombinace SL,PT. viz list LIST1 bunka B5 = SL, bunka C4 = PT. Takze v uvedeny pripad chci videt zisk/ztratu pro kombinaci SL = 1, PT =1

za podminek, kdy

(entry_price-B5)>mae => ztrata
KDYŽ(A((entry_price-B5)<mae;(entry_price+C4)>=mfe) =>ztrata

KDYŽ(A((entry_price-B5)>mae;(entry_price+C4)=<mfe) => profit

snad jsem to objasnil, dekuji za reakci.

http://ulozto.cz/xu2bB56z/mae-mfe-xlsx

Dobrý den,
na výše uvedeném odkazu je soubor, ve kterém mám problém, se kterým bych potřeboval poradit. Na listu data jsou uvedeny dva obchody. Na listu List1 je tabulka, kde v bunce C5 je maticovy vzorec, ktery podle zadanych podminek provede soucet v datech na listu data. Vysledek ma byt dvacet, bohuzel neni, nevim, kde mam chybu. Byl bych nekdo tak hodny a poradil mi. Dekuji

Dobrý den,
zde je adresa pro makro: http://ulozto.cz/xQgMHYg/makro-soubory-rar

jedná se o to, ze mam ve slozce soubory, ktere se po spusteni makra s nazvem tu (makro s techto stranek) jednotlive poskladaji pod sebe a vznikne tabulka, nektere bunky se vsak presunou, tak ze z carky udelaji tecku a to je pro mne nezadouci. Mohl by mi nekdo poradit, jak toto zrusit? Dale by me zajimalo, proc se obcas soubory neskladaji pod sebe, tak jak jdou po porade ve slozce. Dekuji moc za odpoved.

Děkuji moc za pomoc, už to mám :-)

Problém je v tomto řádku: wbX.SaveAs Filename:=strPath

Bez definice promenny strPath a vsech casti retezce, makro funguje. Akorat ukladat rucne nazev, zmenit typ souboru, to je pracne u takoveho mnozstvi souboru.

Vyzkousel jsem, ale porad to stejny. Je to divny.

kdyz definuji jednotlive casti retezce pod deklaraci promenny
Dim strPath As String

strPath = strPath & "\"
strPath = strPath & Range("A1")
strPath = strPath & ".xls"

tak pri vykonani procedury mi vypise, ze slozka je urcena pouze pro cteni, kdyz ve vlastnostech vyskrtnu, ze neni urcena jen pro cteni, tak to stejne nepomuze.

Sub Makro1()
'
' Makro1 Makro
'
Dim wb As Workbook, wbX As Workbook
Dim i As Integer, j As Integer
Dim strPath As String

'zkratka pro tento ses
Set wb = ThisWorkbook

' Otevri dialog
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ""
.AllowMultiSelect = True
.Filters.Add "Excel", "*.xls"
.Show

' pro kazdy soubor

For i = 1 To .SelectedItems.Count

Workbooks.Open .SelectedItems(i)
Set wbX = ActiveWorkbook
strPath = wbX.Path
strPath = strPath & "\"
strPath = strPath & Range("A1")
strPath = strPath & ".xls"

procedura

wbX.SaveAs Filename:=strPath

Next i

End With

End Sub

Dekuji moc za snahu, princip je mi o neco vice jasny, jsem rad. Ale hodi mi to chybu 1004, pristup k souboru nelze najit. Nebude neco spatne s tou cestou?

Dobrý den,
mám vytvořené toto:

Dim wb As Workbook, wbX As Workbook
Dim i As Integer, j As Integer
Set wb = ThisWorkbook

With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ""
.AllowMultiSelect = True
.Filters.Add "Excel", "*.xls"
.Show

For i = 1 To .SelectedItems.Count

Workbooks.Open .SelectedItems(i)
Set wbX = ActiveWorkbook

(makro, ktere zmeni format tabulky - funkcni)


wbX.saveas(wbx.range("A1"),*xls)
Next i

End With

End Sub

jde mi o to, ze si vyberu nekolik souboru, na ktere se spusti makro, co prede format tabulky. Pote potrebuji, aby se automaticky kazdy sesit ulozil pod nazvem bunky A1 daneho listu ( zrejme bude promenna ) a ulozilo jako .xls. Pomuzete mi, nevim si rady

Tak nemám, první způsob toho ukládání funguje dobře, ale ve všech, kromě posledního se mi neudělá správně to zaznamenané makro.

už to mám. jste borci, jednou bych chtěl umět to co vy :-)

Super, dekuji moc - princip funguje dobre. Akorat mam problem, nahrazuji , za ; a . za , a tato zmena se provede vzdy jen u posledniho souboru spravne, ve zbytku zustava tecka a bunka se bere jako textovy retezec.

Sub Makro1()
'
' Makro1 Makro
'

Dim wb As Workbook, wbX As Workbook
Dim i As Integer, j As Integer

'zkratka pro tento sesit
Set wb = ThisWorkbook

' Otevri dialog
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ""
.AllowMultiSelect = True
.Filters.Add "Excel", "*.xls"
.Show

' pro kazdy soubor
For i = 1 To .SelectedItems.Count

Workbooks.Open .SelectedItems(i)
Set wbX = ActiveWorkbook
'nakopiruj listy do wb
Rows("1:112").Select
Selection.Delete Shift:=xlUp
Range("I17").Select

Rows("54:266").Select
Selection.Delete Shift:=xlUp

Range("J10").Select
Columns("A:A").ColumnWidth = 48.14
Range("A1:A52").Select
Selection.Replace What:=",", Replacement:=";", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 14.57
Range("L11").Select
Next i

cesta = "C:\Users\Jakub\Desktop\SPY_hotove_data"
For p = 1 To 2
jmeno = cesta & "sešit" & p & ".xls" 'Alebo jmeno=cells(i,1)
ActiveWorkbook.SaveAs Filename:=jmeno

Next p
End With

Dekuji, vymazu :-) a kdyz tam zadam nazev souboru, tak pro kazdy soubor je nazev jiny, jak tam dam neco jako promennou, co automaticky vezme nazev souboru, at to tam pro kazdy soubor nemusim psat rucne?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse