chardtor

sandra155 respondió: Esto si se puede lograr Tienes que crear un formulario con un text box y un botón Y le agras este código Private Sub CommandButton1_Click() Selection.AutoFilter Field:=1, Criteria1:=TextBox1.Text Selection.AutoFilter Field:=1 End Sub

excelinomano respondió: De acuerdo a como lo planteas tu lo único que quieres es que cuando en la columna de la suma sea igual a cero cambie el valor que tienes en la columna C y ponga el valor 99. No sé cómo tengas acomodados tus números, pero al poner en la columna C un...

paramisolo respondió: Vaya tela de cansancio con esta macro, te la voy a reahceer sin que tenga que buscar nada, y que te borre las celdas contiguas. Esto lo hace en toda la columna A: Private Sub Borrar() bus=Inputbox("Dime que dato busco") Range("A1").Select Do While...

pollux_troy respondió: Vamos a hacerlo en forma super resumida y cortita... primero anota del 1 al 3 como lo tienes, en la celda de más abajo anota esta fórmula (suponiendo que comenzaste en la celda A1 y que colocaste ahí el primer dato), entonces: =si(a6=a5;a6+1;a6) Eso...

paramisolo respondió: Esta macro has debido de copiarla de algún sitio, y en él necesitaban algo más, has repetido la instrucción de buscar 2 veces pero solo funcionará una, para hacer lo que necesitas debes de poner esta otra: Sub buscar() Dim buscado As String Do While...

paramisolo respondió: Las lineas de código son fáciles serían estas ( acomodalás a tus celdas): If Range("E11").Value = "Aquí pones lo que necesites que encuentre en el valor de E11 'busque" Then ActiveCell.Offset(1,0).Select Selection.EntireRow.Delete End If >Un saludo >Julio

Elsa Matilde respondió: Esa instrucción deberá ir en todos los procesos, es decir al inicio de todos tus Sub...(). Seguramente te falta en alguno y algo de movimiento aún quedó.