Příspěvky uživatele

Strana: 1 ... « předchozí 111 112 113 114 115 116 117 118 119 další » ... 289

Posun range (31.10.2019 11:03)

Áno OFFSET robí psie kusy ak mu dáte parameter vypočítavaný z ROW(), ak mu dáte priamo číslo, nieje problém. O tom som popravde netušil. Každopádne tu máte riešenie maticovým vzorcom, ale najlepšie by bolo použiť KT, mrknite na príklad. Máte tam aj tú novú fnc MAXIFS, ktorú obsahujú nové Office 365.

Posun range (29.10.2019 15:38)

=MAX(IF((OFFSET($H2:$H49;(ROW($I2)-2)*48)<=$E$1)*(OFFSET($H2:$H49;(ROW($I2)-2)*48)>=$C$1)*(A2=OFFSET($G2:$G49;(ROW($I2)-2)*48));OFFSET($O2:$O49;(ROW($I2)-2)*48);""))

Píšem to v teplote a z mobilu, tak snáď je to funkčné alebo aspoň pochopiteľné, ako to s tym Offsetom myslím.

proměnná ve vzorci (28.10.2019 13:58)

Problémom sú úvodzovky v reťazci. Aby VBA poznalo úvodzovky v reťazci (kedže to je riadiaci znak), musia byť 2x. Teda vo Vašom vzorci
Range("A" & x).FormulaLocal = "=IFERROR(VLOOKUP(H" & x & ";Zákazníci!$A$2:$C$1000;2;FALSE);"""")"
Aj tak mi príde "podozrivé", podľa češtiny tipujem na CZ Excel, v tom prípade by mal byť vzorec pri použití FormulaLocal takto
Range("A" & x).FormulaLocal = "=IFERROR(SVYHLEDAT(H" & x & ";Zákazníci!$A$2:$C$1000;2;NEPRAVDA);"""")"
Zmysel mi to dáva ak máte EN Excel. Ale tak možno si to FormulaLocal "prechrústa" aj tak.

proměnná ve vzorci (28.10.2019 1:09)

Je dobré vo VBA vkladať EN ekvivalent vzorcov. Každý potom vie o čo ide. (EN funkcie aj EN oddeľovače)
Range("A" & x).Formula = "=VLOOKUP(H" & x & ",Zákazníci!$A$2:$C$1000,2,FALSE)"
Ale môže vkladať aj CZ/SK názvy a oddeľovače:
Range("A" & x).FormulaLocal = "=VLOOKUP(H" & x & ";Zákazníci!$A$2:$C$1000;2;FALSE)"
Range("A" & x).FormulaLocal = "=SVYHLEDAT(H" & x & ";Zákazníci!$A$2:$C$1000;2;NEPRAVDA)"
Obdobne aj štýl R1C1

Podmíněné formátování (26.10.2019 11:35)

V liste máte jedno makro, ktoré Vám opraví v tomto konkrétnom liste tieto 2 konkrétne typy formátovania v tých 3 konkrétnych stĺpcoch. Ale neštudoval som, či niekde nemá to formátovanie byť. Ide od 2. riadku po posledný použitý riadok (podľa používanej oblasti v liste).

Ochrana pred kopírovaním (25.10.2019 0:59)

To nepomôže. Programíky ako TMAC (Technitium MAC Address Changer) zmenia MAC na akú len chcete, dokonca to umožňuje často aj samotný ovládač sieťovky.

VBA pod Office 365 - jednotky vlastnosti Height? (24.10.2019 17:46)

@losaw: Asi pôjde o bug. Nastavte správnu veľkosť formulára v UserForm_Initialize.

PDF mail (24.10.2019 17:39)

Napr. takto. Ak sa jedná o Gmail, treba mať v účte povolené "menej bezpečné aplikácie". Nastaviť si svoje údaje smtp serveru a heslo, a odosielateľa.

VBA pod Office 365 - jednotky vlastnosti Height? (24.10.2019 13:08)

Skúste prepnúť
Možnosti - Všeobecné - Optimalizovať na zlepšenie kompatibility (hneď hore)

Po Obnoviť nefungujú makrá listu Excel 2016 (24.10.2019 12:56)

No veď vravím, že to môže spôsobovať iná udalostná procedúra. Preto je najlepšie priložiť vždy celý súbor.
Inak dalo by sa to zapísať aj pomocou Offset
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim PredoslaKvalita As String

With ActiveCell
If .Column = 2 And .Row <> 2 And IsEmpty(.Value) Then
PredoslaKvalita = .Offset(-1, 0).Value
If Len(PredoslaKvalita) > 0 Then
.Value = PredoslaKvalita 'Skopíruje predošlú Kvalitu
.Offset(, 1).Activate
End If
End If
End With
End Sub

Po Obnoviť nefungujú makrá listu Excel 2016 (24.10.2019 10:00)

Ak makrom znova vyberáte 1.List, znamená to, že v 2.Liste je tiež nejaké makro. Aké ? Rovnako to môžu spôsobovať aj iné udalostné makrá o ktorých sa nezmieňujete (Calculate, Change, ...)

PS: Inak makro podľa popisu, je podľa mňa postavené zle na Selection_Change. Lepšie by bolo Change.

PS2: Tak prvé PS beriem zatiaľ späť. Ale ako tak na to pozerám, neprišiel som na rozumný dôvod, prečo takto dopĺňať chýbajúce hodnoty v stĺpci a navyše pri prejdení cez prázdnu bunku posúvať kurzor. Priložte "ne"-funkčnú prílohu a popis čo požadujete.

Export modulů (11.10.2019 10:59)

Ale išlo, len treba povedať, ako ten druhý zošit identifikujete. Má niečo v názve, čím sa odlíši od iných, prípadne zároveň otvorených súborov ?

Export modulů (11.10.2019 8:26)

Nie. Použite to hromadné makro z odkazu.
Pridal som tam iba
If vbcompSource.CodeModule.CountOfLines = 0 Then
pred priradenie textu kódu v module, ak by náhodou bol modul bez kódu.

Export modulů (11.10.2019 7:56)

A čítal ste tam toto:

Just make sure, following things are done before running this macro.

VB Editor > Tools > References > (Check) Microsoft Visual Basic for Applications Extensibility 5.3

File -> Options -> Trust Center -> Trust Center Setttings -> Macro Settings -> Trust Access to the VBA Project object model.

funkce: Na kolikatem miste je daný posledni znak (11.10.2019 7:45)