Sub KopioTaulukko()
myName = InputBox("Kirjoita taulukkovalitsimen nimi, esim. kesä")
myValue = InputBox("Kirjoita taulukon otsikko, esim. Kesäkuu")
Sheets("tammi").Copy Before:=Sheets(1)
ActiveSheets.Name = myName
Range("A1:C1").Select
ActiveCell.FormulaR1C1 = myValue
Range("A3").Select
End Sub
Kohdassa ActiveSheet.Name = myName
Makro töksähtää.
Mikä siinä on vikana?
Tarkoitus on kopioda ekaa taulukkoa ja antaa sille oma taulukkotunniste ja otsikko itse taulukkoon.
myName = InputBox("Kirjoita taulukkovalitsimen nimi, esim. kesä")
myValue = InputBox("Kirjoita taulukon otsikko, esim. Kesäkuu")
Sheets("tammi").Copy Before:=Sheets(1)
ActiveSheets.Name = myName
Range("A1:C1").Select
ActiveCell.FormulaR1C1 = myValue
Range("A3").Select
End Sub
Kohdassa ActiveSheet.Name = myName
Makro töksähtää.
Mikä siinä on vikana?
Tarkoitus on kopioda ekaa taulukkoa ja antaa sille oma taulukkotunniste ja otsikko itse taulukkoon.
Vastaukset 4
Vanhimmat
ActiveSheetS.Name = myName
Sub KopioTaulukko()
myName = InputBox("Kirjoita taulukkovalitsimen nimi, esim. kesä")
myValue = InputBox("Kirjoita taulukon otsikko, esim. Kesäkuu")
Sheets("tammi").Copy Before:=Sheets(1)
' Sheets("tammi (2)").Name = myName
ActiveSheetS.Name = myName
Range("A1:C1").Select
ActiveCell.FormulaR1C1 = myValue
Range("A3").Select
End Sub
Palauttaa virheen
Run Time Error "424"
Object required
Yksi s liikaa ActiveSheet.Name = myName
Katos vaan, nyt toimii.
Kiitos!