modifica macro per controllo righe selezionate

[frank_ciccioPartecipante frank_ciccio]

Ciao a tutti.

Questa macro è per contare le righe selezionate.

Per selezionarle bisogna inserirle nel msgbox che compare.

Funziona anche per righe non continue.

Sub CountRowsInSelection()

Dim inputCells As Range
Dim arrayR() As String
Dim contaRows As Long
Dim s, r As Range
     
Set inputCells = Application.InputBox(Prompt:="Selection rows", Title:="Copia e incolla", Type:=8)
arrayR = Split(inputCells.Address, ",")

Dim i As Long
For i = 0 To UBound(arrayR)
contaRows = contaRows + Range(arrayR(i)).Rows.Count
Next i

MsgBox contaRows

End Sub

[frank_ciccioPartecipante frank_ciccio]

Non capisco mi ha tagliato il messaggio

[frank_ciccioPartecipante frank_ciccio]

La modifica che chiedo è che si visualizzi in una cella E1 il numero delle righe selezionate anche non consecutive

senza usare il msgbox della macro.

Seleziono le righe > in cella E1 il numero delle righe

[Luca73Partecipante Luca73 Karma: 58 pts]

Ciao Basta Sostituire 

MsgBox contaRows

Con 

Range("E1")= contaRows

[DeletedUserBloccato DeletedUser Karma: 13 pts]

Range("e1").Value = Selection.Rows.Count

[frank_ciccioPartecipante frank_ciccio]

Grazie luca e fsm ora il numero si visualizza nelle celle, ma non voglio usare l'inpubox della macro per selezionare le celle.

seleziono le celle anche non continue dal foglio  > il numero in E1

 

[DeletedUserBloccato DeletedUser Karma: 13 pts]

Sub CountRowsInSelection()
Dim inputCells As Range
Dim arrayR() As String
Dim contaRows As Long
Set inputCells = Application.Selection
arrayR = Split(inputCells.Address, ",")
Dim i As Long
For i = 0 To UBound(arrayR)
    contaRows = contaRows + Range(arrayR(i)).Rows.Count
Next i
Range("E1").Value = contaRows
Set inputCells = Nothing
End Sub

[frank_ciccioPartecipante frank_ciccio]

Grazie fsm

[scossaPartecipante scossa Karma: 37 pts]

frank_ciccio ha scritto:

seleziono le celle anche non continue dal foglio  > il numero in E1

una conferma: tu selezioni una singola cella per ogni riga che vuoi selezionare, giusto? per esempio: selezioni A4 + B5:B6 + D8 quindi hai 4 righe selezionate. 

[frank_ciccioPartecipante frank_ciccio]

Si scossa va bene anche selezionare una cella per ogni riga

[scossaPartecipante scossa Karma: 37 pts]

Utilizza l'evento Worksheet_SelectionChange() del foglio su cui vuoi attivarlo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim rRow As Range, nRows As Long
  
  For Each rRow In Selection.Areas
    nRows = nRows + rRow.Rows.Count
  Next rRow
  Range("E1").Value = nRows
End Sub

attenzione a non tornare a selezionare una cella di una riga già selezionata altrimenti quella riga verrà contata più volte.

[frank_ciccioPartecipante frank_ciccio]

Grazie anche a te scossa

[scossaPartecipante scossa Karma: 37 pts]

Prego, ma fai sapere se è quello che volevi.

[frank_ciccioPartecipante frank_ciccio]

Si scossa, è quello che cercavo.

Grazie ancora.

[Autore]

Articoli