Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  142 143 144 145 146 147 148 149 150   další » ... 156

Skopíroval som to do 2010 a potom naspäť do 2003.
Skús, či to funguje. Ja tu nemám excel 2003.

Skús to vytvoriť znovu skopíruj si to z toho fungujúceho hárku a uprav. Ten nefungujúci vymaž. To bude asi najrýchlejšie.

V 2003 to blbne tak ako bolo popísané.
V 2010 to funguje tak ako to fungovať má.

Pri zabezpečení hárka by si mal mať aspoň toto jedno zaškrtnuté.

V bunke C1 je hodnota 13
=OFFSET(A1;C1-1;1) - odkaz na bunku B13
=INDIRECT("B"&C1) - odkaz na bunku B13

OFFSET=POSUN
INDIRECT=Nepřímý.odkaz

Jasné. Aj tak sa dá. 1

Tak potom takto.

Sub Makro1()
a = Array("B4:B16", "B20:B34") ' doplň si to do konca
b = Array("L5A", "L5A") ' aj tu si to doplň, počet musí byť rovnaký.

For i = LBound(a) To UBound(a)
Sheets("shift_1").Range(a(i)).Copy
Sheets(b(i)).Range(a(i)).PasteSpecial Paste:=xlPasteValues
Next i
Application.CutCopyMode = False
End Sub


'L5A assy
sheets("shift_1").Select
Range("B4:B16").Select
Selection.Copy
sheets("L5A").Select
Range("B4:B16").Select
Selection.PasteSpecial Paste:=xlPasteValues

Toto nahraď takto. Skopíruje ti to aj vzorce.

'L5A assy
sheets("shift_1").Range("B4:B16").Copy sheets("L5A").Range("B4:B16")

No ja by som skôr vytvoril nový stlpec a dal tam vzorec =(A1+30%*A1)*120%
A skopíroval.

marža=30%
DPH=20%

Sub Makro1()
ActiveSheet.Shapes("TextovéPole 1").Select
End Sub

Veď stačí, keď si to makro dáš nahrať a potom iba upraviť.

Klikni na makro VLOZ

No ja teda netuším o čo ide.
Čo je počiatočný stav(zadanie) a ako by mal vyzerať výsledok.
Tam je to akosi všetko dokopy. Možno aj pojem "kombinace" je asi svojský.

Daj do cyklu počítadlo a pri dosiahnutí napríklad 1000 cyklov ukonči makro.

takto?

Do makra sa dostaneš cez ALT+F11 a vyberieš si MODUL

Na text by malo ísť toto.
Function Vzorec2Text(a) As String
Vzorec2Text = " " & a.Formula
End Function


Strana:  1 ... « předchozí  142 143 144 145 146 147 148 149 150   další » ... 156

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje