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

Příspěvky uživatele

a ta příloha??

Dobrý den,

jde to i jednodušeji

Sub Makro1()
Dim lastrow As Long
lastrow = Sheets("zdrojova_tabulka").Range("c65536").End(xlUp).Row + 1
Sheets("hlavná").Range("B1:B9").Copy
Sheets("zdrojova_tabulka").Range("d" & lastrow).PasteSpecial Paste:=xlPasteValues
Selection.End(xlToLeft).Select 'to netuším proč tam je
End Sub

Dobrý den,
tak na funkci sumifs jsem již přišel zatím bojuji s tím podmíněným formátováním. ještě se zeptám šlo by tento vzorec předělat do excelu 2003??

=SUMIFS(C4:O4;C2:O2;"<="&WEEKNUM(B4))

děkuji

Dobrý den,

potřeboval pomoci s následujícím problémem při tvorbě plánu dovolených dovolené se plánují po týdnu a já bych potřeboval sečíst hodnoty do daného týdne určeného datumem v příloze příklad (počítám asi funkce index??) bohužel jsem to nějak nedal dohromady. Pokud by bylo možné nějak nastavit podmíněný formát tak aby když bude plánováno nad daný týden se zabarvilo ? nějak se mi nedařilo nastavit

předem děkuji za pomoc

označ si část textu v komentáři a v office 2010 na kartě "domů" normálně změnit písmo barvu mám zakázanou

font a velikost písma změnit lze i samostatně nikoli již barva písma

řekl bych že sám sobě odporujete
chtěl zbavit té nutnosti mít nainstalované officy, nebo acrobat.

2) Vytvořit webovou aplikaci, která by něco podobného uměla
- Tohle se mi líbí víc, ale nevím, jestli by bylo možné vytvářet šablony dopisů přes WEB (V pdf, nebo wordu)
nehledě na to že korporátní sféra většinou office má a adobe by stačil reader :-)

díky za pomoc nakonec jsem použil řešení přes msgbox ještě jednou díky

Ahoj, potřeboval bych pomoci s následujícím mám viz kód kde se mi otevře daná stránka a zašle hodnota z buňky já bych potřeboval aby hodnota buňky byla buď s entrem nebo se odentrolovalo poté co načte do IE tuto hodnotu děkuji za pomoc

Sub submitFeedback3()
Dim x As String, IE As Object

Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://104.100.36.21/index.php"

Application.StatusBar = "Submitting"
' Wait while IE loading...
While IE.Busy
DoEvents
Wend

x = Cells(1, 1).Text
' **********************************************************************
delay 5
IE.Document.getElementById("proc").Value = x

'**********************************************************************

Set IE = Nothing

Application.ScreenUpdating = True
End Sub

Private Sub delay(seconds As Long)
Dim endTime As Date
endTime = DateAdd("s", seconds, Now())
Do While Now() < endTime
DoEvents
Loop
End Sub

tady by to chtělo přílohy

díky za inspiraci nakonec jsem použil třetí možnost

Ahoj,

potřeboval bych poradit s následujícím problémem. V sešitu používám formuláře ale potřebuji i ručně vkládat data zvlášť do listu tak bych chtěl nějak zamezit úpravám jiných listů asi ideálně kdyby šlo nenechat přepnout na jiný list

jestli to chápu dobře tak v příloze

do popisku řádků dej zákazníka a datum a hodnoty bude počet z datumu

je to vcelku jednoduché :-)

Sub x()

Columns(1).Copy Columns(2)
Range("G5").Value = Now
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse