Příspěvky uživatele

Plus mínus autobus, takto:
Alebo potom kontingenčka.

Poznámky:
- Makro sa Vám samé určite nespustí. Treba použiť napr timer OnTime
- Tá podmienka nemôže fungovať. Máte tam AND. Teda kontrolujete či je menej ako 10:10 a zároveň či je viacej ako 10:30 :) Nemôže byť naraz aj pod 10:10 a aj nad 10:30. Teda napr:
Sub Záloha() 'Spustí makro pouze v čase od 10:10 do 10:30
If ((CStr(Time) <= "10:10:00") Or (CStr(Time) >= "11:30:00")) Then
MsgBox "ŠPATNÝ ČAS, PROBÍHÁ EXPORT DAT"
Else
Call UložVčera(False)
End If
End Sub
-Postrádam zmysel parametru procedúry UložVčera. Ten parameter nemá žiadny zmysel ani vplyv na nič.

Vedel by som pomôcť makrom. V makre si nastavte minimálny počet čísel formácie a oddeľovač.

Neviem, či to tu je písané, ale prečo potrebujete na všetky záznamy zvláštne listy ? Dá sa to aj jednoduchšie. Alebo úplne bez makra, že si doplníte údaje rovno do Tabuľky tblData a refreshnete KT a karte Údaje (teraz to urobí makro).

Ak nechcete meniť štruktúru tabuľky (zlúčenie buniek), tak v skrytom stĺpci BG (alebo v iných dvoch nezlúčených bunkách) si to vyrátajte a do výsledného skóre kopírujte výsledok z týchto 2 pomocných buniek. Či už vzorcom od "veny" alebo iným.

A nestačilo by to len pomocou KT, nejako takto ?

Šlo by to aj bez cyklu:
Sub zapis_NV_OBA()
Dim strFile_Path As String
strFile_Path = "C:\Users\pkoci\Desktop\" & Range("B1") & ".txt"
Open strFile_Path For Output As #1
Print #1, Join(WorksheetFunction.Transpose(Range("A1:A10")), vbCrLf)
Close #1
End Sub

LukasC: To je preto, že skupinu kopírujete aj s prepojenou bunkou, ktorá je vždy absolútna, reda nemenná, teda rovnaká, teda sa skupiny ovplyvňujú. Alebo je to preto, že Vám skupiny do seba presahujú. Vy potrebujete, aby mala každá skupina svoju priradenú bunku, a na základe jej hodnoty urobte Podmienené formátovanie. Som len na mobile...

Mám pre Vás rozpracovanú kompletne prerobenú verziu, kde nezostane kameň na kameni. Žiaľ nemám zase ani prd času. Ak ešte vydržíte, dodám návrh, no najskôr sa k tomu vrátim v priebehu budúceho týždňa. Zatiaľ mám cca 75%, ale doteraz to bola tá ľahŝia časť...

To je teda riadny bordel v tých makrách a moduloch ... to neskúmam.
Popísané máte v súbore...
https://drive.google.com/open?id=0Byx6TAvkWzVadWFsRGUtb3QtbWM

Mrk na mail ...

Netuším, či Vás vôbec chápem. Ja by som to ale urobil inak. Rozdelil to na Tabuľky, ktoré niesú pomiešané, teda takto (vzorec musí byť žial podstatne dlhší ako som plánoval, lebo MATCH nedokáže vrátiť pozíciu výsledku "jeden z jedného").

Tak a je to tu znovu. Tentokrát to nerobím pre Vás, ale prišlo mi ľúto toho prípadného záujemcu o to pomôcť Vám, ktorý by sa musel predierať mojim kódom.

1. Nemôžete len tak meniť názvy listov. V makre v UserForm1 sú 3x odkazy na list "Osobnosti". Na zmenu toho ste sa vykašľal.

2. Cesta k súborom : Evidentne máte problém zmeniť cestu na všetkých miestach, takže som nadefinoval globálnu premennú v module "modRemoveDiak".

3. Čo to zase stvárate s makrom v liste "Karta klienta" ? Na zmenu obrázku v tomto liste nepotrebujete makro, a to sa ani nespustí, ak je hodnota zmenená vzorcom. Na to je definovaný názov "OBR_Z_VYHLEDANI"

4. Čo je to zase za vzorce v liste "Karta klienta"?

5. Čo je to za rozsah jedného jediného riadku ? Veď hľadáte v jednom riadku riadok, na ktorom sa nachádza hodnota. Tipnem si, vždy to bude riadok 1 (odhliadnime od chyby) ?

...

Toto mi fachá:
Sub Graf()
Dim Rng As Range, Cht As ChartObject, GrafData1 As Long, GrafData2 As Long
GrafData1 = 194
GrafData2 = 220
With ActiveSheet
Set Rng = .Range("A" & GrafData1 & ":B" & GrafData2)
Set Cht = .ChartObjects.Add(.Cells(GrafData1, "D").Left, .Cells(GrafData1 + 5, "D").Top, 450, 250) 'Create a chart
End With
Cht.Chart.SetSourceData Source:=Rng 'Give chart some data
End Sub

Vymente tú časť riadku za
Cells(Rows.Count, 1).End(xlUp).Offset(1) = Date
Predošlý robí problém ak tam nieje žiaden záznam. ALE, to len na okraj, je to zbytočné, lebo Vy takýto nezmysel nepotrebujete. Ja som Vás zle pochopil, a rovno som aj napísal, že mi nedáva zmysel zadanie, a preto je nezmysel aj riešenie.
Skôr to potrebujete nahradiť tým, čo Vám poslal Pavlus. Tu je trošičku upravená verzia:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Long, C As Integer
R = Target.Row: C = Target.Column
If R > 3 And C > 2 And C < 22 Then
Application.EnableEvents = False
If WorksheetFunction.CountBlank(Cells(R, 3).Resize(, 19)) <> 19 Then
If Cells(R, 1) = "" Then Cells(R, 1) = Date
Else
Cells(R, 1).ClearContents
End If
Application.EnableEvents = True
End If
End Sub

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje