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

Příspěvky uživatele

diki Vam, hlavne Martinovi

zmenil som to vsetko na BackColor a funguje to bez problemov

ahojte

nebudem to tu popisovat , popis je v prilohe

co takto ?

ak sedi format cisel ako si uviedol hore tak pre A1 je vzorec
=VALUE(CONCATENATE(LEFT(A1;3);RIGHT(LEFT(A1;7);3);RIGHT(A1;3)))

ak je format iny musel by som trochu rozmyslat alebo pouzit makro - na vzorce su tu iny sikovni borci

skus toto

a

" A jak se ve VBA přijmou změny od jiních uživatelu,aby jse přijmuli změny jejich? " - a toto si si po sebe aj precital ? - sorry but I dont understand you

preco to zacalo je asi jasne z hlasky ktoru hlasi - v zosite mas pouzitych vela roznych formatov. vyhod niekolko listov alebo zjednot formatovanie - moznosti excelu niesu neobmedzene

dakujem

ps teraz som si vsimol kde bola chyba v tom mojom

pomylil som sa v nazve premennej (raz som mal cbk a raz zase ckb ) - asi aj preto pri vsetkych velkych makrach mam zapnute Option Explicit

ahojte
potreboval by som v userforme oznacit checkboxi ktorych mena mam z pola (do pola som ich dostal spojenim inych poli). Ako to mam vymysliet ?

dik

mozno by Ti niekto pomohol ale daj nejaku kostru (nejaku zakladnu tabulku ako to ma vyzerat) s popisom co to ma robit - osobne nerad vytvaram nieco od nuly a Ti to potom budes chciet uplne inac

co takto napisat sem ci to funguje alebo nefunguje, nechcem ziadne prachy (odpovedal som dobrovolne), nechcem ani "dik" (podakoval si v zadani) ale ak nieco spravim ocakavam odozvu aspon vo forme "OK" alebo "NOK"

dakujem

?????

daj subor, popis

toto Ti skopiruje oznacenu oblast so skrytimi riadkami do pomocneho listu , ten potom mozes porovnat


Sub kopiruj_viditelne()
meno_listu = ActiveSheet.Name
prvy_riadok = Selection.Row
posledny_riadok = Selection.Row + Range(Selection.Address).Rows.Count - 1

Sheets(1).Select
Sheets.Add
Sheets(meno_listu).Select

For riadok = prvy_riadok To posledny_riadok
Rows(riadok).Select
If Selection.EntireRow.Hidden = False Then
Application.CutCopyMode = False
Selection.Copy
Sheets(1).Select
Rows(Range("c36556").End(xlUp).Row + 1).Select
ActiveSheet.Paste
Sheets(meno_listu).Select
End If
Next riadok
Sheets(1).Select
Rows(1).Delete

End Sub

dakujem

ahojte, viem ze som to uz pouzival ale momentalne si neviem spomenut ako mam vytiahnut z oznacenej bunky riadok a stlpec (potrebujem ich zvlast)
bolo to myslim Selection.Address - nieco neviem co

diki

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje