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

Příspěvky uživatele

Tak to testni, zatím v rámci jednoho měsíce.

@marjankaj
šak píše Všechny verze fungují jak mají a děkuji za pomoc.

@Opičák
Dík

Včera jen tak na rychlo jsem upravil a již neodzkoušel.

Proč to neděláš rovnou TB při zápisu do buňky?

Není tam zatím kombinace ranní noční pro kontrolu.
Musím to pořádně promyslet.

Bude se kontrolovat přechod měsíců pro počet směn?

Tento řádek
If IsEmpty(Cells(radek, 2)) And rowempty = False Then
nahradit tímto
If Cells(radek, 2) = "" And rowempty = False Then

Pro H13

=KDYŽ(H11=0;0;KDYŽ(H11="";0;KDYŽ(((H12-H11)*24)>5;((H12-H11)*24)-0,5;KDYŽ(((H12-H11)*24)<=5;(H12-H11)*24;0))))

Na konec mra vlož

ActiveSheet.Range("B2:G11") = ""
ActiveWorkbook.Close True

Smaže oblast, sešit uloží a zavře

Vlož do modulu listu

Sub PosunRadkyDoPrazdnych()

Dim rowempty As Boolean
Dim emptyrow As Integer, radek As Integer

Application.ScreenUpdating = False

rowempty = False

For radek = 6 To Cells(Rows.Count, "B").End(xlUp).Row

If IsEmpty(Cells(radek, 2)) And rowempty = False Then
emptyrow = radek
rowempty = True
End If

If rowempty = True And Not Cells(radek, 2) = "" Then
Range("A" & emptyrow & ":K" & emptyrow).Value = Range("A" & radek & ":K" & radek).Value
Range("A" & radek & ":K" & radek).Value = ""
rowempty = False
radek = emptyrow
End If
Next radek
Application.ScreenUpdating = True
End Sub

No já pokud již mám sloupce naformátovány na formát který potřebuji tak po zápise do něj se mi hodnota zobrazí jak mám nastaveno.

Zkus si ty sloupce prvně naformátovat a pak do nich zapisuj.

Použij fci HODNOTA pro tu finální buňku.

Fušovat do toho může kdo chce, třeba se najde jednodušší řešení.

UserForm1.TextBox1 = Cells(Rows.Count, "A").End(xlUp).Row
nahraď
UserForm1.TextBox1 = cells(Cells(Rows.Count, "A").End(xlUp).Row, 1).value
Zobrazovat se bude hodnota z posledního řádku sloupce A (A=1)

Mě to žádnou chybu nehlásí.
Posílám upravenou přílohu i pro kontrolu 5 smeny pred, za i uprostřed. Kontrola ranní směny funguje jak má.

Nicméně na to koukni teď.

Tak jsem to zkusil ještě na tvé příloze a taky dobrý.

Tak jsem to zkoušel a chová se korektně.

Příloha je velká nemám jak přiložit.

Tak alespoň prntscrn.

Tak nevím proč by to mělo dělat co ty děláš.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje