Cadipas spain

Si el cambio de color lo haces manualmente en la hoja Orden de trabajo, lo que tienes que hacer es Seleccionar todas las hojas y lo que cambias de color en una, lo hacen también en elas demás, es importante que todas tengan el mismo formato. El...

celda A1=el valor por ejemplo 234/245 Celda B1=quiero sumar a la A1 el valor de la celda C1 (que en nuestro caso es 3) Utiliza esta fórmula: Celda B1=IZQUIERDA(A1;3)+C1 & "/" & DERECHA(A1;3)+C1

Prueba esto: Sub quitoXdeC() f = 1 Do While Cells(f, 3) <> "" If UCase(Cells(f, 3)) = "X" Then Rows(f).Delete Shift:=xlUp f = f + 1 Loop End Sub

Es raro que no puedas arrastrar la fórmula, pero bueno si lo dices así será. Podrias enviarme un fichero a cadipas.spain ARROBA gmail.com y lo reviso, en el aunto pon AYUDA de todoexpertos =MSAMENOS y si puedes una brebe explicacion a que celdas...

Prueba con esta macro que se ejecuta cada vez que entras en la hoja3: (Si por algún motivo na sabes que hacer con esta macro, dime y te lo indico.) Private Sub Worksheet_Activate() Cells = "" Set h1 = Sheets("hoja1") Set h2 = Sheets("hoja2") Set h3 =...

Prueba esto: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(TextBox1) Then MsgBox "Hay que poner bien el formato Hora:minuto" TextBox1 = "" Else If IsDate(TextBox2) Then calcula_hora End If End Sub Private Sub...

Creo que lo he resuelto con una macro, te la adjunto y si no sabes que hacer con ello, me lo indicas y te maco los pasos. Mi consejos es que hagas a prueba con un fichero copia, parq ue no pierdas los datos. '-------- Private Sub...

Prueba esto: ' le he puesto que al iniciar el formulario cargue los valores de los dos combobox, esto puede que lo tengas ya realizado, pero lo he hecho para que me cargue a mi. '---------------------------------------------- Private Sub...

Podrías utilizar la siguiente macro: Sub InsertaFila() f = 1 Do While Cells(f + 1, 1) <> "" diferencia = Cells(f + 1, 1) - Cells(f, 1) If diferencia > 1 Then rango = f + 1 & ":" & f + diferencia - 1 Rows(rango).Insert Shift:=xlDown End If f = f +...

Prueba esta macro: '------------------------------------ sub separ2lineas() f = 1 Do While Cells(f, 1) <> "" f = f + 1 rango = f & ":" & f + 1 Rows(rango).Insert Shift:=xlDown f = f + 2 Loop End Sub '---------------------------------