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

Příspěvky uživatele

Skús priložiť tvoj súbor. Takto môžeme iba hádať, o čo ti ide.

Nie nie je.
Je to jednoduchý cyklus.
Záleží iba na tom či chceš kopírovať všetky listy alebo iba tie čo si vyberieš.

Sorry, niečo som prehliadol.

Sub Makro3()
Range("D2").Select
Set rgstlpec = Intersect(Selection.CurrentRegion, Range("D2:D10000"))
Selection.AutoFill Destination:=rgstlpec
End Sub

Veď ty máš prázdne bunky vo vedľajšom stlpci iba pod tou tabuľkou?
Alebo si to myslel inak ako si to napísal?

V bunke D nie je vzorec. Použil som bunku D2
A neviem, ktorý stĺpec je susedný, použil som stlpec "C"
Ak by si chcel presne ten istý vzorec, tak do bunky D2
zadaj =CONCATENATE(1;MID($C$2;4;4))
Sub Makro1()
xxx = Range("D2").FormulaR1C1
Range("C:C").SpecialCells(xlCellTypeBlanks).Select
For Each bunka In Selection
bunka.Offset(, 1).FormulaR1C1 = xxx
Next
End Sub

Alebo KT

Public Sub test()
With ActiveSheet.UsedRange.Cells
If .Count > 1 Then Exit Sub
If .Value <> "" Then Exit Sub
End With
MsgBox "prázdny list"
End Sub

Otestuje to aktívny hárok v zošite.

Ešte tam môžeš dať cyklus a máš to pre celý zošit

For i = 1 To Sheets.Count
call test
Next i

Veď to bez toho zošita práve neviem. Podľa čoho mám zistiť, že je prázdny? Testovať všetky hárky?

A čo ti bráni poslať ten prázdny zošit? Názov zošita je ľubovoľný? Koľko to má listov?
Keď mám niečo testovať, tak by bolo dobré vedieť čo.
A nemôžeš si vytvoriť nejaké "cvičné" dáta?

No ja tomu nerozumiem.
Napísal si vo vzorci "B1" a máš zadané hodnoty iba "A1" a "A2". A čo je vlastne to vypočítané číslo?

Alebo že by takto?
=((A1>B1)*24+(B1-A1)-((A1>B1)*24+(B1-A1)>6)*0,5)*(A1<>0)

Podľa syntaxe by to nemalo ísť. Asi to majú slabo ošetrené v prekladači.

Syntax

[Call] name [argumentlist]

The Call statement syntax has these parts:

Part Description
Call Optional; keyword. If specified, you must enclose argumentlist in parentheses. For example:

Call MyProc(0)

name Required. Name of the procedure to call.
argumentlist Optional. Comma-delimited list of variables, arrays, or expressions to pass to the procedure. Components of argumentlist may include the keywords ByVal or ByRef to describe how the arguments are treated by the called procedure. However, ByVal and ByRef can be used with Call only when calling a DLL procedure. On the Macintosh, ByVal and ByRef can be used with Call when making a call to a Macintosh code resource.

Remarks

You are not required to use the Call keyword when calling a procedure. However, if you use the Call keyword to call a procedure that requires arguments, argumentlist must be enclosed in parentheses. If you omit the Call keyword, you also must omit the parentheses around argumentlist. If you use either Call syntax to call any intrinsic or user-defined function, the function's return value is discarded.

To pass a whole array to a procedure, use the array name followed by empty parentheses.

A tebe to tam nesvietilo červeným?
druhy (xx, yy)
Daj tam
Call druhy (xx, yy)
alebo
druhy xx, yy

Sub xxx()
Application.StatusBar=" Prebieha výpočet v podprograme xxx"

kod

Application.StatusBar=false
End Sub
Toto si daj do príslušných podprogramov.

Alebo do bunky napíš "OK"
A do bunky A6 napíš "=A4"
Samozrejme bez úvodzoviek.

Treba si na to urobiť makro.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse