salve, cerco un piccolo aiuto per queste due macro che non riesco a fare, in quando le mie conoscenze sono scarse.
per la prima macro devo inserire delle virgolette per ogni cella, sia all'inizio che alla fine...
il problema è che troppo lenta, per una riga di 29 colonne inpiega 28 secondi, quindi per 1703 righe, ho calcolato che servono 785 minuti di esecuzione...
e possibile velocizzarla?
inoltre, il range che deve operare puo variare, quindi serve una selezione dinamica.
invece per la seconda macro, deve trasformare tutto in maiuscolo...
anche qui la macro e lentissima... e possibile velocizzarla?
anche qui, il range che deve operare puo variare, quindi serve una selezione dinamica.
ringrazio chi puo aiutarmi.
Sub AggiungereCaratteri()
Dim D1, D2 As Date
Dim tempoimpiegato As String
D1 = Time
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim celle As Range
Set celle = Range("A2:AC2")
Dim c As Range
For Each c In celle
c.Value = """" & c.Value
c.Value = c.Value & """"
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
D2 = Time
tempoimpiegato = Format(D2 - D1, "hh:mm:ss")
MsgBox "Tempo impiegato: " & tempoimpiegato
End Sub
Sub tuttoMaiuscolo()
Dim D1, D2 As Date
Dim tempoimpiegato As String
D1 = Time
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("A2").SpecialCells(xlLastCell).Select
R = ActiveCell.Row
c = ActiveCell.Column
Range("A2").Select
For colonna = 1 To c
For riga = 1 To R
Cells(riga, colonna).Value = UCase(Cells(riga, colonna).Value)
Cells(riga, colonna).NumberFormat = "General"
Next riga
Next colonna
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Columns.AutoFit
Application.EnableEvents = True
Application.ScreenUpdating = True
D2 = Time
tempoimpiegato = Format(D2 - D1, "hh:mm:ss")
MsgBox "Tempo impiegato: " & tempoimpiegato
End Sub
Registrazione
