Jump to content

macro incluir última fila dentro de un condicional


Recommended Posts

Hola,

¿Me podéis echar un cable revisando el código de esta macro? Estoy utilizando la variable

Dim ult As Integer

ult = Cells(Rows.Count, 1).End(xlUp).Row

para poder meterlo en un condicional, pero se lo salta. No me da error, pero se lo salta.

Es decir, si columna B > 1 then C = “mayor a uno”

Si columna B > 1 and “ult” then C = "mayor a uno ult”

Quiero llegar a la columna C de la Hoja 1, lo he puesto a mano, claro. Gracias de antemano.

 

ejemplo_ult.xlsm

Link to comment
Share on other sites

Prueba y comenta

Private Sub CommandButton1_Click()
    Dim ult As Integer
    ult = Cells(Rows.Count, 1).End(xlUp).Row
    
    With Worksheets("Hoja1")
    
            For i = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row

                If Cells(i, "B").Value < 0 Then
                       Cells(i, "C").Value = "menor a cero"
                ElseIf Cells(i, "B").Value = 0 Then
                       Cells(i, "C").Value = "igual a cero"
                ElseIf Cells(i, "B").Value > 0 And Cells(i, "B").Row = ult Then
                       Cells(i, "C").Value = "mayor a cero. " & "Ultima fila = " & ult
                ElseIf Cells(i, "B").Value > 0 And Cells(i, "B").Row < ult Then
                       Cells(i, "C").Value = "mayor a cero"
                End If
        
            Next
    End With
 
End Sub

 

Edited by JSDJSD
Link to comment
Share on other sites

1 hour ago, Gerson Pineda said:

Hola

El fallo se da, porque estas encerrando la variable entre comillas, y esta variable es de tipo numero entero, por lo que debes dejarla tal cual, es decir elimina las comillas

 

Saludos

Hola, Gerson... no me funcionó quitando las comillas... yo creo que me equivoqué a la hora de definir la variable. Mil gracias.

Link to comment
Share on other sites

1 hour ago, JSDJSD said:

Prueba y comenta

Private Sub CommandButton1_Click()
    Dim ult As Integer
    ult = Cells(Rows.Count, 1).End(xlUp).Row
    
    With Worksheets("Hoja1")
    
            For i = 2 To .UsedRange.Rows(.UsedRange.Rows.Count).Row

                If Cells(i, "B").Value < 0 Then
                       Cells(i, "C").Value = "menor a cero"
                ElseIf Cells(i, "B").Value = 0 Then
                       Cells(i, "C").Value = "igual a cero"
                ElseIf Cells(i, "B").Value > 0 And Cells(i, "B").Row = ult Then
                       Cells(i, "C").Value = "mayor a cero. " & "Ultima fila = " & ult
                ElseIf Cells(i, "B").Value > 0 And Cells(i, "B").Row < ult Then
                       Cells(i, "C").Value = "mayor a cero"
                End If
        
            Next
    End With
 
End Sub

 

Muchísimas gracias! Tengo que separar el tema del índice en la columna A, pero creo que no voy a tener problemas en hacerlo. Con lo que me pasas me sirve para comprobar la última fila y meterla en la condición. gracias!

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano     Adjunto también la macro. MEvento.zip
    • No debe importarnos que el usuario que abrió el tema no vuelva a consultarlo porque nuestras respuestas le llegaron demasiado tarde... Lo importante es poder ayudar a otros usuarios que tengan un problema similar en el futuro...
    • Es una opción original e ingeniosa pero creo que difícil de comprender para un usuario que sepa fórmulas sencillas... Adjunto otra opción con fórmulas desbordadas que puede que sea más fácil de comprender para un usuario que esté aprendiendo a formular, pues hay 3 pasos separados: Columna D : A cada valor se le añade 1> a la izquierda, se sustituye el primer + por 2> y el segundo + por 3>. De paso se quitan los signos , y . para convertir los valores en números. Todo ello con la función SUSTITUIR. ="1>"&SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR($C2;",";"");".";"");"+";"2>";1);"+";"3>";1)   Columna E (desbordada hacia la derecha en las columnas F y G): Extrae los valores y letras de 1>, 2> y 3>. Todo ello con una versión matricial de la función EXTRAE, con la ayuda de la función ENCONTRAR. =SI.ERROR(SUSTITUIR(EXTRAE($D2;ENCONTRAR({"1>"\"2>"\"3>"};$D2);SI.ERROR(ENCONTRAR({"2>"\"3>"\"0>"};$D2);100)-ENCONTRAR({"1>"\"2>"\"3>"};$D2));{"1>"\"2>"\"3>"};"");"")   Sumas de C, T y V: Suma las cantidades consumidas de cada letra con la función SUMAPRODUCTO. Salu2, Pedro Wave Sumar Letras PW1.xlsx
    • Hola,  Estoy intentando vía InputBox rellenar con el dato introducido una columna. Pero no consigo que lo haga desde la primera fila libre de A. Sería pegar el dato a partir de la primera celda libre de la columna A (está en verde), en función del Nº de filas de la columna B No consigo modificarla y se pega desde el comienzo.  Podéis echarle un vistazo? La macro está en el ejemplo. ¡Muchísimas gracias!      ej_InputBox.xlsm
    • La mía. Sub Mostrar() Application.ScreenUpdating = False Range("B:CM").EntireColumn.Hidden = False End Sub '-- Sub Ocultar() Dim Filtro As Range Application.ScreenUpdating = False Mostrar For y = 2 To Columns("CM").Column If WorksheetFunction.CountIf(Cells(8, y).Resize _ (Range("A" & Rows.Count).End(xlUp).Row, 1), "<>" & Empty) = 0 Then Columns(y).Hidden = True End If Next End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy