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

Příspěvky uživatele

Normálně mi to funguje. Bohužel já to zkouším na E2016.

Zde ještě odkaz.

https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa221844(v=office.11)

Private Sub CommandButton1_Click()

Dim Datum As String

Datum = Range("C2")

Range("A2").AutoFilter Field:=1, Criteria1:=Datum

End Sub

Musíte vložit přílohu, my nevíme, co na skrytých listech od makra chcete.

Takhle tu vaříme z vody.

Takže tahle.

Ještě jsem našel tohle, ale s tím by si musel někdo pohrát, to už je pro mě vyšší dívčí.

Takže třeba něco takového?

Už mi zase nejdou ukládat přílohy.

Tak alespoň takhle.

Sub Filtr()

Dim strName As String

strName = Range("A1")
Selection.AutoFilter Field:=1, Criteria1:="=*" & strName & "*", Operator:=xlAnd

End Sub

Makro by se mělo spouštět automaticky při zadání čísla do sloupce E

Např.

Do buňky E3 napíšu číslo 14 a makro musí udělat toto:

1. najít číslo 14 (resp. číslo 10) v tabulce na listě Data
2. zapsat výsledek (2000) do buňky F3

A takhle to pokračuje dál

E4 -> F4
E5 -> F5
atd.

Nicméně jak už jsem psal prvně, můžu nastat situace, že když nebudu znát číslo do buňky E (např. E6) zapíši si výsledek do buňky F6 ručně. To je pro případ, že by mělo makro snahu prěpisovat zadaný výsledek ručně.

Dobrý den,

tak zase jednou prosím já o pomoc.

Potřeboval bych funkci sumifs přes makro tak, aby když do sloupce E na listu2 napíšu číslo, tak se mi zapíše vedle do sloupce F výsledek z tabulky na listě DATA. Číslo ve sloupci E nutno nejprve matematicky zaokrouhlit(>=5 nahoru, <5 dolů).

Může nastat situace, že ve sloupci E nebude žádné číslo a výsledek si zapíšu ručně.

Snad je to srozumitelné.

pro lepší příklad jsem vložil funkci.

Myslím, že to co chcete není úplně šťastné řešení. Nicméně bohužel nevím jak Vám pomoci.

Pokud potřebujete síťovou složku do které bude mít přístup více osob, řešil bych to více diskovým NAS a nastavte si automatické klonování disků. tak budete mít nepřetržitou zálohu, kdyby se náhodou disk porouchal. Já mám dobrou zkušenost se Synology. Jednoduchý a na internetu spousta návodů na nastavení.

Tak si zálohujte data na internetové uložiště. (např. OneDrive, Google Disk, ...)

To je tím, že tam máš samý Select

nahraď toto:

Sub Clear()
Sheets("1").Select
Range("A1:B5").Select
Selection.ClearContents
Sheets("2").Select
Range("A1:B5").Select
Selection.ClearContents
Sheets("3").Select
Range("A1:B5").Select
Selection.ClearContents
End Sub

tímto:

Sub Clear()
Sheets("1").Range("A1:B5").ClearContents
Sheets("2").Range("A1:B5").ClearContents
Sheets("3").Range("A1:B5").ClearContents
End Sub

Moc nechápu, bylo by lepší dát přílohu. Nicméně tady máte něco pro inspiraci.

Napadá mě toto.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje