Příspěvky uživatele

Viete o tom, že tá časť za "Users" NIEJE názov PC ale názov užívateľského účtu na PC?
Každopádne Lugr-ove riešenie môžete zakomponovať jednoduchou úpravou jediného riadku
CESTA = "C:\Users\" & CreateObject("WScript.Network").ComputerName & "\Documents\MEGA\import\Report"
EDIT:
Neskúšam, ale len od pohľadu Vám to nemôže fungovať. Za cestou Vám chýba lomítko. V opačnom prípade bude názov súboru začínať "ReportReport ..."

Opäť nejasný dotaz.
Chcete kopírovať skutočne iba hodnoty (výsledky vzorcov) alebo aj vzorce?
Ak aj vzorce, tak tie vzorce odkazujú iba na ten konkrétny zošit v ktorom sa nachádzajú, alebo aj na iné zošity?
Takéto kopírovanie iba makrom.
Nemôžete kopírovať celé listy? (ručne)
Nemôžete kopírovať celý zošit? (ručne)
...

Nejasné...

Viete, že je to dosť riskantné?

Skúšať VÝHRADNE NA KÓPII CELÉHO ADRESÁRA !!!

Ak je tých súborov viac, je výhodné použiť novú inštanciu Excelu. Približne takto. Je tam nejaká kontrola zle zadaného stĺpca, neexistujúceho listu. A to som tam ešte nedal kontrolu, či je súbor už otvorený, a či pri ukladaní nedošlo k chybe. Počet vecí, na ktoré treba myslieť je veľa...

Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Range("A1").Value = DateValue(Replace(TextBox6.Text, ".", "/"))
If Err.Number <> 0 Then MsgBox "Nie je zadaný dátum!", vbCritical, "Chyba !"
On Error GoTo 0
End Sub

Nevysvetlil ste to dostatočne. Takže potrebujete vypísať pod seba všetky dátumy, ktoré obsahujú či už "T" alebo "S"? Tak potom takto. A čo sa týka fnc FILTER, nemám Office 365/2021, taklen tipnem:
=FILTER($C$4:$AG$4;($C$3:$AG$3="T")+($C$3:$AG$3="S")>0;"")

Akú máte verziu Office? Kam sa majú vypísať tie dátumy? O koľko asi ide väčšinou dátumov na výpis? Oblasť C3:AG3 sa rozširuje?

Ak nemáte funkciu FILTER (Office 365, 2021), tak matica na vopred určenej oblasti:

Môžete priložiť taký súbor na ukážku? Ale bez zmien. Ide napr. o to, či je to ANSI alebo UTF-8, či sú vedľa v riadku iné stĺpce, a pod. ...
Dá sa to aj bez makra pomocou PQ (PowerQuery). Aká verzia Excelu to bude vykonávať (číslo a jazyk)? Všetky súbory sú v rovnakom adresári? "Čísla" s bodkou treba prevádzať na čísla s čiarkou?

Edit:
Príklad oboch variantov v prílohe.

Sheets("test").Cells(j, 32).Formula = "=SUBSTITUTE(AC" & j & ",AC" & j & ",AC" & j & "&"" text.rtf"")"
Sheets("test").Cells(j, 32).FormulaLocal = "=DOSADIT(AC" & j & ";AC" & j & ";AC" & j & "&"" text.rtf"")"
ale prečo tam dávate to SUBSTITUTE/DOSADIT ???
Veď, keď ide len o pridanie daného textu vzorcovo, tak stačí
Sheets("test").Cells(j, 32).FormulaLocal = "=AC" & j & "&"" text.rtf"""

???
Makro "stitky_format_1" mi príde trošku rýchlejšie ako "stitky_format_2". Merge vs Copy, ostatné rovnaké.
Ale záleží čo chcete s tým robiť. Vždy presne daný počet štítkov do skupiny 5, potom vždy 2 skupiny pod sebou, vždy všetko v dvoch stĺpcoch a vždy iba 1 strana? Budú tam počas formátovania data? Môže nastať, že budú pred tým zlúčené bunky inak?...

Poznám 2 pani, podľa ktorým mien som kedysi vymyslel termín "Ha-Ha odpoveď" (obe začínajú na "Ha..."). Viete čo termínom označujem? Ak sa opýtam "To auto je zelené alebo modré?" dostanem odpoveď "Áno".

Priložte nejakú prílohu, kde to bude jasnejšie.

Myslíte inkrementáciu hodnoty v bunke? Samostatne pre zaškrtnutie aj pre odškrtnutie (nejaký counter)? Pretože v ostatnom prípade musíte vždy meniť obe, veď sú predsa závislé na rovnakom checkboxe.

Pr.
Ale ešte by som do toho zapracoval na Vašom mieste aj sviatky.

Dim bDISABLE_CLICK As Boolean
Private Sub CheckBox1_Click()
If bDISABLE_CLICK Then Exit Sub
bDISABLE_CLICK = True
If Not CheckBox1.Value Then
If MsgBox("Při vypnutí budou zůstávat všechny hodnoty stále vyplněny. Pokračovat?", vbYesNo + vbExclamation, "Varování!") = vbNo Then CheckBox1.Value = True: GoTo KONEC_CLICK
Else
If MsgBox("Při zapnutí dojde k vynulování všech uložených hodnot. Pokračovat?", vbYesNo + vbExclamation, "Varování!") = vbNo Then CheckBox1.Value = False: GoTo KONEC_CLICK
Reset
End If
KONEC_CLICK:
bDISABLE_CLICK = False
End Sub

Je možnosť použiť a featurku EVALUATE a funkciu volanú z bunky. Má to jednu výhodu, že Vám dovolí 1x Undo.
Function RGBCOLOR(RNG As Range, R As Range, G As Range, B As Range) As Variant
Application.Volatile
Evaluate "RGBEVAL(""" & RNG.Address(1, 1, 1, 1) & """," & rgb(R.Value, G.Value, B.Value) & ")"
End Function
Sub RGBEVAL(RNG As String, colRGB As Double)
Range(RNG).Interior.Color = colRGB
End Sub

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje