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"?

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

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

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

Ulož.to je toho plný.

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

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

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

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

SVYHLEDAT vyměň za INDEX a POZVYHLEDAT.

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

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.