Kelpoisuustarkistuksen omaavan solun kopiointi (Luettelo)

Moro,

tällainen ongelma tuli vastaan: Minulla on välilehti, joka sisältää soluja joissa on kelposuustarkistus luettelona, eli pitäisi saada alasvetovalikko. Tällä välilehdellä kaikki toimii hyvin, mutta kun kopioin makrolla tai käsin solut päävälilehdelle, alasvetovalikkoa ei tule (kelpoisuustarkistus on kyllä yhä voimassa ja toimii, vinisee jos laittaa väärää arvoa).

Mistä voisi johtua? Käytän päälehden siivoamiseen tällaista makroa, voisiko johtua tästä:

'Kopioidaan nykytilanne backupiksi ja putsataan päälehden tekstit ja muotoilut:
Sheets("LASKENTA 1").Range("A1:CD250").Copy Destination:=Sheets("TEMP").Range("A1")
Sheets("LASKENTA 1").Range("A1:CD250").Clear
'Poistetaan kuvat ja painikkeet päälehdeltä päällekäisyyksien takia:
For Each Shape In ActiveSheet.Shapes
Shape.Delete
Next Shape
Application.ScreenUpdating = True
1109
Äänestä

Muut lukivat myös

Vastaukset 1

Vanhimmat

siitäpä se johtuu- toi on bugi
korjautuu, jos

1. kopioit taulukon uuteen taulukkoon tai
2. tallennat työkirjan ja avaat sen uudelleen ja avaa valikossa klikkaat avaa nappulan(oikealla alhaalla) vaihtoehdoista avaa ja korjaa ja sitten vaan ok pari kertaa ja tallennat uudelleen...

Äänestä

Kommentoi aloitusta


excelamatööri kirjoitti:

Moro,

tällainen ongelma tuli vastaan: Minulla on välilehti, joka sisältää soluja joissa on kelposuustarkistus luettelona, eli pitäisi saada alasvetovalikko. Tällä välilehdellä kaikki toimii hyvin, mutta kun kopioin makrolla tai käsin solut päävälilehdelle, alasvetovalikkoa ei tule (kelpoisuustarkistus on kyllä yhä voimassa ja toimii, vinisee jos laittaa väärää arvoa).

Mistä voisi johtua? Käytän päälehden siivoamiseen tällaista makroa, voisiko johtua tästä:

'Kopioidaan nykytilanne backupiksi ja putsataan päälehden tekstit ja muotoilut:
Sheets("LASKENTA 1").Range("A1:CD250").Copy Destination:=Sheets("TEMP").Range("A1")
Sheets("LASKENTA 1").Range("A1:CD250").Clear
'Poistetaan kuvat ja painikkeet päälehdeltä päällekäisyyksien takia:
For Each Shape In ActiveSheet.Shapes
Shape.Delete
Next Shape
Application.ScreenUpdating = True

Anonyymi
5000

Ilmoita asiaton sisältö

  • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

  • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

  • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

  • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

  • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

  • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

Jaa keskustelu