Příspěvky uživatele
< návrat zpět
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.
@losaw: Asi pôjde o bug. Nastavte správnu veľkosť formulára v UserForm_Initialize.
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.
Skúste prepnúť
Možnosti - Všeobecné - Optimalizovať na zlepšenie kompatibility (hneď hore)
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
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.
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 ?
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.
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.
A1 = Ahoj jak; se mas! ja dobře! tak to sem rada
v tomto pripade hledat znak ; a vrátit číslo 27.
no to asi ťažko...
Problém je aj v tom, že to je text (!), a nie dátumo-čas.
Teda nematicovo
=SUM(IF(FREQUENCY(INT(B2:B100);INT(B2:B100))>0,1;1))-1
=SUMA(KDYŽ(ČETNOSTI(CELÁ.ČÁST(B2:B100);CELÁ.ČÁST(B2:B100))>0,1;1))-1
ak tam je dátum, ale nie vklad, tak sa dátum nemá započítať, teda maticovo:
=SUM(IF(FREQUENCY(IF(A2:A100<>"";INT(B2:B100););INT(B2:B100))>0;1))-1
=SUMA(KDYŽ(ČETNOSTI(KDYŽ(A2:A100<>"";CELÁ.ČÁST(B2:B100););CELÁ.ČÁST(B2:B100))>0;1))-1
ak tam je vklad, ale nieje dátum, teda sa nemá aký započítať, FREQUENCY/ČETNOSTI to berie ako 0, a tú ignoruje, teda tento prípad rieši prvý vzorec.
EDIT: Predošlé vracajú o 1 viac, teda buď započítava aj tie prázdne alebo FALSE/NEPRAVDA v podmienke, alebo FREQUENCY vracia pole o 1 väčšie, riešením by bolo vždy odrátať 1 na konci.
Alebo oprava maticovo :
=SUM(--(FREQUENCY(IF((A2:A100<>"")*(B2:B100<>"");INT(B2:B100);"");INT(B2:B100))>0))
=SUMA(--(ČETNOSTI(KDYŽ((A2:A100<>"")*(B2:B100<>"");CELÁ.ČÁST(B2:B100);"");CELÁ.ČÁST(B2:B100))>0))
Iba ak to bude prkotina. Nasľuboval som už kadekomu hory-doly, a nemám kedy (často ani chuť) skoro nič urobiť ...
Pošli to na mail.
Tak keď tam nieste, do príchodu nič nepíšte. Prečo tam potrebujete okrem červeného označenia mať ešte aj napísané SV ? Vzorec v O48 presne spočítava "SV". Nerozumiem Vám. Vyplňte a pošlite prílohu s príkladom čo máte, a čo chcete mať.
Je to môj kód z 26.2.2018. Myslím, že bude stačiť vložiť toto
strPath = strPath & Format(Date, "yyyy.mm.dd") & Application.PathSeparator
If Len(Dir(strPath, vbDirectory)) = 0 Then MkDir strPath
Pred riadok
Application.DisplayAlerts = False
No tak to by bolo treba celé prerobiť. Ale tie 3 veci napr takto:
Private Sub PrepisTextBox()
Dim Z()
With Worksheets(Data)
Z = .Cells(i, 1).Resize(, 5).Value
TextBox1.Text = Z(1, 1)
If IsDate(Z(1, 2)) Then TextBox2.Text = Format(Z(1, 2), "d.m.yyyy") Else TextBox2.Text = Z(1, 2)
If IsDate(Z(1, 3)) Then TextBox3.Text = Format(Z(1, 3), "d.m.yyyy") Else TextBox3.Text = Z(1, 3)
TextBox4.Text = Z(1, 4)
CheckBox1.Value = UCase(Z(1, 5)) = "ANO"
End With
End Sub
Private Sub Editace()
Dim Z(1 To 1, 1 To 5)
Z(1, 1) = Int(TextBox1.Text)
If IsDate(TextBox2.Text) Then Z(1, 2) = DateValue(TextBox2.Text) Else Z(1, 2) = TextBox2.Text 'zapisovat datum
If IsDate(TextBox3.Text) Then Z(1, 3).Value = DateValue(TextBox3.Text) Else Z(1, 3) = TextBox3.Text 'zapisovat datum
Z(1, 4) = TextBox4.Text
Z(1, 5) = IIf(CheckBox1, "ANO", "NE") 'zapisovat ANO / NE
Worksheets(Data).Cells(i, 1).Resize(, 5).Value = Z
End Sub
Private Sub Najdi_Click()
Dim c As Range
Set c = Worksheets(Data).Columns(4).Find(TextBox17.Value, LookIn:=xlValues)
If c Is Nothing Then
prompt = MsgBox("Zadaný údaj nebyl nalezen", vbOKOnly)
Else
i = c.Row
NajdiDalsi.Enabled = True
End If
If i > 3 And Předchozí.Enabled = False Then Předchozí.Enabled = True
If i = 3 And Předchozí.Enabled = True Then Předchozí.Enabled = False
PrepisTextBox
End Sub
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články