• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Fórum

Příspěvky uživatele

Sub makro()

Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")

PCN = objNetwork.ComputerName

Set objNetwork = Nothing

CESTA = "C:\Users\" & PCN & "\Documents\MEGA\import\Report"

End Sub

Já se tím už nezaobíral, když jsem viděl, že to máš hotové.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("A1:C1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

If Range("A1").Value > "" And Range("A1").Value = 0 And Range("B1").Value > "" And Range("B1").Value = 0 And Range("C1").Value > "" And Range("C1").Value = 0 Then
Range("D1").Interior.Color = vbRed
Else
Range("D1").Interior.Pattern = xlNone
End If

End If

End Sub

nevím jestli jsem to pochopil.

Private Sub CheckBox1_change()

If CheckBox1.Value = True Then

i = MsgBox("Při zapnutí dojde k vynulování všech uložených hodnot. Pokračovat?", vbYesNo + vbExclamation, "Varování!")
Select Case i
Case vbYes
Call Reset

Case vbNo
CheckBox1.Value = False
MsgBox "Bla bla", vbCritical
End Select

ElseIf CheckBox1.Value = False Then
Exit Sub
End If

End Sub

Nejde mi to stáhnout. zaregistruj se a dej přílohu sem.

Není za co.

Může být?

Není za co.

Ještě oprava zbarvení buněk.

číselníky nefundují dokud nejsou splněny podmínky.

Tvl já vůbec nerozumím co chceš.

Co se skrytí a zviditelnění číselníku týče.

skrýt:
Sheets("List1").Shapes("Spinner 1").Visible = False

zobrazit:
Sheets("List1").Shapes("Spinner 1").Visible = True

Jojo já už jsem si poradil, děkuji.

Ono to nebude tak jednoduché.

No je to pěkný hokej.

Na první pohled bych řekl, že máš chybu ve funkci "AND".

Funkce "A" neboli "AND" funguje takto:

=IF(AND(H10="";I10="");1;2)

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje