paramisolo

Debes de poner la instrucción que cuando lleves tus datos al otro archivo si la celda no tiene datos que sea blanco: If ActiveCell.Value="0" Then ActiveCell.Value="" End If Prueba esto y me cuentas >Un saludo >Julio

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...

Pues como desconozco que has borrado, tan solo te queda hacer pruebas, llevate tus dos archivos a otro ordenador y prueba si funcionan, evidentemente deben de estar en la misma ruta, por ejemplo que la comunicación entre Word y Access la hacía...

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...