Příspěvky uživatele

Dobre ste to vysvetlil. Preto som pridal ešte tú MouseUp s aktiváciou, po dokončení presunu nebol aktívny List.

Tento riadok kódu do makra listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Cells(1, 1)) Is Nothing And Cells(1, 1) <> "" Then Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Value = Cells(1, 1)
End Sub

OT: Súhlasím, je správny na zmenený popis problému. Na popis ktorý ste dal ako prvý, je správny prvý vzorec. Zmenili ste totiž v popise úplne všetko, od adries buniek, až po zmenu výrazu "prázdny" a "zapísať niečo" na 0 a >0. Teda technicky sú oba správne.
Musíte sa polepšiť v popisovaní problému, alebo najlepšie vždy prihodiť prílohu

Ak idem podľa toho, čo ste napísal, tak Vám stačí do F8 toto:
=IF(Q8="";"";IF(T8="";"hrají";"dohráno"))
Ale nezdá sa mi, že by ste chcel len toto. To skôr vyzerá, že by ste chcel potom tie výsledky ešte niekam zapisovať, a to už nebude možné urobiť bez makra, tak aby ostali niekde zapamätané, a zároveň zadávacie polia prázdne, pripravené na ďalší zápis. Alebo sa mýlim ?
Príloha by to možno viac objasnila.

Mne to Move proste nechodí (Excel 2013 Pro x64 SK / Windows 8.1.1 Pro x64 SK).
Ani keď použijem zátvorkovú notáciu, ani bez, ani s názvami parametrom "Left:=" ..., ani bez, ani s nepovinnými parametrami.
Fachá u mňa len takáto miniúprava. Doplnil som ešte MouseUp ,aby aj po dokončení posunu ostal focus na Sheete.

Upravená verzia pre tie desatinné miesta. Ale prerábať to ešte na externé súbory a navyše rozdielne, to sa mi fakt nechce. V Exceli sa totiž z externými súbormi nepracuje tak ľahko, vonkoncom nie s množstvom buniek, duplom nie s variabilnými názvami súborov, a pracovať s neznámym počtom neznámo pomenovaných listov v nich je ručná brzda (neustále otváranie súborov). Nechce sa mi nad tým teraz ani premýšľať

To u mňa ale nefunguje, po kliknutí na Header sa okno presunie do ľavého horného rohu a tam sa "trepoce" pri pokuse o hýbanie.

A nemohlo by to byť tak, že sa pri aktivácii toho formu zruší TittleBar ? Nevýhoda, je, že ho nepresuniete.

Ale ja som Vám to urobil, aby to fungovalo autonómne. Stačí sa pozrieť, že aj v liste Hárok1(List2) je jeden riaodk kódu, ktorý to zabezpečuje. Nestačí sa pozrieť iba do modulu

Ja som to robil podobne, a nemusí sa zadávať konečný dátum pri jednodňovej dovče. Rovnako vyfarbí aj pri prechode z mesiaca na mesiac. Víkendy nevyfarbuje, ak je treba farbiť a tie, tak zo vzorca odstrániť
(WEEKDAY(F15;2)<6)*
Podmienené formátovanie
=SUM((WEEKDAY(F15;2)<6)*(F15>=$B$6:$B$20)*(F15<=IF($C$6:$C$20="";$B$6:$B$20;$C$6:$C$20)))>0

OT:
@Vovka:
To v žiadnom prípade nieje vhodné! Keď otvorím takto "vytvorený" ZIP, uvidím adresárovú štruktúru XLM, nie Excelácky súbor. Vznikol by max zmätok. Nezabúdajte, že nie všetci sú IT pokročilejší, a nie každého to napadne, preto by sa muselo uvádzať o tom info v každom príspevku, ktorý by takéto "vylepšenie" použil.

Posielam Vám jedno možné riešenie. Vami želané hodnoty to tam vypisuje ihneď v Label5. Ešte by bolo vhodné zabezpečiť aby všetky ComboBoxy reagovali na zmenu v iných ComboBoxoch, a v prípade nezhody sa vynulovali. Teraz Vám to píše CHYBA v Label5, ak sa tak stane. Rozsah čísel som Vám urobil dynamický, doplnil som Vám aj výpočet priemerov, keďže niesú rovnako zapísané.

PS: Príloha so zošitom Excelu sa posiela tak, že ju zabalíte (skomprimujete) do RAR/ZIP v programe WinRAR/WinZIP,7-Zip,Total Commander ...

zameniť "odosielatel" za emailovu adresu a "heslo" za heslo.
"prijemca" za príjemcovu adresu, a "meno odosielatela" za meno v popise správy. Celé je to nastavené na odosielanie z google mailu.

No veď mne to práve funguje korektne. Pošlite mi teda zošit na mail čo mám uvedený v profile.

Skúste:
Sub saveandsend()
Dim r As Long, N As String
If MsgBox("JSOU ZADANÉ ÚDAJE V POŘÁDKU ?", vbYesNo, "Odeslání do databáze") <> vbYes Then End ' okno z upozorněním o vyčištění formuláře
With ThisWorkbook 'Pro tento sešit
With .Worksheets("Databáze").Range("A2:F2") 'První záznam v DB
On Error Resume Next 'První volný řádek
r = .Resize(Rows.Count - .Row + 1).Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row - .Row + 1
On Error GoTo 0
.Resize(r + 1 - IIf(r > 0, 1, 0), .Columns.Count).Offset(1, 0).Value = .Resize(r + 1 - IIf(r > 0, 1, 0), .Columns.Count).Value 'Posun o řádek dolů
.Value = ThisWorkbook.Worksheets("Datový list").Range("A26:F26").Value 'Poslední zápis na první řádek DB
End With
.Worksheets("Protokol").Copy after:=.Worksheets("Databáze") 'Kopíruj list Protokol
With .Worksheets("Datový list")
N = .Cells(26, 1) & " " & .Cells(26, 3) 'Název pro nový list
End With
With .Worksheets(.Worksheets("Databáze").Index + 1) 'Pro novou kopii
.Name = N 'Nastav název
.Buttons("btnOdeslatUlozit").Delete 'vymaž zkopírované tlačítko
.Range("B2:M44").Validation.Delete 'vymaže seznamy
End With
With .Worksheets("Protokol")
.Activate
.Range("D28,D29,D30,K5,B5,B8,C8,D8,G8,L8,B10,F11,F15,H15,L15,F16,H16,L16,F17,H17,L17,F18,H18,L18,F21,H21,L21,F22,H22,L22,F25,H25,L25,F28,H28,L28,F29,H29,L29,F30,H30,L30,B33,F40,H40,L40").ClearContents ' vymaže zadanou oblast buněk
End With
.Save ' uloží
End With
End Sub
testované iba po riadok .Worksheets("Protokol").Copy ...

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje