Scusa, magari il problema è stupido, ma in questo periodo non connetto bene... La tua macro mi da un errore, hai idea di cosa si tratta? > REM ***** BASIC ***** > > Sub Che_Digerisce_Quasi_Tutto_e_Lo_Converte_In_Numeri() > ' versione da azionare con range pre-selezionato > 'modificata con inserimento colonna > > Dim d As long > Dim e As long > Dim f As long > Dim g As long > Dim Tipo As Double > Dim Tipo2 As String > dim oFoglio As Object > Dim oMycell As Object > Dim oMyRange As Object > Dim NumCol As Integer > > Set oFoglio = ThisComponent.Sheets.getByName(_ > ThisComponent.currentcontroller.activesheet.name) > oSelections = ThisComponent.getCurrentSelection() > oMyRange=oSelections.getRangeAddress() > > d = oMyRange.StartColumn 'getColonnaIniziale(a) > e = oMyRange.StartRow 'getRigaIniziale(a) > f = oMyRange.EndRow 'getRigaFinale(a) > NumCol = oMyRange.StartColumn ' definisce il numero della colonna > oFoglio.Columns.insertbyindex(d+1,1) > For g = Val(e) to Val(f) ' Inizia il ciclo > rifa: > Tipo = oFoglio.getCellByPosition(NumCol, g).Value > Tipo2 = oFoglio.getCellByPosition(NumCol, g).String > ' xray Tipo > ' Xray Tipo2 > if Tipo = "" or Tipo2 = "" then > g = g+1 > goto rifa > end if > if Tipo <> 0 Then ' Se è un numero si limita a formattare > 'la cella > oMycell = oFoglio.getCellRangeByName(d + LTrim(Str(g))) ______^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
RuntimeException senza alcun altro messaggio. Stavo provando con un range di 3 celle verticali, la prima e l'ultima vuote, la seconda con un numero negativo, la prima cella, giustamente, non la considera, alla seconda si ferma qui. Ciao! Emanuele. --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
