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"
----------------------------------------------------------------------------------------------------------------------------------
