Příspěvky uživatele
< návrat zpět
Jojo já už jsem si poradil, děkuji.
Ono to nebude tak jednoduché. 
No je to pěkný hokej. 
Na první pohled bych řekl, že máš chybu ve funkci "AND".
Funkce "A" neboli "AND" funguje takto:
=IF(AND(H10="";I10="");1;2)
Ale výsledek má být ze všech sloupců.
Hoď jsem konkrétní příklad, mrkneme na to.
Ahoj kluci (případně holky 
),
mám na vás prosbu o pomoc s vyhledáváním.
Tvořím si formulář na skladové hospodářství. Zasekl jsem se u vyhledávání. Představa je taková, že když začnu psát do jednoho z textboxů (1-5), začne to automaticky vyhledávat v příslušných sloupcích databáze a zobrazovat v TextBox6.
Děkuji za pomoc
A kdyby jste mi to popsali pro debily, abych pochopil jak jste to udělali, tak to by byl už velký level. Moc Děkuji
To samé to rozhodně není. Ty máš číslo posledního obsazeného řádku ve sloupci "A" mínus 3, ale já jsem ti poslal počet obsazených řádků ve sloupci "A".
Pošli pořádnou přílohu s kompletním kódem, část kódu je k ničemu!
POCET = Application.WorksheetFunction.Counta(wsIdata.Range("A:A"))
MsgBox "Zapsáno " & POCET & " nových položek do Sestavy.", vbInformation
Tak hoď přílohu, upravíme to.
A proč to neuděláš takhle?
Sub uloz()
ActiveWorkbook.SaveCopyAs Filename:=Sheets("tisk").Range("A1")
End Sub
A nebo si pro každý sloupec zvol jinné formátování. Bez přílohy se to těžko řeší.
Možná by bylo lepší hodit přílohu.
A když změníš
toto
.NumberFormat = "@"
na toto
.NumberFormat = "# ##0,00"
=SUMIFS($C$3:$C$703;$B$3:$B$703;">="&DATUM(2022;3;1);$B$3:$B$703;"<="&DATUM(2022;3;31))
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A1")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Range("C1").Value - Range("B1").Value < 0 Then
Range("C1").Value = 0
Else
Range("C1").Value = Range("C1").Value - Range("B1").Value
End If
End If
End Sub
Uživatelské menu
\nFormulář 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