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

Příspěvky uživatele

Skúste toto. Neodlaďoval som, ale ak je to na prvú správne, tak neverím, že to bude trvať dlhšie ako 0,5 sek.
Sub DelDup2()
Dim D(), V(), R As Long, RV As Long, i As Long, s As Long, Col As New Collection, Kopiruj As Boolean

With List1
R = .Cells(Rows.Count, 1).End(xlUp).Row - 1
If R = 0 Then MsgBox "No data!", vbExclamation: Exit Sub
D = .Range("A2:Z2").Resize(R).Value
ReDim V(1 To R, 1 To 26)
End With

For i = 1 To R
If IsNumeric(D(i, 9)) Then
On Error Resume Next
Col.Add RV + 1, CStr(D(i, 9))
Kopiruj = Err.Number = 0
On Error GoTo 0
Else
Kopiruj = True
End If

If Kopiruj Then
RV = RV + 1
For s = 1 To 26
V(RV, s) = D(i, s)
Next s
Else
s = Col(CStr(D(i, 9)))
V(s, 6) = V(s, 6) + D(i, 6)
End If
Next i

With List2
Intersect(.Range("A:Z"), .UsedRange.Offset(1, 0).EntireRow).ClearContents
.Cells(2, 1).Resize(R, 26).Value = V
End With
End Sub

Čo je to za program? Priznám sa, že mne sa konkrétne toto skúmať nechce, ale ak by sa niekomu chcelo, info o programe mu určo bodne

Skúste pohľadať niečo ako "Java Portable". Napr. tento prvý odkaz na Google.

A na čí príspevok reagujete? Ktorá verzia Vám nejde? Mne idú obidve. A "nejde" znamená čo? Vypíše nejakú chybu? Nepripočíta? Pripočíta zle? ...
Najskôr je to "HP20210012" potom "HP202100120". Logicky sa to má meniť predsa na "HP20210013", nie? Čo tá pridaná "0" na konci? Koľko tam má byť teda tých čísel okrem roku 2021?
Sub Mazání()
Dim JmenoS As String
With Sheets("Doklad")
JmenoS = .Range("Y3")
If MsgBox("Chceš údaje z Dokladu " & JmenoS & " smazat ?", vbYesNo) = vbYes Then
.Range("BN2").ClearContents
.Range("Y3") = Left$(JmenoS, Len(JmenoS) - 8) & Right$(JmenoS, 8) + 1
End If
End With
End Sub

Bez prebliknutia, a je jedno čo je pred číslom.
Sub test2()
Dim Hodnota As String
Dim Bunka As Range
Set Bunka = Worksheets("Pokladní doklad").Range("B2")

Hodnota = Bunka
Bunka = Left$(Hodnota, Len(Hodnota) - 8) & Right$(Hodnota, 8) + 1
End Sub

V GF je výpočet hodín, koľko to bude trvať. A vo vzorci je pripočítaný aj čas na C. Z toho vylezie číslo 48. Ale to je už aj s tým C. Takže nie 48xP. Prečo je v tabuľke 48xP a následne 2xC, keď to číslo 48 už ráta aj s C? Chápem to správne???

EDIT:
A ešte "drobnosť". V GF Vám nevychádzajú celé hodiny. Je to desatinné číslo. Vy ste iba desatiny skryli formátom. Ale Excel, aj prípadné vzorce ktoré budú zobrazovať P C M, rátajú so skutočnou hodnotou - desatinami. Takže kam sa to má zaokrúhľovať? Ak chcete zobrazovať celé hodiny, nemôžete rátať s desatinami hodiny, lebo by vychádzalo, že v danú hodinu ste končili 1 projekt ale začali zároveň aj 2.

EDIT2:
Príklad. Ale je tam problém so zaokrúhľovaním. Musia sa samostatne zaokrúhľovať hodiny P a hodiny C, a následne zaokrúhlené zrátať. Čím môže vznikať nepresnosť. No takto by sa to dalo navzorcovať.

