pokud najde ještě nesmazaný list1, aby se zeptal, zda ho má taky odstranit, nebo smazat jen data.
Ten výmaz dat se týče listu "List1" nebo listu "Sestava"?
Nalezeno 162 výsledků hledání
Přejít na rozšířené vyhledávání
- 24 dub 2022 15:46
- Fórum: Kancelářské balíky
- Téma: Smazání dat s podmínkou Vyřešeno
- Odpovědi: 8
- Zobrazení: 1374
- Pohlaví:
- 22 dub 2022 11:04
- Fórum: Kancelářské balíky
- Téma: Vytažení dat z konkrétních buněk a z hodně sešitů do jedné tabulky
- Odpovědi: 2
- Zobrazení: 1507
- Pohlaví:
Re: Vytažení dat z konkrétních buněk a z hodně sešitů do jedné tabulky
Zde se nabízí řešení pomocí makra. Řeší se to tu každou chvíli. Zkus pohledat.
Ve valné většině je autorem řešení ELNINOSLOV (pro jednodušší hledání).
Nebo přílož nějaký vzorový soubor(y), nebo lepší popis o umístění jednotlivých dat v souboru (na listě).
Pokud tedy Tvůj požadavek stále trvá.
Ve valné většině je autorem řešení ELNINOSLOV (pro jednodušší hledání).
Nebo přílož nějaký vzorový soubor(y), nebo lepší popis o umístění jednotlivých dat v souboru (na listě).
Pokud tedy Tvůj požadavek stále trvá.
- 21 dub 2022 11:01
- Fórum: Kancelářské balíky
- Téma: Spuštění makra pod podmínkou Vyřešeno
- Odpovědi: 4
- Zobrazení: 1241
- Pohlaví:
Re: Spuštění makra pod podmínkou Vyřešeno
Do kódu přidáš jen další podmínku Sub TestListu() Dim List As Worksheet Dim Existuje As Boolean For Each List In ThisWorkbook.Worksheets If List.Name Like "List1" Then Existuje = True Exit For End If Next List If Existuje = False Then MsgBox "List ""List1"" neexist...
- 21 dub 2022 00:03
- Fórum: Kancelářské balíky
- Téma: Spuštění makra pod podmínkou Vyřešeno
- Odpovědi: 4
- Zobrazení: 1241
- Pohlaví:
Re: Spuštění makra pod podmínkou Vyřešeno
Sub TestListu() Dim List As Worksheet Dim Existuje As Boolean For Each List In ThisWorkbook.Worksheets If List.Name Like "List1" Then Existuje = True Exit For End If Next List If Existuje = False Then MsgBox "List ""List1"" neexistuje!" & vbNewLine & ...
- 13 dub 2022 21:26
- Fórum: Kancelářské balíky
- Téma: Kde stáhnout "Microsoft Office 2007 Enterprise"
- Odpovědi: 7
- Zobrazení: 2071
- Pohlaví:
Re: Kde stáhnout "Microsoft Office 2007 Enterprise"
Ulož.to je toho plný.
- 09 dub 2022 14:45
- Fórum: Kancelářské balíky
- Téma: Pomoc se zápisem Vyřešeno
- Odpovědi: 1
- Zobrazení: 867
- Pohlaví:
Re: Pomoc se zápisem Vyřešeno
Private Sub Worksheet_Change(ByVal Target As Range) If Cells(Target.Row, 17).Value = "1" And Cells(Target.Row, 18).Value = "" Then Cells(Target.Row, 18) = Now ElseIf Cells(Target.Row, 17).Value = "" And Not IsEmpty(Cells(Target.Row, 18).Value) Then Cells(Target.Row, 18...
- 27 bře 2022 17:12
- Fórum: Kancelářské balíky
- Téma: EXCEL - automatické vypĺňanie
- Odpovědi: 14
- Zobrazení: 2728
- Pohlaví:
Re: EXCEL - automatické vypĺňanie
Chápu správně, že ty vynechané indexy 6,9,66,69,96,99 platí pro A i B? Pokud ano, tak: Sub vyplneni_Index_A_B() Dim posun As Integer Dim i As Integer, x As Integer Dim Index() ReDim Index(1 To 2, 1 To 3) Index(1, 1) = "A" Index(1, 2) = 84 'min Index(1, 3) = 99 'max Index(2, 1) = "B&qu...
- 26 bře 2022 22:07
- Fórum: Kancelářské balíky
- Téma: EXCEL - automatické vypĺňanie
- Odpovědi: 14
- Zobrazení: 2728
- Pohlaví:
Re: EXCEL - automatické vypĺňanie
Ahoj, napadla mě taková menší změna v Atariho kódu pro jednodušší zápis vynechaných čísel s nahrazením If za Select Case. Prostě se jednotlivá čísla zapíší jednoduše za sebou. Sub vyplneni() Dim posun As Integer Dim i As Integer posun = 0 For i = 1 To 99 Select Case i 'zde uvedená čísla budou vynech...
- 18 bře 2022 11:06
- Fórum: Kancelářské balíky
- Téma: Excel MAX / MIN + vyhledani datumu / hodiny vysledku Vyřešeno
- Odpovědi: 5
- Zobrazení: 1520
- Pohlaví:
Re: Excel MAX / MIN + vyhledani datumu / hodiny vysledku Vyřešeno
Pro zjištění posledního výskytu hodnoty, můžeš použít maticové vzorce viz soubor.
Jejich zadání se ukončí trojkombinací CTRL+SHIFT+ENTER
Jejich zadání se ukončí trojkombinací CTRL+SHIFT+ENTER
- 17 bře 2022 15:58
- Fórum: Kancelářské balíky
- Téma: Excel MAX / MIN + vyhledani datumu / hodiny vysledku Vyřešeno
- Odpovědi: 5
- Zobrazení: 1520
- Pohlaví:
Re: Excel MAX / MIN + vyhledani datumu / hodiny vysledku Vyřešeno
SVYHLEDAT vyměň za INDEX a POZVYHLEDAT.
- 01 lis 2021 21:23
- Fórum: Kancelářské balíky
- Téma: Word - vlastní šablona
- Odpovědi: 6
- Zobrazení: 941
- Pohlaví:
Re: Word - vlastní šablona
Je použit ovládací prvek - "Ovládací prvek obsahu pro text ve formátu RTF". Hned první ikona Aa . Ve vlastnostech je nastaveno odebrání ovládacího prvku při úpravě obsahu. Otevři si šablonu, na kartě vývojář, v položce ovládací prvky zapni volbu Režim návrhu, vyber nějaký z ovládacích prvk...
- 01 lis 2021 20:42
- Fórum: Kancelářské balíky
- Téma: Word - vlastní šablona
- Odpovědi: 6
- Zobrazení: 941
- Pohlaví:
Re: Word - vlastní šablona
Tak sem přilož tu svojí šablonu, ať se na to můžem kouknout. Nebo pokud je to ofiko šablona wordu, tak alespoň její jméno.