paramisolo

Pues bien quedarí algo así: Sub ordenar() Dim celdaINI,celdaFIN,valor As String Range("A1").Select Do While ActiveCell.Value<>"" Do While ActiveCell.Value<>"N" ActiveCell.Offset(1,0).Select Loop If ActiveCell.Value="N" Then...

Y porque no sigues con el xlOr como criterio 3 Pruébalo >Un saludo >Julio

Se puede hacer con una macro que este colocada en la hoja. Me explico: Pulsas Alt+F11 y en la ventana de VBA que te aparece en la columna de la izquierda pulsas doble click sobre la hoja donde quieres hacer esto en automático, y pegas esto en la...

Claro que es posible te pongo las lineas de código solo para el ejemplo siguiente, como no sé donde quieres que te lo devuelva lo pondré en la columna E: A B D 1 café provisión carlos Sub Buscar_Caracteres() Dim mi_celda, celdaA, celdaB, celdaINI,...

Te sitúas en VBA y en la hoja desde donde se imprime el reporte pones esto: Private Sub Worksheet_Change(ByVal Target As Range) Target.Address="$F$99" If Target.Value=27 Then Aquí tu macro de impresión sin la primera linea ni la ultima End If End Sub...

¿Tienes un ratón inalámbrico o por cable?, Has probado a aumentar la velocidad del puntero en Panel de Control>Mouse>Opciones de puntero. Y lo principal ¿has probado a poner otro ratón a ver si ocurre lo mismo? Comprueba esto y me dices a ver si...

Abres el libro al que quieres copiar los datos y en la celda que quieres que aparezca el dato del otro libro escribes en la barra de fórmulas: ='C:\Documents and Settings\Usuario\Escritorio\[Libro1.xls]Hoja1'!$A$1 Copias el dato a la de abajo y ya lo...

Vamos a ver si te he entendido copias las celdas de A a B y la celda de la columna H de A debe estar vacía, la macro quedaría así: Sub Copiar_Pegar() Dim cel1, cel2, cel3, valor, cel4, cel5, cel6, cel7 As String Sheets("Hoja1").Select 'Suponiendo que...

Este archivo ha sido creado en tu pc o lo has traído desde otro. Solo te sale error in loading DLL o te dice que DLL es has probado a llevarte el archivo a otro pc para saber si allí se ejecuta Prueba todo esto y me dice. >Un saludo >Julio

Para guardar el archivo en la sentencia de VBA tan solo debes poner esto: NombreArchivo = InputBox("¡Escriba el nombre del Libro!", "Guardar Libro", 1) ChDir "C:\Documents and Settings\Usuario\Escritorio" ActiveWorkbook.SaveAs Filename:= _...