Makro pysähtyy

Taulukossa on laskentakaavoja, mutta ne on usein tarpeen korvata toisilla. Makro palauttaa aktiivisena olevat sarakkeet alkuperäiseen tilaansa.
Tyhjään pohjaan kopioituna se toimii, mutta ei enää pohjassa jossa sitä käyttäisin. Käytössä on Office 2007. Pohjan avaaminen Open and Repair -toiminnolla ei auta.

Olen riisunut makroa jo aika tavalla, mutta aina se pysähtyy. Tässä toiminta päättyy ennen riviä Selection.Copy. Pysähdyskohdassa ei ole mitään logiikkaa. Alkuperäisessä kysyttiin varmennusta MsgBoxissa. Silloin stoppi tuli heti vastauksen jälkeen, ennen sitä seurannutta if-lausetta.

Sub Palauta()

Columns("C:C").Select ' sarake C tulee aktiiviseksi
Selection.Copy ' tälle riville ei enää päästä

End Sub

Mäkrö kirjoitti:

Taulukossa on laskentakaavoja, mutta ne on usein tarpeen korvata toisilla. Makro palauttaa aktiivisena olevat sarakkeet alkuperäiseen tilaansa.
Tyhjään pohjaan kopioituna se toimii, mutta ei enää pohjassa jossa sitä käyttäisin. Käytössä on Office 2007. Pohjan avaaminen Open and Repair -toiminnolla ei auta.

Olen riisunut makroa jo aika tavalla, mutta aina se pysähtyy. Tässä toiminta päättyy ennen riviä Selection.Copy. Pysähdyskohdassa ei ole mitään logiikkaa. Alkuperäisessä kysyttiin varmennusta MsgBoxissa. Silloin stoppi tuli heti vastauksen jälkeen, ennen sitä seurannutta if-lausetta.

Sub Palauta()

Columns("C:C").Select ' sarake C tulee aktiiviseksi
Selection.Copy ' tälle riville ei enää päästä

End Sub

kokeiles näitä

Sub Palauta()
Worksheets("Sheet1").Activate' vaihda taulukon nimi
Columns("C:C").Select ' sarake C tulee aktiiviseksi
Selection.Copy ' tälle riville ei enää päästä

End Sub

Sub Palauta()
ActiveSheet.Columns("C:C").Select ' sarake C tulee aktiiviseksi
Selection.Copy ' tälle riville ei enää päästä

End Sub

Keep EXCELing
@Kunde

kunde kirjoitti:

kokeiles näitä

Sub Palauta()
Worksheets("Sheet1").Activate' vaihda taulukon nimi
Columns("C:C").Select ' sarake C tulee aktiiviseksi
Selection.Copy ' tälle riville ei enää päästä

End Sub

Sub Palauta()
ActiveSheet.Columns("C:C").Select ' sarake C tulee aktiiviseksi
Selection.Copy ' tälle riville ei enää päästä

End Sub

Keep EXCELing
@Kunde

Ei auttanut.

Näyttäisi liittyvän jollain tavalla sarakkeen C sisältöön.
Kun poistan sarakkeesta tietoa, makro alkaa jossain vaiheessa toimimaan. Jos täytän sarakkeen vaikka a-kirjaimilla, tulee virhe, mutta nollilla täytetyn sarakkeen kanssa makro toimii. Se toimii myös, kun poistan formatoinnit.

Tietäisi vaan, miksi.