Excel - Macro para separar número negativo de positivo

 
Vista:
sin imagen de perfil
Val: 5
Ha disminuido 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Macro para separar número negativo de positivo

Publicado por jhonnymn3 (4 intervenciones) el 19/01/2019 00:00:51
Hola buenas quiero crear una macro que dada una columna con números positivos y negativos me los divida en dos es decir separar negativos de positivos en otras dos columnas.
no soy un experto en macros, pero esto es lo que llevo hasta hora pero no me funciona.
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub separar_datos()
Dim i As Integer, contador As Integer
Worksheets("base").Activate
For i = 2 To fin
contador = 0
If Worksheets("base").Cells(j, 12) < 0 Then
contador = contador + 1
If contador = 1 Then
Range("S") = Cells(i, 1).Value
End If
End If
Next
End Sub
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 Antoni Masana
Val: 4.066
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro para separar número negativo de positivo

Publicado por Antoni Masana (1416 intervenciones) el 20/01/2019 13:37:04
Si que funciona pero hace exactamente NADA.

Vamos a ver porque.

1
2
3
4
5
6
7
8
9
10
11
12
13
ReSub separar_datos()
    Dim i As Integer, contador As Integer
    Worksheets("base").Activate
    For i = 2 To fin  ' --- ¿Qua valor tiene la variable fin? Fin vale CERO
        contador = 0   ' --- ¿Qué estas contando?
        If Worksheets("base").Cells(j, 12) < 0 Then  ' --- De donde sale la J
            contador = contador + 1   ' --- El resultado será siempre 1
            If contador = 1 Then         ' --- Siempre cumplida la condición
                Range("S") = Cells(i, 1).Value  ' --- ¿Asignas el valor de una celda a toda la columna?
            End If
        End If  ' --- Y los positivos ¿Dónde van?
    Next
End Sub

No entra dentro del bucle del FOR

Saludos.
\\//_
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