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

Příspěvky uživatele

ked uz idete robit nieco profesionalne tak sa drzte jednej zasady data s ktorymi pracujete davajte do tabulkoveho formatu a nie rozhadzane ako to mate teraz

moj navrh:
- urobit Userform ktory po doplneni udajou urobi:
- doplni do databazovej tabulky informacie a potom
- Vytvori Tabulku c.1
- Doplni Tabulku c.2

napr. co som robil prednedavnom (viem nieje to uplne pekne ale s tymito datami sa da v buducnosti pracovat)... vykaz prace:

Private Sub qTable_AfterRefresh(ByVal Success As Boolean)
end sub

idealnejsie je pouzit event ktory sa zapina az po skonceni refreshu

a co tak si urobit vlasnu funkciu?

napr.
sub aa
.... ZamenData(Stringtext) ....
end sub

private function ZamenData(byval aString as string) as string
aString = Replace(aString ,"<",aTedNeviemKod)
aString = Replace(aString ,">",aTedNeviemKod)
aString = Replace(aString ,"'",aTedNeviemKod)
ZamenData = aString
end function

uz som nasiel ten event:
http://msdn.microsoft.com/en-us/library/office/aa220823(v=office.11).aspx

idealnejsie by bolo urobit v SQL stplec comments a z excelu to updatovat

potom ked date refresh tak tak vam to bude updatovat rovno s komentami
-----
potom ako to vy navrhujete ... sa to tiez da ale ja osobne teraz netusim ako sa dostat do eventu Refresh aby som tam doprogramoval nejaku logicku porovnavacku IDciek a nato prepisovanie comentov

je viac moznosti ako to prerobit

tu naplnite cestu + poradie
For Each vrtSelectedItem In .SelectedItems
redim preserve Pole(1,x)
aSplit = split(vrtSelectedItem,".")
Pole(0,x) = vrtSelectedItem
Pole(1,x) = right(aSplit(0),3)
next

a potom to Pole zoradite podla Pole(1,x)

je to len teoreticky napisane

este to upravim:

Range("tabulka2").Offset(-1, 0).Rows(2).Insert '
Range("tabulka1").Copy ' tabulka1=vkladaná tabulka
Range("tabulka2").Offset(-1, 0).Insert ' tabulka2= tabulka pred ktorú sa vkladá tabulka 1
Application.CutCopyMode = False

marjankaj ma pravdu staci ju pomenovat :)) dal som jej meno tabulka

skus toto:

a bude vzdy zlta? ked hej tak je to easy :)

teraz ked nad tym rozmyslam

tak idealne budu dve makra

makro 1 (ulozenie originalnej tabulky):
- vytvori sheet
- nahra tam tabulku
- hidne sheet

makro 2 (vytvorenie new tabulky podla predlohy zo sheetu)
- kedze nemame presne zadefinovane kde ma dat tu tabulku
- nieje dobre jasne co je koniec
- tak by bolo dobre to identifikovat podla selecnuteho riadku

napr. selecnem 56 riadok (alebo bunku) a od toho riadku vytvori nove riadky a do nich da tabulku

... staci tak?

- musi byt pod zakladnou tabulkou volny riadok!
- potom tam doplni riadky podla poctu riadkou tabulky
- a donovo vytvorenych riadkou doplni tabulku

nebude to stacit tak??

poslite prilohu :)

ved to presne robi

v tomto makre som tabulku prerobil na Selection ..... tj. najprv musite zaznacit oblast ktoru chcete rozmnozit (+ s tym textom)

potom som tam dorobil inputbox kde sa vas opyta kolko krat to chcete rozmnozit (zadajte tam number pri texte to zbugne)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje