• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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.

Ahoj,

já to zase pochopil, že potřebuje data zálohovat a ne přemazat. Třeba by to mohlo být takto.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse