Příspěvky uživatele
< návrat zpět
Tento vzorec spočíta v koľkých bunkách je na druhom mieste hviezdička.
xlnc Dík 
No veľký zmysel zadania nevidím.
Ale toto by šlo.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If IsNumeric(Target) And Not IsEmpty(Target) Then
On Error Resume Next
Target = Target + InputBox("zadaj prírastok") * 1
End If
End If
End Sub
Anonym napsal/a:
nebo:Application.Goto Cells(x, y), True
Hezký
Makrom vo VBA.
To máš tie tabuľky v ACCESS???
Použi vlastný formát
[>=1000]0 "k";0
@elninoslov
Nič si z toho nerob. Možno to časom pochopí aj zadávateľ. 
Merlin99 napsal/a:
Super priklad
kolikrat sem to taky resil dost nesikovne
marjankaj : pekny reseni pouziju
AL: chtel jsme zkusit ty makra ale kdyz vlozim program do listu nic to nedela co delam spatne? pro jakej sloupec to bere ty barvy? DíK MOC
Veď čítaj to poriadne. Vyber myškou oblasť.
No možno takto. Ale ak tých mien bude priveľa, tak asi nejako makrom. Len tie farby priradiť automaticky asi bude trochu problém.
Do stlpca pomoc si daj vzorec a zoraď to podľa neho.
Format v stlpci pomoc máš tiež nastavený.
No trochu divná predstava. Klávesa ENTER sa nezvykne používať na vymazanie buniek. Ale samozrejme sa to dá. Len aby si sa potom nedivil.
oprava
Takto?
Worksheets("DATA_L1").Range("A2").Copy Cells(prazdny, 1)
rinma napsal/a:
nevim, co jeste mam na tomhle spatne
nejak nikde nemuzu najit, jak to spravne zapisovat
Range("B & n:O" & m).Select
Ak je n=3 a m=5, tak si zapísal toto:
Range("Bn:O5").Select
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články