UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Contar Datos En Celda el 15/03/17, 08:33 am

edwinjo


Buenos Días Estimados,
Solicitándoles ayuda con lo siguiente :
En una hoja o diferentes hojas me toca contar los datos que tienen ciertas celdas, lo hago manual o con formula, pero el resultado lo obtengo en columna siguiente y tengo que después sumar, lo que deseo es obtener el resultado en un MsgBox, para lo cual tengo un macro, pero tiene el problema que me da el resultado de toda la hoja y lo que deseo es que me de el resultado de solo las celdas que seleccione, muchos les agradecería me indicaran por favor que le cambio o si me proporcionan el adecuado
Sub CountWords2()
Dim WordCount As Long
Dim Rng As Range
Dim S As String
Dim N As Long
Set rango = Application.InputBox("Elige el rango a contar o celdas", Type:=Cool
For Each Rng In ActiveSheet.UsedRange.Cells
S = Application.WorksheetFunction.Trim(Rng.Text)
N = 0
If S <> vbNullString Then
N = Len(S) - Len(Replace(S, " ", "")) + 1
End If
WordCount = WordCount + N
Next Rng
MsgBox "Words In ActiveSheet Sheet: " & Format(WordCount, "#,##0")
End Sub
Archivos
Contar Datos Celda.zip
No tienes los permisos para descargar los archivos.
(10 KB)

2RESUELTO Re: Contar Datos En Celda el 16/03/17, 11:31 am

ioyama

avatar
Hola

Cambia

For Each Rng In ActiveSheet.UsedRange.Cells

por

For Each Rng In rango

y la macro funcionará correctamente

Un saludo desde Vitoria

3RESUELTO Mejor ni que decir el 16/03/17, 11:57 am

edwinjo


Buenos Días ioyama,
Gracias mejor ni que decir trabaja excelentes eres un genio

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.