VBA Excel

patel45, 12/04/2016 09.09:

---

questa funziona su un range selezionato

Sub ContaCelleDaDestra()
For Each cell In Selection
If Right(cell, 4) = "Beta" Then
  nNumCell = nNumCell + 1
  cell.Interior.ColorIndex = 40
End If
Next
MsgBox "Nell'intervallo selezionato vi sono " & nNumCell & " celle che contengono la stringa Beta "
End Sub

---

DRoberto, 12/04/2016 10.01:

---

Questa sub la devo inserire nella mia ?
Tutta sola non serve a niente.

---

locatevaresino, 12/04/2016 13.00:

---

ciao

da inserire in un Modulo standard

---

Public Sub ContaCelleDaDestra()
Dim nNumCell As Long
Dim nConta As Variant
Dim rBlocco As Range
Dim NomeF As String
Dim NomeVer As String
Dim R_ange As String
nNumCell = 0
NomeF = InputBox("Nome del foglio da valutare")
NomeVer = InputBox("Nome da verificare")
R_ange = InputBox("Range da valutare : ess. A1:A30 ")

Worksheets(NomeF).Activate
Set rBlocco = Worksheets(NomeF).Range(R_ange)
For Each nConta In rBlocco
If nConta = NomeVer Then
nNumCell = nNumCell + 1
nConta.Interior.ColorIndex = 40
End If
Next
Set rBlocco = Nothing
MsgBox "Nell'intervallo " & R_ange & " vi sono " & nNumCell & " celle che contengono la stringa" & NomeVer & "" _
& "nelle ultime quattro posizioni"
End Sub

---

---

locatevaresino, 12/04/2016 22.04:

---

riciao

visto che tu prendi le cifre da destra verso sinistra nel tuo post
in base a quello il controllo va effettuato in questa maniera

If UCase(Right(nConta, Len(NomeVer))) = UCase(NomeVer) Then

---