Avatar billede Laugesen1 Mester
21. februar 2014 - 22:02 Der er 2 kommentarer og
1 løsning

Undgå eller besvar en dialogboks med en makro

Jeg har en makro der overfører data til et destinationsark fra eksterne projektmapper.
I nogle af kildemapperne står dato og klokkeslæt i samme kolonne.
Dato og klokkeslæt adskilles af makroen i hver deres kolonne før data overføres.

Makroen indsætter en tom kolonne til højre for den kolonne med både dato og klokkeslæt (kolonne H), og derefter adskilles dato og klokkeslæt fra hinanden.
Klokkeslæt bliver indsat i den nye tomme kolonne, - dato bliver indsat i den eksisterende kolonne (H).

Alt det fungerer efter hensigten, men hver gang dato skal indsættes i kolonne H, altså der hvor der i forvejen står både dato og klokkeslæt, så kommer der en dialogboks med følgende meddelelse,  "Skal de udfyldte celler i destinationen overskives ? ".
Hvilket jeg så klikker "OK" til (et klik pr. ark), da det jo netop er meningen at de skal overskrives med kun dato i kolonnen. Makroen går ikke videre før der er givet et svar.

Spørgsmål:
Kan man skrive i makroen, at denne dialogboks ikke skal komme frem, så data bare indsættes, og dermed overskriver de eksisterende data.
Eller kan man skrive, at makroen automatisk skal svare "OK" til dialogboksen ?

Er der nogen der har et bud på hvordan man gør det ?

Laugesen



Uddrag ad makroen:

'Seperaring af dato og klokkkeslæt i to kolonner og indsættelse af koloneoverskrift
    Application.Workbooks("Leverance." & År1 & "." & Måned1 & "").Activate
    Range("H1").Select
    ActiveCell.EntireColumn.Offset(0, 1).Insert

    Range("H2:H27").Select
    Selection.TextToColumns Destination:=Range("H2"),        DataType:=xlFixedWidth, _
    FieldInfo:=Array(Array(0, 4), Array(10, 1)), TrailingMinusNumbers:=True
    Range("H1").Value = "Dato"
    Range("I1").Value = "Klokkeslæt"

----------------------------------------------------------------------------------------------------------------------------------
Avatar billede kabbak Professor
22. februar 2014 - 08:13 #1
Application.DisplayAlerts = False
'kode
Application.DisplayAlerts = True
Avatar billede Laugesen1 Mester
22. februar 2014 - 20:52 #2
Lige præcis det jeg søgte efter. Nu bliver data indsat som de skal, uden at der skal gives svar i en dialogboks først. Super godt.

Mange tak for dit input :)

Laugesen
Avatar billede Laugesen1 Mester
22. februar 2014 - 20:55 #3
Jeg ved ikke hvad der er sket.
Du er blevet tildelt 0 point !

Jeg opretter et nyt spørgsmål med point til dig, så kan du lige give et svar på det.

Laugesen
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester