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

Příspěvky uživatele

Proč bys psal datum 3x?
Do sl.C (nebo jakehokoliv)
C1 vzorec =A1
C2 vzorec =A1
Ty nasledně označ a pak roztáhni dolů

Co jsem zkoušel na tabletu s androidem za excely s VBA tak to byla bída, takže si od toho moc neslibuj.

Tak sem dej nějakou přílohu, třeba to půje nějak poopravit "aby to dobře vypadalo"

Zkus kouknout tu http://batchloaf.wordpress.com/2013/01/07/running-commandcam-from-excel-using-vba/
Nemám kameru tak nemám jak vyzkoušet.

Musíš kopírovat do stejně velké oblasti.
Sub CheckA1()
If Range("A2").Value2 > Range("A1").Value2 Then
Range("A1:B1").Copy Range("A2:B2")
End If
End Sub

=když((A1*A2)=0;"";A1*A2)

Toto vlož do modulu listu a do makra Change
ActiveSheet.Name = Range("BK2").Text

Knížky nějaké jsou, třeba http://www.kosmas.cz/knihy/139729/microsoft-office-excel-2007-vzorce-a-vypocty/ pokud ji seženeš, pak se dá používat nápověda, jinak na netu jsou toho kupy.

Pomocí TRANSPOZICE
Označit např buňky A4:A21, vložit maticově vzorec =TRANSPOZICE(A1:R1) (ctrl+shift+enter)

Bez přílohy a pořádného vysvětlení jde radit těžko.

Ale tu máš jeden sešit co by možná stačil upravit.

Pro poslední řádek lze použít toto(příklad platí pro aktivní list)

LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Si myslím, že to používá na porovnání hodnot v řádcích na obou listech.

Do apostrofů to vkládá nazvy listů s mezerou, přidej si apostrof před a za uvozovky v tom vzorci ve VBA.

Třeba takto
Sheets("List1").Copy Before:=Sheets(1)
ActiveSheet.Name = Range("B1").Text

Tu příloha.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje