Andy Machin

Me atrevo a decir con mucha seguridad que eso no se puede hacer. VBA no tan personalizable, por lo que nos ha obligado desde 1997 a sortear estas cosas, y el método mas común usado por años para flexibilizar los encabezados de los ListBox y los...

If Range("E...").Value > ValorX Then Range("F...").Value = Mensaje si es mayor Else Range("F...").Value = Mensaje si es igual menor End if Básicamente es eso, pero depende de cuando y/o como lo quieres ejecutar. Estaría bien si pones una imagen,...

No le estas devolviendo el nuevo valor a la celda: incremento = c.Value.Offset(0, 4) incremento = incremento + Cantidad Almacenas la suma en la variable Incremento, y luego no haces nada mas con ella. A parte de eso, yo nunca había visto que Offset...

En mi opinión esto no es algo que debas hacer con una función, pero prueba si es esto lo que necesitas. Function FindKO(Rng As Range) Dim fRow As Integer: fRow = Rng.Row Dim maliason As String, liason As String Dim i As Integer maliason = Range("A" &...

Los módulos de clases se usan, como su nombre dice, para crear tus propias clases. Esto es POO (Programación Orientada a Objetos) que en VBA casi nadie usa, no sé por qué todos programan de manera procesal, al menos aquí en Todoexpertos no he visto...

Prueba este código... Lo que hice fue sustituir el bucle de While...Wend (que a mi no me gusta para nada, lo evito siempre que puedo) por un For Each...Next También cambé un poco algunas partes del procedimiento que en mi opinión podían mejorarse. No...

Eval() es un método para Evaluar una expresión como string (texto) Por ejemplo Eval("5 + 5") te devolvería un 10 Así que tu código estaría Evaluando lo que hay en Resultado con el Operador y el Parámetro y aparentemente devuelve un Bolean (verdadero...

Tu código está mal escrito. Lo adapté un poco, pruébalo: Sub btn_Buscar() Application.ScreenUpdating = False Dim Sht1 As Worksheet, Sht2 As Worksheet Dim rCell As Range, rRng As Range Dim uF1 As Integer, uF2 As Integer Dim result As Variant Set Sht1...

Ese código debería funcionar. De todas formas prueba este a ver (asumo que son fórmulas lo que hay en esas celdas) Sub Test2() Dim rCell As Range, rRng As Range Dim lRow As Long lRow = Range("A" & Rows.Count).End(xlUp).Row Set rRng =...

Te respondí por allá, si te sirve mi respuesta, te agradecería si valoras las dos, esta y la otra XD Andy M