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

Příspěvky uživatele

Sheets("Harok1").Cells(Radek, 8)= Cells.(Radek, 5)*Cells.(Radek, 7)

sumif(A1:A20;">0")
sumif(A1:A20;"<0")

Asi takto sa to tvorí. Ako píše aj pavlus.
Hyperbolický paraboloid.

IF((A1+A2+A3)<20;"nízke hodnoty";IF((A1+A2+A3)>31;"vysoké hodnoty";"stredné hodnoty"))

Asi takto

Ide aj sin(x).
Len si musíš to x najprv nadefinovať. Napríklad pomenované názvy. Ale aj to treba vedieť ako.

Neviem presne čo chceš. Možno takto

Radšej prilož tvoj zošit. Takto sa to ťažko hľadá.

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje