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

Hola

Hace 11 minutos , Maria_80 dijo:

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

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

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

    • Muchas gracias! Voy a tener que revisar las macros porque no domino mucho...   Saludos!
    • Sube tu archivo siempre y pon un ejemplo de donde hay que tomar los datos y donde y como deben reflejarse  
    • Hola nuevamente muchachos. Espero estén bien todos, es mi mayor deseo. Estoy teniendo otro problema por acá con la configuración de un TextBox donde quiero expresar números. Propiamente el número que va a estar reflejado en esos TextBox son la división del Salario Mensual entre los días a trabajar y eso me da un índice o tarifa salarial diaria.  No tengo problemas en las operaciones matemáticas, sino en el formato a expresar en el TextBox.  Este dato lo toma el TextBox de la Hoja, la que tengo configurada (Celda) como Numero. Podrían ayudarme. Gracias de antemano y excelente semana para todos. Saludos Pino
    • Buenas tardes. Tengo el siguiente código en una macro:   Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then     MsgBox ("haz esto")      ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then     MsgBox ("haz esto otro")      Else     MsgBox ("No se cumple") End If End Sub Sin embargo,  siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias   Prueba.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy