bacter582

Como estas amigo daniel, cuando utilizas la propiedad hide de un userform el solo lo oculta pero no lo descarga de memoria, no se si eso es lo que buscas, prueba y me comentas. Saludos Bacter sub commandbutton1_click() userform1.hide userform2.show...

Como estas amigo, Prueba esta macro a ver si te ayuda con tu problema Sub recorrer_amarillo() For i = 1 To 500 If Cells(i, 1).Interior.ColorIndex = 6 Then Sheets("hoja2").Cells(i, 2).Value = "Necesita Formacion" End If Next End Sub

¿Amigo lo único que necesitas es que lo ingresado en por el inputbox mostrarlo después en un texbox? Prueba almacenando la cadena en un variable, cambia en tu código lo siguiente. dim cadena as string cadena=InputBox("Ingresar N° Telefónico",...

Como estas amigo, pensé que ya habías resuelto tu problema, una pregunta, si solo quieres que a partir de tu punto de partida todos sean correlativos te sirve si a partir de allí los correguimos de esta manera Sub faltantes() For i = 1 To 50...

Como estas amigo Prueba de esta manera Sub Macro1() ' nbre = Format(Now, "dd-mm-yy hh mm ss") ruta = ThisWorkbook.Path ActiveWorkbook.SaveAs Filename:=ruta & "\" & nbre & ".xlsm", FileFormat:=52 ActiveWorkbook.Close End Sub

Como estas amigo si estas en orden, solo pon 1 en la celda A1 y en la celda A2=SI(B2=B1;A1;A1+1) y copias la formula en toda la columna A

Prueba con este macro Sub comprobar_color() If Range("A1").Interior.ColorIndex = 3 Then Range("a1").FormulaR1C1 = "=RC[1]*R[4]C[2]" End If End Sub

En excel cada unidad es como un día Entonces si quieres tener 1 hora se escribe =1/24 si quieres escribir 75 min, seria =1/24/60*75 si quieres 1 y 30 min seria =1/24/2*3 Luego que coloques los tiempos que necesitas realizas la resta directamente y...

Imagino que los datos en la hoja A están en una sola columna, de ser así puedes lograr lo que quieres con el siguiente macro. Sub Macro2() Columns("A:A").Sort Key1:=Range("A1") Columns("A:A").Copy Sheets("Hoja2").Select Columns("A:A").Select...

Como estas Isotz Lo probé de esta manera y funciona. Intentalo a ver. Private Sub CommandButton1_Click() Dim mivariable As Single mivariable = 1.23 TextBox1.Value = Format(mivariable, "##.##") End Sub