Testo in colonne – eliminare il "Warning"

[ildavepabloPartecipante ildavepablo]

Ciao a tutti,

ho creato una semplice macro con il registratore, il risultato è quello del comando TESTO IN COLONNE.

Il problema è che dopo aver lanciato la macro, in automatico appare il BOX di warning di Excel chiedendo "SONO GIA' PRESENTI DATI SOSTITUIRLI?" e devo dare conferma cliccando su "OK".

Quale argomento  di TextToColums mi permette di eliminare la comparsa del BOX e far sì che la macro proceda in autonomia  senza chiedere la conferma per procedere?

Grazie mille!!

 

Sub NUMERO()
'
' NUMERO Macro
'

'
    Columns("A:A").Select
    Selection.Copy
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
        Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
        33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), _
        Array(40, 1)), TrailingMinusNumbers:=True
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
End Sub

[Marius44Moderatore Marius44 Karma: 58 pts]

Ciao

Immagino tu ti riferisca a queste due righe di codice che vanno messe all'inizio e alla fine della macro

Application.DisplayAlerts = False  'da inserire all'inizio della macro

Application.DisplayAlerts = True   'da inserire prima della chiusura della macro (End Sub)

 

Ciao,

Mario

 

[ildavepabloPartecipante ildavepablo]

grazie mille!

fatto.

[Autore]

Articoli