Dyskusja: Makro w excelu
Podgląd pojedynczego posta
Stary 30.03.2006, 19:48   #2
MQs
Poważny używkownik
 
Avatar użytkownika MQs
 
Data rejestracji: 16.02.2005
Lokalizacja: Manowce Zdrój
Posty: 389
MQs zaczyna zdobywać reputację <1 - 49 pkt>
Kod:
Sub Makro()
    Dim mySheet As String
    mySheet = Application.InputBox(prompt:="Podaj nazwę arkusza: ", Title:="Add Sheet!", Type:=1 + 2)
    Sheets("Wzór-rok").Copy after:=Sheets(5)
    Sheets("Wzór-rok (2)").Name = mySheet
End Sub
Działa wielokrotnie pod warunkiem, że nie nazwiesz któregoś "Wzór-rok (2)"
__________________
MQs jest offline   Odpowiedz cytując ten post