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

Příspěvky uživatele

No tu je to upravené v exceli 2010.

Milan: trochu si ma nakopol aj ty s tým IsNumeric.

Ale dokonalé to nie je. Ak by tam bolo napríklad pred PSČ telefonne číslo, tak vyberie telefónne číslo. Ale to už testovať asi neviem.

=LEFT(A2;FIND("/";A2)-4)&C2&RIGHT(A2;LEN(A2)-FIND("/";A2)+1)

Prípadne si stredníky zameň za čiarky.

Public Function psc(text As String) As String
Dim a As String
psc=""
text = Replace(text, " ", "", , , 1)
For i = 1 To Len(text)
a = Mid(text, i, 5)
If IsNumeric(a) Then
If a Like "#####" Then
psc = a
Exit Function
End If
End If
Next i
End Function

A čo tak toto?

elseif If Cells(1, 1) <> PRAVDA Then
Rows("10:20").EntireRow.Hidden = false

V hárku faktura2 to máš trochu upravené pre excel 2007. Ja tu mám iba excel 2003, takže nemám funkciu IFERROR.
Tebe by to však malo fungovať.

V bunke B2 stlač klávesu F2 a potom CTRL+SHIFT+ENTER
Potom to skopíruj do celej tabuľky.

Urobil som pokus. Vyfarbil som jednu bunku "bez výplne". Nič sa vizuálne nezmenilo, ale bola označená ako posledná použitá. Teda ako keby som ju vyfarbil nejakou farbou. Zrušiť sa to dalo vymazať format. Alebo vymazať všetko. Teda v tej bunke.
Pre tvorcov excelu je teda jedno, či sa označí bunka farbou, alebo "bez výplne". Je to vec konvencie.

Alebo takto.

No zrejme záleží, čo si predstavujeme pod pojmom "posledná bunka".

V prílohe je tá žltá bunka ako posledná. Ale v tvojom prípade nie.

Možno aj výška riadku je "posledná použitá bunka". Ale pri zmene šírky stlpca to nefunguje rovnako.

Máš pravdu, je tu trochu nezrovnalosť medzi formátovaním bunky, formátovaním riadkov a formátovaním stlpcov.

Asi bude záležať, čo chceme vlastne dosiahnuť.

V prílohe sú oba spôsoby.
Výsledok je rovnaký. Neviem v akých prípadoch by to nemalo fungovať.

Nemôžeš priložiť súbor?
Stlpec "L" má poradové číslo 12.

@agnusxx
To preto lebo nemáš pomenovaný hárok "vysledok"
Keby si priložil tvoj súbor, tak by som to napasoval na tvoj.

Možno kopírovať aj takto.

Sub KopírujList()
Set rng = ActiveSheet.UsedRange 'tento list sa kopíruje
Set rng2 = Worksheets("Vysledok").UsedRange ' sem sa kopíruje
riadok = rng2.Cells(1, 1).Row + rng2.Rows.Count - 1
rng.Copy Worksheets("Vysledok").Cells(rng.Row + riadok, rng.Column)
End Sub

Sub KopirujList()
Set rng = ActiveSheet.UsedRange
Set rng2 = Worksheets("vysledok").UsedRange
riadok = rng2.Cells(1, 1).Row + rng2.Rows.Count - 1
rng.Copy Worksheets("vysledok").Cells(rng.Row + riadok, rng.Column)
End Sub

Toto skopíruje aj formáty. Netestujem prázdny list, skopíruje sa prázdny riadok.
Do cyklu si to už hodíš sám
Asi som to nemal písať sem, ale riadok je posledný použitý riadok. Podobne sa určí aj stlpec.

No mohlo by to byť takto
=IFERROR(INDEX($C$1:$C$5;MATCH(A1;$B$1:$B$5;0);1);"")
Ale neviem ako mám niečo priradiť k číslu, ktoré neexistuje.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje