macro punti e spazi

Hai un problema con Excel?

Nuova discussione

macro punti e spazi
di gianni (utente non iscritto) data: 26/10/2017 12:14:05
Salve a tutti, avrei un problema:

non riesco a creare una macro che:

1. sostituisca in tutti valori che si trovano nella colonna "i" la virgola con il punto (in quanto sembra che gira ma non fa nulla)

2. mi elimina tutte le righe dove nella colonna "F" e "I" ci sia presente solo il valore 0 (zero)

Grazie a tutti per l'aiuto.
di gianni (utente non iscritto) data: 26/10/2017 16:36:59
risolto
di Marius44 data: 26/10/2017 16:45:58
Ciao
Nello spirito del Forum, saresti così cortese da condividere la soluzione?

Grazie,
Mario
di gianni (utente non iscritto) data: 26/10/2017 17:40:35
scusami non sapevo.

Sotituisci B_B con la colonna dove vuoi la sotituzione della virgola con il punto

Sub Punto_Virgola()
Dim B_B As Range
Dim cella As Variant
Set B_B = Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For Each cella In B_B
If IsNumeric(cella) Then
Cells(cella.Row, cella.Column).NumberFormat = "@"
Cells(cella.Row, cella.Column) = Replace(cella, ",", ".")
End If
Next
Set B_B = Nothing
End Sub

---------------------------------------------------------------------
---------------------------------------------------------------------

nella colonna 'c', vado a selezionare l'ultima riga piena (in modo da non far scorrere al ciclo tutto il foglio excel).
vorrei eliminare tutte le righe che hanno una cella vuota nella colonna 'e'

Sub pulisci_excel()
ultimariga = Range("C" & Rows.Count).End(xlUp).Row
For i = ultimariga To 1 Step -1
If Range("e" & i) = "" Then
Range("e" & i).Select
Selection.EntireRow.Delete
End If
Next i
End Sub

Vuoi Approfondire?