eliminare carattere $

[miko]

ciao,
sono riuscito a scrivere una macro che elenca, in una colonna, gli indirizzi delle eventuali celle vuote presenti in un range:

Codice: Seleziona tutto

Sub ELENCA_VUOTE()
 C = 13
   For Each cel In Range("B3:K22")
      If cel.Value = "" Then
    R = R + 1
  Cells(R + 2, C).Value = cel.Address(RowAbsolute:=False)
    End If
     Next cel
     End Sub

gli indirizzi sono scritti nella forma:
$b3
$e5
$k15
è possibile, e come, ottenere gli indirizzi senza il carattere $, cioè nella forma:
b3
e5
k15
oppure bisogna creare una altra macro del tipo elimina caratteri stringa?
grazie ciao

[Anthony47]

Guarda l' help on line del vba, alla voce "address", cosi' scoprirai che esiste, oltre all' opzione RowAbsolute, anche la ColumnAbsolute, che metterai analogamente su False.

Ciao

[miko]

buona sera
grazie anthony, ho cercato come mi hai suggerito ed ho risolto.
vorrei migliorare la macro ed inserire una msgbox;
se nel range ci sono celle vuote avrò l'elenco in una colonna, ma se non ci sono celle vuote vorrei visualizzare un messaggio del tipo "non ci sono celle vuote nel range"
o qualcosa di simile.
ho provato ad inserire il msg ma non ho ottenuto risultati soddisfacenti.
come modifico il precedente listato?
saluti grazie

[Flash30005]

Codice: Seleziona tutto

Sub ELENCA_VUOTE()
ContaV = 0
C = 13
   For Each cel In Range("B3:K22")
      If cel.Value = "" Then
    R = R + 1
ContaV= ContaV + 1
  Cells(R + 2, C).Value = cel.Address(RowAbsolute:=False)
    End If
     Next cel
If ContaV > 0 then
       Msgbox "Ci sono " & ContaV & " celle vuote"
else
       Msgbox "Non ci sono celle vuote"
endif
     End Sub

Ciao

Ps. codice scritto direttamente nel post e non testato ma non dovrebbero esserci problemi

[miko]

ciao,
...infatti non ci sono problemi, funziona benissimo
grazie buonanotte