Olen tehnyt makron, jolla saa lisättyä uuden taulukon, mutta 'Cancel'-painike ei toimi tuossa koodissa missä vika?
Koodi:
Dim wSht As Worksheet
Dim shtName As String
shtName = InputBox("Anna taulukolle nimi ", "Uuden taulukon nimeäminen")
For Each wSht In Worksheets
If wSht.Name = shtName Then
MsgBox "Taulukko on jo olemassa...Tee tarvittavat " & _
"korjaukset ja yritä uudelleen."
Exit Sub
End If
Next wSht
Sheets(1).Copy before:=Sheets(1)
Sheets(1).Name = shtName
Sheets(shtName).Move After:=Sheets(Sheets.Count)
End Sub
Koodi:
Dim wSht As Worksheet
Dim shtName As String
shtName = InputBox("Anna taulukolle nimi ", "Uuden taulukon nimeäminen")
For Each wSht In Worksheets
If wSht.Name = shtName Then
MsgBox "Taulukko on jo olemassa...Tee tarvittavat " & _
"korjaukset ja yritä uudelleen."
Exit Sub
End If
Next wSht
Sheets(1).Copy before:=Sheets(1)
Sheets(1).Name = shtName
Sheets(shtName).Move After:=Sheets(Sheets.Count)
End Sub
Vastaukset 2
Vanhimmat
InputBox'n peruuta-painike palauttaa InputBox'n arvoksi tyhjän merkkijonon.
Lisää rivin:
shtName = InputBox("Anna taulukolle nimi ", "Uuden taulukon nimeäminen")
jälkeen:
If shtName = "" Then Exit Sub
Ja kiitos