[Risolto] Eliminare in un colpo solo i valori numerici all'interno di una finestra

[Nando69]

Salve a tutti. Il tema può apparire forse insolito ma al tempo stesso interessante. Prendendo spunto dal file allegato vorrei giusto capire se all'interno della griglia (semplificata nell'occasione per rendere più chiaro l'argomento),esiste un modo per eliminare i valori numerici in UN COLPO SOLO (lasciando perciò i nomi delle persone) senza quindi dover utilizzare ad ogni riga la funzione "Cancella". Lo facessi tutto in una volta andrei ovviamente a eliminare il foglio completo. Una buona giornata

[patel]

Perché parli di finestra invece che di foglio ? vuoi eliminare le righe o solo cancellare i valori numerici ? dall'esempio sembra che ogni 4 righe ci sia quella con i numeri, è sempre così ?

[Nando69]

Salve. Mi riferivo all'intervallo di celle dentro al foglio da A1 fino ad H25. Mi sembrava abbastanza scontato del resto

[patel]

Ho aggiunto altre domande al post precedente

[Nando69]

Voglio solo cancellare i valori numerici. Il salto delle righe può variare. In quest'occasione l'ho fatto in modo lineare. Quella con i numeri potrebbe anche essere ogni 6 o 7 righe

[patel]

prova questa

Codice: Seleziona tutto

Sub scanrange
Doc = ThisComponent
Sheet=doc.sheets(0)
rng = Sheet.getCellRangeByName("A1:H25")
col1= rng.RangeAddress.StartColumn
col2= rng.RangeAddress.EndColumn
row1= rng.RangeAddress.StartRow
row2= rng.RangeAddress.EndRow
drow=0
dcol = 7
for row=row1 to row2
  for col =col1 to col2
    If  Sheet.getCellByPosition(col, row).value > 0 then Sheet.getCellByPosition(col, row).String = ""
  next
next

End Sub

[Nando69]

Ok,provo

[Nando69]

Ciao di nuovo Patel (e ovviamente a tutti gli altri utenti). Scusa,ho cancellato l'ultimo messaggio di ringraziamento e contestualmente non ho ancora messo "Risolto" perchè volevo chiederti ancora un piccolo favore se possibile. Vale a dire quale modifica occorre apportare se dovesse capitarmi di eliminare valori numerici che hanno come valore lo zero (0). Allego file. Buona serata

[patel]

If IsNumeric(Sheet.getCellByPosition(col, row).String) then Sheet.getCellByPosition(col, row).String = ""

[Nando69]

Perfetto,grazie mille