Příspěvky uživatele

funguje - díky moc :)

Ahoj,

mám excel sheet, kde v sloupci C mám "start date" a v sloupci D mám "end date" - hodnoty jsou správně naformátované jako dd.mm.rrrr hh.mm.ss

Potřeboval bych funkci, která do sloupce E vypočátá rozdíl mezi D a C ale bez víkendů a svátků.

Takže pokud bude v sloupci C hodnota "18.10.2013 16:09" a v sloupci D hodnota "21.10.2013 16:36", tak mě excel nevypočte počet hodin 72:27:00 ale 24:27:00 - tzn. neco jako net working days (převedeno na hodiny).

Jde něco takového udělat?

díky

Ahoj,

potřeboval bych pomoct s přepojením Excelu 2010 a tabulky v Google Docs.

Zkoušel jsem to přes přepojení ale uplně si s tím nevím rady. Potřeboval bych, aby to fungovalo tak, že se mě načtou data do klasického excelu, já si je tam upravím a data se mě zesynchronizují se servrem. Potřebuju to udělat proto, že s uvedenými staženými daty bych dále pracoval prostřednictvím formulářů atď. Může mě prosím někdo poradit?

díky

Ahoj, potřeboval bych pomoc s jedním vzorcem a nenapadá mě jak to zkombinovat.

Na listu "Data" mám ve sloupci A čísla faktur, ve sloupci B název produktu a ve sloupci C částku za produkt.

Na dalším listu "Mastersheet" mám ve sloupci A mám čisla faktur a do sloupce B potřebuji doplnit vzorec, který by vyhledal částku z listu "Data" sloupce C, pouze pokud je číslo faktury na obou listech stejné a pokud název produktu = "Okurka"

Díky

Ahoj,

mám dotaz. Stahuju si report, ve kterém se mě blbě natáhne hodnota (částka produktu). Tato hodnota se mě vždy stáhne jako "Kč 13.234,44" a já vždy musím ručně oddělávat Kč a mezeru a pak tečku mezi číslicemi, aby mě to excel správně počítal a sebral formát. Je možné udělat na to makro, které mě neželaný formát "Kč 13.234,44" upraví na "13234,44", tzn. smaže Kč s mezerou a tečku? Tyto hodnoty mám v buňkách B2:B30.

Předem dík za odpověď.

Ahoj,

snažil jsem se vytvořit makro, které mě udělá kontingenční tabulku. Nejedná se pouze o makro, které jednoduše udělá kontingenční tabulku, tabulka je pouze jeden z kroků, nicméně jsem se zasekl.

Na listu Datasheet jsou data. Na list kontingenční tabulka chci přímo umístnit tabulku. Zkoušel jsem níže uvedné, nicméně mě to neustále hlásí chybu. Poradí někdo co dělám špatně?

Sub Makro1()

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Datasheet!R1C1:R1048576C5", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Kontingenční tabulka!R1C1", TableName:= _
"Kontingenční tabulka 1", DefaultVersion:=xlPivotTableVersion14
Sheets("Kontingenční tabulka").Select
Cells(1, 1).Select
ActiveSheet.PivotTables("Kontingenční tabulka 1").AddDataField ActiveSheet. _
PivotTables("Kontingenční tabulka 1").PivotFields("Částka"), "Počet z Částka", _
xlCount
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Firma")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields( _
"Datum_platby")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Smlouva")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields( _
"Rozpad_produktu")
.Orientation = xlRowField
.Position = 4
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields( _
"Počet z Částka")
.Caption = "Součet z Částka"
.Function = xlSum
End With
End Sub

JJ, funguje to uplně super :-) :-) udělal jsem si makro, které mě do listu2 vloží jména, které chci aby zůstali v listu1 takže to funguje uplne super :-) díky

Takže přikládám konkrétní příklad.

Potřebuji makro, které funguje jak jsem napsal.

Pokud text v buňkách A2:A10 neobsahuje slovo "Novák, Petr" nebo "Nováčková, Petra" nebo "Chládková, Martina" tak makro smaže celý řádek.

Díky :-)

Takže nějakej konkrétnej kód??

Díky moc pěkně ale nemyslel jsem tohle.

V buňkách A2:A150 mám jména zaměstnanců a mám vytvořené makro, které vyhledá, zda v buňkách A2:A150 je jméno, které je nežádoucí a když daná buňka obsahuje to jméno, makro smaže celý řádek. Toto makro funguje uplne super.

Potřebuji makro, které udělá uplný opak, tzn. ve VBA kódu si vytvořím nejakej "seznamjmen" které bude makro vyhledávat, a pokud v buňkách A2:A150 najde jiné jméno, než mám v seznamu, smaže celý nežádoucí řádek.

Doufám že jsem to popsal víc pochopitelně

Ahoj,

mám soubor v excelu, kde v sloupci A jsou jména zaměstnanců celé firmy (cca 100 jmen), v sloupci B hodnoty pro výkon práce v jedné aplikaci a v sloupci C hodnoty pro výkon práce v jiné aplikaci.

Potřeboval bych makro, do kterého bych nastavil napr. 5 jmen, a zbylé řádky s jinými jménami by mě to smazalo a zůstali by jenom ty, které jsem si nastavil.

zkousel jsem to pres:

If range("A1").Text = "prijmeni, jmeno" Or ... then
row("1").delete

narazil jsem tam na problem a nefunguje to...

Má nekdo prosím nějakej nápad?

Díky Poki, pomohlo

Ahoj,

potřebuji pomoc s UserFormem...

Mam vytvořeny UserForm s několika TextBox. Po odkliknuti CommandButton1 se provede příkaz, který otevře novou zprávu Outlook. Předmětem je text z UserForm1.TextBox1, příjemce je text z UserForm1.TextBox2 a podobne...

Krom toho mam udelany UserForm2 s TextBox1. Potřeboval bych na konec kodu přidat ještě kod, který otevře UserForm2 a do TextBox1 vloží text: "Na e-mailovou adresu" Userform1.TextBox2 "byl odeslán e-mail..."

Prosím o pomoc... hledam to i na googlu a nevim jsi s tim rady... Díky za ochotu

Nakonec už není třeba, přišel jsem na to

Dobrý den,

potřeboval bych menší pomoc.

Níže uvedený kód funguje, tak jak má, až na "HTMLbody". Výběr z ponuky "ComboBox1" mám na list2 v 2 sloupci. Potřeboval bych, aby když zvolím třeba z nabídky ComboBox1 "ŠablonaA" (List2!B2) tak do HTMLbody se mi nakopíruje příslušný text z vedlejší buňku (List2!C2)

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()

'Dim myOlApp As Outlook.Application
'Dim myItem As Object

mMail = UserForm3.TextBox1.Text

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
''Set myAttachments = myItem.Attachments

'přidání přílohy
'CestaSoubor = "C:\test.txt"
'myAttachments.Add CestaSoubor, olByValue, 1, ""

With myItem
.To = mMail & "@proxyma.local"
'.CC =
.Subject = ""
.HTMLBody = ???????????????????????
.importance = 1
.Display

End With

Set myOlApp = Nothing
Set myItem = Nothing

End Sub

Private Sub TextBox1_Change()

End Sub

Díky za pomoc

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje