Visual Basic - REMPLAZAR TODO MENOS NUMEROS

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 63
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

REMPLAZAR TODO MENOS NUMEROS

Publicado por JAIME (24 intervenciones) el 08/05/2020 11:45:20
Buenas a todos
Alguien me puede ayudar con este archivo de remplazar, seria de la hoja llamada turnos copiarlo todo y pegar en la hoja llamada bolsa de horas solamente las celdas que sean números tanto positivos como negativos, por lo que en la hoja de bolsa de horas, solo tendrían que aparecer números y no cambiar el formato de las celdas. el copiado seria desde la fila 5 hasta casi 1000 filas y columnas casi 300.

gracias y un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.932
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

REMPLAZAR TODO MENOS NUMEROS

Publicado por Andres Leonardo (1739 intervenciones) el 08/05/2020 22:23:51
Pues habran diez mil manera ... la mas facil. para mi es...

pego el contenido de toda la hoja que necesites...

y pones esta macro asi en tu hoja de resultado solo te deja los numeros ...

consideraciones....debes poner el rango requerido. te dejo la imagen de como deja las celdas.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub DejaSoloNumeros()
'
' DejaSoloNumeros Macro
' En el rango indicado deja solo Numeros
'
' Acceso directo: Ctrl+Mayús+Q
'
 
    Dim r As Range: Set r = Sheets("BOLSA HORAS").Range("E6:AJ300") '' aqui te puse de E para que no afecte de  "A" a "D" y
'300filas tu puedes poiner las 10000 que tienes....
 
    Dim c As Range
 
 
    Sheets("BOLSA HORAS").Select
    For Each c In r.Cells
        If IsNumeric(c.Value) = False Then
            c.Value = ""
        End If
    Next c
 
End Sub



antes


despues
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 63
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

REMPLAZAR TODO MENOS NUMEROS

Publicado por JAIME (24 intervenciones) el 09/05/2020 09:45:40
Buenas Andres Leonardo

Gracias por tu ayuda, te lo agradezco mucho.

un saludo y gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 3.932
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

REMPLAZAR TODO MENOS NUMEROS

Publicado por Andres Leonardo (1739 intervenciones) el 09/05/2020 19:02:34
Me alegro qeu te haya servido, si es asi no olvides poner +1 para qeu cuando alguien busque algo parecido le sirva la respuesta

SAludos desde Ecuador

Andres
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar