Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  65 66 67 68 69 70 71 72 73   další » ... 156

@vovka.
Presne tak.
Keby zadávateľ dal prílohu, tak by som nemusel špekulovať, či ide o číslo alebo o text. A teda som ani nešpekuloval. 5

Čo to znamená "číslo bez formátovania"? 4
Normálne sa zvykne dávať príloha. 10

mona123 napsal/a:

k cemu je dobre ve vasem macru
:="C:\Users\Documents\pomoc.xlsm" ?
děkuji

To je ako príklad. Môžeš si dať svoje.
Ale ako som už povedal. Celé je to na kočku. Dá sa to urobiť aj manuálne.

No čo už. Keď nevieš ani makro skopírovať.
Použi CTRL+C a potom CTRL+V

No nie je to ošetrené na chyby v tvojom makre. Ale celkovo si myslím, že to čo chceš je trochu pofidérne.

Sub obnov()
Static klik As Boolean
Application.DisplayAlerts = False
If klik Then
Workbooks.Open Filename:="C:\Users\Documents\pomoc.xlsm"

Else
ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\pomoc.xlsm"
Call tvoje_makro
End If

klik = Not klik
Application.DisplayAlerts = True
End Sub

No asi je lepšie mať dve makrá. Asi takto.

Sub uloz()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Documents\pomoc.xlsm"
Application.DisplayAlerts = True
End Sub
Sub nahrajZpet()
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Users\Documents\pomoc.xlsm"
Application.DisplayAlerts = True
End Sub


Ale asi sám uznáš, že je jednoduchšie súbor pred "úpravami" najprv uložiť a po nevydarených úpravách zase znovu otvoriť.

Napríklad tlačítkom DELETE na klávesnici. 2

Tento vzorec spočíta v koľkých bunkách je na druhom mieste hviezdička.
xlnc Dík 1

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ý 1

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. 1 Možno to časom pochopí aj zadávateľ. 2

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ť.


Strana:  1 ... « předchozí  65 66 67 68 69 70 71 72 73   další » ... 156

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje