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

Příspěvky uživatele

Další tlačítko sem nepřidával, místo něj je použit ovládací prvek optionbutton, kterým se vybírá tisk do PDF nebo na výchozí tiskárnu. Volba je platná pro všechna tlačítka tisku (jednotlivý, hromadný, tisk listů sept - aug).

Kód k jednotlivým tlačítkům se dá prohlédnout přes kartu vývojář, kde se zvolí řežim návrhu, poté stačí na tlačítko poklepat myší a otevře se editor vba s příslušným kódem.
Pro jeho přenos do jiného souboru je však třeba kódu porozumět a vědět co je nutné upravit (přepsat) pro jeho funkčnost. Kód talčítka spolupracuje i s jinými částmi kódu.

Otestuj

Můžeš poskytnout vzorový soubor?

Upraveno.

Přikládám svůj výtvor. Při tisku všech jmen je zobrazena informace ve stavovém řádku - docela to trvá.
Případně si oprav SK popisky -> Google translator

Nastaven rozsah A1:A10. Samozřejmě musí být tento rozsah bez zámku.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
ActiveSheet.Unprotect
If Target = "" Then
Target.Offset(, 3).Locked = True
Else
Target.Offset(, 3).Locked = False
End If
ActiveSheet.Protect
End Sub

Dim datax As Range
Set datax = Sheets("Archív").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Sheets("Program").Range("A7:E7").Copy Destination:=datax
datax.Offset(, 5).Value = Format(Now, "dd.mm.yyyy hh:mm:ss")
Set datax = Nothing

zkus nahradit fci WEEKNUM za ISOWEEKNUM

Momentálně sem na telefonu tak to neověřím, ale tohle by mělo fungovat

=SUMA(1/COUNTIF(A1:A20;A1:A20))

Maticově (CTRL+SHIFT+ENTER)

Myslíš to takto viz soubor?

Taky by nebylo špatné si ujasnit jaká kritéria se mají počítat AOVI vs AOV1

Jdu už chrápat, zítra musím do práce, tak jen vytváření listů podle jedinečných klíčů.

Ahoj Martine, není to sice úplně bez otevření sešitu (sešit se otevře skrytě na pozadí), ale mělo by to fungovat.
Samozřejmě si uprav cestu k souboru.
Sub Test1()

Dim Zdroj As Workbook
Dim MaxRadek As Long

Set Zdroj = GetObject("c:\Users\Intel i3\Desktop\test.xlsx")

MaxRadek = Zdroj.Worksheets("List1").Cells(Rows.Count, 2).End(xlUp).Row
Debug.Print MaxRadek

Zdroj.Close
Set Zdroj = Nothing
End Sub

To elnino:
Samozřejmě máš pravdu

Myslel si to třeba takto ?
Private Sub CommandButton1_Click()

Pocitadlo = 2
Do While Pocitadlo < 30 '
If Worksheets("List2").Cells(2, Pocitadlo) = "" Then
With Me
List2.Cells(2, Pocitadlo).Resize(4) = Application.Transpose(Array(.Cells(3, 3), .Cells(4, 3), .Cells(5, 3), .Cells(6, 3)))
Exit Sub
End With
Else
Pocitadlo = Pocitadlo + 5
End If
Loop
End Sub

Já to splácal takto:

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje