Jump to content

Macro que trabaje de forma independiente para cada Id distinto en columna A


Recommended Posts

Hola,

Os adjunto una macro que me ayudasteis a resolver ayer buscando la última fila de un rango. El caso es que aunque no me da error, no funciona para cambio de Id en la primera columna. Otras veces siguiendo este método no he tenido problemas. Algo se me está escapando. Podéis pegarle una vuelta al código? debería quedar como en la columna C, pero al pasarle el código no distingue por Id. Muchas gracias de antemano.

ejemplo_ult.xlsm

Link to comment
Share on other sites

Sub Busca()
Dim Leyenda As String
Application.ScreenUpdating = False
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   Leyenda = ""
   Select Case Range("B" & x)
      Case Is < 0: Leyenda = "Menor que cero."
      Case 0:      Leyenda = "Igual a cero."
      Case Is > 0: Leyenda = "Mayor que cero."
   End Select
   If Not Range("A" & x) = Range("A" & x + 1) Then
      Leyenda = Leyenda & " Última fila = " & x & "."
   End If
   Range("C" & x) = Leyenda
Next
End Sub

 

Edited by Antoni
Link to comment
Share on other sites

2 hours ago, Antoni said:
Sub Busca()
Dim Leyenda As String
Application.ScreenUpdating = False
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   Leyenda = ""
   Select Case Range("B" & x)
      Case Is < 0: Leyenda = "Menor que cero."
      Case 0:      Leyenda = "Igual a cero."
      Case Is > 0: Leyenda = "Mayor que cero."
   End Select
   If Not Range("A" & x) = Range("A" & x + 1) Then
      Leyenda = Leyenda & " Última fila = " & x & "."
   End If
   Range("C" & x) = Leyenda
Next
End Sub

 

muchísimas gracias Antoni, había cogido la idea de separar por Id de otra macro tuya y no sabía terminar de desarrollarla.

se entiende super bien, como siempre. 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy