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

Příspěvky uživatele

Vyfarbi si jednu bunku a spusti makro. Snáď som to pochopil dobre.

Uprav si tabuľku podľa tvojich hodnôt

To pôjde jedine makrom. Ale keďže je to "různě rozhozené", tak aj to makro môže "různě vypadat"

A takto by to nemohlo byť? formátovať vzorce tak ako to chceš ty asi nejde.

Sub HorniIndex()
Range("C14:AG33").Select
For Each bunka In Selection
bunka.Value = bunka
Next
With Selection
.Characters(Start:=1, Length:=1).Font.Superscript = False
.Characters(Start:=2, Length:=4).Font.Superscript = True
End With
End Sub

možno by si mal priložiť súbor ako by to malo vyzerať. Kedy by to malo vyhodiť chybu a kedy nie. Nemusíš 5000 riadkov, stačilo by 50.
Akosi mi chýba logika v zadaní.

Klikni pravýmm tlačítkom na list, ktorý chceš kopírovať, vyber "premiestniť alebo kopírovať",zaškrtni "vytvoriť kópiu" a zaraď kam potrebuješ. Potom list premenuj.
Tak to urob 20 krát.
Prípadne si nahraj na to makro.

Skús takýto kód. Treba si iba zoradiť tie obrázky.

Sub presun()
For j = 1 To 4
If Cells(2 + j, 1) = 0 Then Exit For
ActiveSheet.Shapes.Range(Array(Cells(2 + j, 1))).Select
Selection.Copy
Cells(2 + j, 2).Select
ActiveSheet.Paste
Next j
End Sub

Alebo takto

=VYHLEDAT(A1;{0;20;25,001;30,001};{"podváha";"normální";"mírná nadváha";"nadváha"})

lookup=vyhledat?

Tak to sa budeš diviť, že si na to sám neprišiel.

A prečo napríklad 100 musí byť ako 60+40 a nie 60+20+20?

No najlepšie zmena bunky v stlpci "A"

Presne tak ako ťa napadlo.
Alebo v kóde
c_Faktury = Worksheets("Nabídka").Cells(3, 1).Value & Worksheets("Nabídka").Range("A1").value

prípadne
c_Faktury = Worksheets("Nabídka").Cells(3, 1).Value & Worksheets("Nabídka").cells(1,1).value

Nebude to TRUNC?

Private Sub CommandButton1_Click()
Sheets("list1").Cells.Copy Sheets("list2").Cells
End Sub

Áno toto funguje.

tak mě napadá jedna možnost a to v Excelu v možnostech přepnout výpočty na "ruční" a teprve pak soubor otevřít - teoreticky by to mohlo zafungovat, prakticky nevím :-).

No tam to musíš prepísať.
Teda =dnes() na daný dátum.
Teda ak si to medzitým neuložila ešte raz. Inak sa k tomu dátumu asi nedostaneš.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje