Ahojte, potrebujem poradiť.
Mám hárky a potrebujem makro:
Do InputBox zadám Január
Makro prebehne všetky hárky a ak sa nachádza hárok s názvom Január tak trebárs vyhodí MsgBox že existuje a či chcem daný hárok prepísať:
Ak zadám áno tak blablabla ( to si už doplním)
Ak zadám nie tak makro skončí.
Ak po prebehnutí všetkých hárkov predsa nenajde hárok s názvom január tak taký vytvorí.
Mám z toho už nervy, lebo neviem ako ďalej...
Sub Msg()
Dim harok As Worksheet
list = InputBox("Zadaj názov hárku")
For Each harok In Worksheets
If Not harok.Name = list Then
MsgBox ("Nieje rovnaké opakuj")
Else
MsgBox ("Existuje kopíruj")
Exit For
End If
Next
MsgBox ("Vytvor nový hárok")
End Sub
Len keď raz hárok existuje, tak nechcem aby ho aj vytvorilo, keďže na konci je Vytvor nový hárok.
Len ak ho dám do Else, tak po prvom hárku pôjde vytvárať nový hárok"
Preto potrebujem aby prebehlo všetky a až potom sa rozhodlo či vytvorí nový, alebo v starom hárku prepíše hodnoty.
Naposledy upravil Snoophy : 25.11.15 at 15:07