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

Příspěvky uživatele

doplnil som tam riadok ze mesiac 8 meno Test cena 500 ale vo vyslednom sa nezobrazilo ... ked som si kukol tabulku tak range sa podla toho neprisposobila

eLCHa: a ked tam bude chciet doplnat data bude musiet stale menit pole?

Makro setPoints:
- tu som to prerobil aby kazdy shapes v sheet-e prerobil na hranate
- teraz potrebujem vediet preco si v poslednom kroku zmenil polaritu?? .)) (inak som to nazvat nevedel)

tak som uz nato dosiel :PPP


Sub setPoints()
Dim sh As Shape
Set sh = ActiveSheet.Shapes("Volný tvar 4")
For Each nd In sh.Nodes
I = I + 1
sh.Nodes.SetSegmentType I, msoSegmentLine
Next
End Sub


len musis zistit nazov shape .)))

to co som poslal bola predloha pre vacsie moznosti vysledkou ... kedze si odnej upustil .) tak som len upravil marjankaj-ov vzorec na Format casu

For i = 2 To Sheets("List1").Cells(1, 1).CurrentRegion.Rows.Count
Sheets(2).Cells(i, 19) = Format(Mid(Sheets(1).Cells(i, 19), 11, 10), "dd/mm/yyyy")
Next


myslis aby mal format datum a nie text? :P

ale aj tak tomu nechapu v 14 riadku by si asi potreboval prvy datum

tu je ta moja verzia:

marjankaj to nebude tak jednoduche

... nieco ma napadlo
... ochvilu poslem svoju verziu .)

ok tak inac ja ze pojdem podla tvojej myslienky ale :) to nepojde

takze ideme podla mna:

vsimol som si ze v "List1" a stlpec "S" ma taketo formaty:

01.01.201202.03.2013
alebo
08.01.2013
alebo
8.1.2013 13.05.2010
alebo
""

ted moja otazka

- ked je double datum tak potrebujes druhy?
- ked je jeden datum tak len ten jeden?
- ked je prazne tak ziadny
- su aj ine moznosti?

- jo len som si nevsimol ze tvoj cyklus prepisal moj cyklus :))
- tu je to opravene ale tu funkciu som prepisal na =2 +2
- tak si to potom oprav podla seba

hups malo by tam byt

Sheets("List2").Cells(i, 19).Formula = "= ...."

skus toto:

tvoj zapis programovanie je jak moj zamlada :))))

chcel som to dorobit ale to:
=KDYŽ(ČÁST(List1!S2;11;10)="";"";(HODNOTA(ČÁST(List1!S2;11;10))))

u mna nefunguje to asi preto ze mam eng. Office

samozrejme ze ide

vsimaj si z celeho kodu len toto:
Cells(y + 1, 1) = Sheets("2").Cells(x, 2)
Cells(y + 1, 2) = Sheets("2").Cells(x, 4)
Cells(y + 1, 3) = Sheets("2").Cells(x - 2, 8)

tu uz je vidiet ze "Y" len napocitava riadky takze nic podstatne
Keby si tam chcel dodat new stlpce tak by si dal:
Cells(y + 1, 4) = "Test"
Cells(y + 1, 5) = "Test"
Cells(y + 1, 6) = "Test"


samozrejme ze nechces aby to vypisovalo "Test" ale nejaku bunku z toho dokumentu

takze "Test" prepiseme na:
Sheets("2").Cells(x, 2)

- "x" nam dava startovaci riadok zaciname v cykle na 8 potom +35 a +32 a +35 a +32 atd.
- "2" je stlpec
- takze aby sme vedeli co chceme zobrat musime ist na 8 riadok a len si zisti kolko od toho bodu sa nachadza ten udaj co chceme vytiahnut

naprikald:
udaj z 8 riadku je o 2riadky dole a 3 stlpec

zapiseme:
Cells(y + 1, 4) = Sheets("2").Cells(x +2 , 3)


hadam uz to je jasne? :)

definuj co je to zobak? :) najlepsie by bolo keby si pridal prilohu

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse