Javier Casabal

Estoy armando un código en Visual Basic y quiero escribir en la barra de Estado. Que en lugar de decir "Ready" o "Calculate", diga algo como "Intento #23 de 100" o "23% Completado".

Es decir, si en la celda A1=B1+C1 y luego B1=Z3*1500 y C1=h4-1000, que al apretar el boton sobre A1, su formula quede: A1=(Z3*1500)+(h4-1000), y asi, todas las veces que sea posible. Me parece que seria muy útil a la hora de armar fórmulas en muchas...

Acá te paso. Serian 3 macros diferentes, pero son simples. Borrar4Quintos deja el primer quinto y así. Lo que no estoy seguro es como saber bien la cantidad. Tal vez convenga una instrucción alternativa: En lugar de cantidad =...

En tu libro haz Alt+F11, ve al código de la hoja INGRESO (botón derecho, view code), y pone este código: Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("f5") If Not Application.Intersect(KeyCells,...

No me explico como esto pueda tener sentido... Pero bueno... Sub Macro11() ' ActiveSheet. Unprotect ("0976342842") Range("F7"). Copy (Range("F7")) Range("F9"). Copy (Range("F9")) Range("F11"). Copy (Range("F11")) Range("F12"). Copy (Range("F12"))...

Acá va mi version, por las dudas puse los los lugares donde la modifique porque puedo estar pasando algo por alto y deje la version anterior también arriba con signo ' Si no, espera a ver la versión de Dante. Sub Macro15() 'Sub GuardarHoja()...

Asumo que a la derecha no hay nada y que son datos y no fórmulas. Sub PasarAHoja2() Sheets("Hoja1").Activate Range(Range("xfd6").End(xlToLeft), Range("xfd6").End(xlToLeft).Offset(5, 0)).Copy (Sheets("Hoja2").Range("d6"))...

No queda claro por qué no te funciona. Me parece que tienes que usar dos campos diferentes: 1) Uno con el dato ingresado tal cual, sin redondear 2) Otro que sea funcion de 1), pero en lugar de redondear que haga Max(x, 1), de manera que cuando x sea...

Fíjate si te funciona bien así. Sub BorrarVaciosT() 'borra los valores futuros sin valor en columna T y reordena Range("B2").Activate Do Until ActiveCell > Date ActiveCell.Offset(1, 0).Activate Loop Do Until ActiveCell = "" If ActiveCell.Offset(0,...