Tak si do oblastí pridajte ešte F62 a F64. Bez makra by sa dalo použiť riešenie, že na druhom liste budete mať rovnakú tabuľku, hodnoty navzorcované z pôvodného listu. Okrem inkriminovaných. A tlačiť budete ten druhý list.

Máte to naozaj premyslené ?
P sa zapisuje aj keď je Type S?
V celom stĺpci sa vždy nachádza iba jediná zaplnená bunka? Teda vždy sa pracuje výhradne na jednom Project?
Ak to má byť vzorcom, a je tam viac Project rovnakého Type, ako sa dá určiť v ktorom riadku sa má to P vypĺňať? Dátum tam totiž nieje. Takže to čo je skôr?
Prečo je medzi M-kami jedno N?
Koľko C sa má dopĺňať? Over Charger je 120 a doplnené sú 2 C, takže deleno 60 ?
Podľa kalkulovaného času - to znamená čo? 48xP v 9.riadku zodpovedá ktorej hodnote?
...
Celej tbl žiaľ nerozumiem, snáď niekto...

Vypnite
Súbor - Možnosti - Vzorce - Čísla formátované ako text alebo s apostrofom na začiatku

A to šetrenie batérie? Nemáte zapnutý šetriaci režim? V Nastaveniach dajte hľadať slovo "bat", a medzi nájdenými položkami by malo byť niečo ako "Optimal. využív. batérie", tam pozrite, či nie je náhodou Outlook. Ďalej sa skúste pohrabať obdobne v "Batéria" - "Spravovanie šetrenia energie v aplikáciách". Ja tam mám "Spiace aplikácie", "Aplikácie v hlbokom spánku", "Aplik. neprep. do režimu spánku" tak nastaviť podľa významu.
V telefóne Outlook nemám, ale aj ten možno v účte vyžaduje tie MS aplikácie, viď screen.

V nastaveniach Gmailu máte povolené "Menej bezpečné aplikácie"? Google toto povolenie niekedy rád prepne na OFF.

EDIT:
Našiel som ešte jednu zaujímavú "featurku", ktorú ste nespomínal. Uvádzam v pôvodnom EN znení:

@veny: Používajte postup od MePExG. Tento "týpek" je proste Top.

@Alfan: A určite to skúšate na prílohe z 25.3.2021 18:49? Podľa štruktúry, ktorú popisujete, ale nemáte jeden súbor "zakazky.csv" v adresári s hlavným excelovským súborom "naklady.xlsm". Namiesto toho máte asi viac súborov zákaziek v podadresári "zakazky". V tom prípade treba prerobiť dotaz, lebo je urobený iba na jeden súbor. Na viac súborov je stavaný iba dotaz ťahajúci dátové súbory z podadresára "data".

Dynamická cesta podľa umiestnenia, sa dá v nastavovacích Tabuľkách urobiť vzorcom:
CestaData
=LEFT(CELL("filename";$A$1);FIND("[";CELL("filename";$A$1))-1)&"Data\"
=ZLEVA(POLÍČKO("filename";$A$1);NAJÍT("[";POLÍČKO("filename";$A$1))-1)&"Data\"

CestaZakázky
=LEFT(CELL("filename";$A$1);FIND("[";CELL("filename";$A$1))-1)&"zakazky.csv"
=ZLEVA(POLÍČKO("filename";$A$1);NAJÍT("[";POLÍČKO("filename";$A$1))-1)&"zakazky.csv"

Veď roky si dáte do stĺpcov v KT...

Tak vzorce by sa dali maticové. Ale pozor! Niektoré dátumy v M nie sú dátumy. Ak sa upravia na dátumy (napr. 14.102016, 16.03.2020, ....). "Ukončená" nieje to isté ako "Ukončená " ... A ako chcete určovať dátum v T??? Veľká nekonzistencia dát.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje