modifica a macro che mette virgola

[raimea]

ciao
ho questo codice che mi mette la virgola se trova un punto
nelle colonne J ed N

Codice: Seleziona tutto

Sub puntovirgola()
'
 '----metto virgola in col J_N se ce il punto--------
    ur = Cells(Rows.Count, "j").End(xlUp).Row
   
    For i = 1 To ur
        On Error Resume Next
        Cells(i, "j") = CDbl(Replace(Cells(i, "j"), ".", ","))
        Cells(i, "N") = CDbl(Replace(Cells(i, "N"), ".", ","))
    Next
   
End Sub

funziona.

ma avrei bisogno di una modifica
che non riesco trovare da solo,
perche' in j6, N5 e n6 ho delle formule
e la macro mi toglie la formula.

quindi

avrei bisogno che le modifiche in J e N
partano dalla riga 8 di col J a Ult riga
e partano dalla riga 8 di col N a ult riga

ciao

[Anthony47]

Senza stravolgere la tua sub:

Codice: Seleziona tutto

    On Error Resume Next
    For i = 1 To ur
        If Not Cells(i, "J").HasFormula Then
            Cells(i, "j") = CDbl(Replace(Cells(i, "j"), ".", ","))
        End If
        If Not Cells(i, "N").HasFormula Then
            Cells(i, "N") = CDbl(Replace(Cells(i, "N"), ".", ","))
        End If
    Next
    On Error GoTo 0


Se hai tante celle e la macro fosse lenta (già di suo, non per la modifica) allora potresti valutare di usare Trova/Sostituisci in una macro autoregistrata, avendo l’accortezza di impostare il Trova sui “Valori”

Se ti servissero istruzioni e suggerimenti su come registrare una macro:
viewtopic.php?f=26&t=103893&p=622593#p622593

[raimea]

ciao

tutto ok

grazie