Příspěvky uživatele
< návrat zpět
Super, moc děkuju. 
Aha, zapomněl jsem si přiřadit makro k tlačítku. Prosím šlo by ještě zapsat do makra, aby kopíroval pouze hodnoty?
Děkuji
Děkuji za optimalizaci. Bohužel mi to nezapisuje kalendářní týden.
Dobrý den šlo by toto makro na archivaci dat napsat jednodušeji? A jak mám udělat, aby mi to na každý zkopírovaný řádek nakopírovalo kalendářní týden?
Děkuji.
Dobrý večer,
děkuji na to jsem se díval, raději bych makro, ale ne takové, které mi vypíše na list seznam všech listů. Potřeboval bych vyskakovací okno.
Dobrý den,
šlo by udělat makro, které by vypsalo seznam listů a při kliknutí na některý z nich by rovnou na něj odkázal?
V případě skrytých listů, by se nejprve zeptal na heslo a po zadání správného hesla by určitý skrytý list zobrazil.
Děkuji
Super, děkuju.
Dobrý den,
k odemykání používám vaše makro, bohužel není dodělané.
Když dám Storno makro dále pokračuje v zamykání/odemykání a v případě, že zadám špatně heslo při odemykání, tak to nehodí MsgBox, ale chybu. Mohli by jste mi pomoc?
Sub Zamknout()
Dim sPass As String
sPass = InputBox("Heslo k odemknutí listu:", "Zamknout list")
Dim sh As Worksheet
If sPass = InputBox("Zadejte heslo ještě jednou:", "Potvrdit heslo") Then
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:=sPass
Next
Else
i = MsgBox("Heslo zadané pro potvrzení není shodné.", vbOKOnly + vbExclamation)
End If
End Sub
Sub Odemknout()
Dim sPass As String
sPass = InputBox("Heslo:", "Odemknout list")
Dim sh As Worksheet
If sPass = False Then
For Each sh In ActiveWorkbook.Sheets
sh.Unprotect Password:=sPass
Next
' MsgBox("Zadané heslo není správné.", vbOKOnly + vbExclamation)
End Sub
Moc děkuji, je to paráda.
Dobrý den,
udělal jsem si jednoduché makro na převod čísla na procento.
Např. 50 -> 50,0 %
Jen proto, že mám tabulku s mnoha čísly a potřeboval bych to hromadně převést do formátu "0.0 %". Bohužel při standardním naformátování buněk se mi z čísla 50 -> 5000,0 %
Makro funguje, ale pouze v aktuální buňce.
Potřeboval bych, aby mi makro převedlo oblast kterou si označím.
Všiml jsem si, že kalendář nezobrazuje velikonoční pátek. 
Je to bomba, moc děkuji elninoslov
Dobrý den,
našel jsem Makro na generování čísel.
Potřeboval bych ho upravit tak, aby generoval čísla do vybrané oblasti (Range(B1:B10,D1:D10)).
Bohužel mi nejde poslat příloha, ale makro vypadá takto:
Sub Generator_cisel()
lbnd = InputBox("Zadejte spodní hranici")
ubnd = InputBox("Zadejte horní hranici")
nudp = InputBox("Stiskni OK pro celá čísla nebo D pro desetinná místa")
If UCase(nudp) = "D" Then
With Selection
.ClearContents
.NumberFormat = "#,##0.00"
End With
For Each Cell In Selection
Cell.Value = Rnd() * (ubnd - lbnd) + lbnd
Next Cell
Else
With Selection
.ClearContents
.NumberFormat = "#,##0"
End With
For Each Cell In Selection
Cell.Value = Int(Rnd() * (ubnd - lbnd + 1) + lbnd)
Next Cell
End If
End Sub
Děkuji za pomoc
Není to v té samé buňce, ale třeba Vám to pomůže.
Dobrý den,
našel jsem si zde spousty užitečných předloh. Také jste mi tu moc pomohli. Všem moc děkuji. Všiml jsem si, že tu spousty lidí řeší skladové hospodářství. Základ jsem splácalal, ale už jsem v koncích. Mám čtyři karty: Vyhledat, Uskladnit, Vyskladnit a Pozice. Z karet Vyskladnit a Uskladnit se data kopírují do karty Pozice.
Karta Vyhledat by měla říci zda-li je produkt ve skladu nebo je vyskladněný. Bohužel nevím jak udělat, aby makro produkt našlo v kartě Pozice a vyskladnilo. Bohužel mi to nešlo uložit se zobrazením obrázků. Děkuji za pomoc.
Uživatelské menu
\nMenu
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.
RSS nejnovější články