víctor ibarz

MsgBox ("Se va a borrar los articulos de las hojas: PRODUCTOS-EXISTENCIA-ExistenciaRE"), vbInformation Dim respuesta As Integer respuesta = MsgBox("Quiere eliminar todos los registros?", vbYesNo + vbQuestion, "Borrar") If respuesta = vbYes Then...

Algo assí te servirá:

Puedes utilizar algo así:

Realmente la fórmula la tendrás que pensar tú, es algo medio subjetivo.. En cuanto a la ordenación, es más sencillo. Partiendo de tu ejemplo, he formulado en una columna a la izquierda la puntuación (la fórmula que tendrás que diseñar para que sea...

Revisa la fórmula, puedes ver que hay un "if" mal escrito.

Algo así debería funcionar: If Worksheets("Hoja12").Range("A2").Value = "" Then Worksheets("Hoja11"). UsedRange. Copy Worksheets("Hoja12"). Range("A1"). PasteSpecial xlPasteAll Else p = Worksheets("Hoja12").Range("A100000").End(xlUp).Row + 1...

Sería algo así: 'debes tener el rango que quieres copiar seleccionado p = InputBox("A partir de qué fila quieres pegar?") Selection. Copy Worksheets("Hoja10").Range("A" & p). PasteSpecial xlPasteAll Debes tener el código en un módulo, lo que hace es...

Casi seguro que se podrá resolver con fórmulas. Por favor, pon algún ejemplo de lo que quieres conseguir porque no queda claro, creo que hay un error en la fórmula que has puesto, en la parte final, que debería ser "A3;1);3)".. ¿puede ser?

Es posible, pero tendrás que poner el siguiente código en todas las hojas que quieras que registren los cambios. A tener en cuenta que si modificas varias celdas al mismo tiempo no registrará el nuevo valor.. pruebas y me dices. Aquí el código:...

Sería algo así: Dim mRange As Range Dim cell As Range Set mRange = Worksheets("Hoja7").Range("A1:C10") Dato = Application.WorksheetFunction.Min(mRange) For Each cell In mRange If cell.Value = Dato Then cell.Interior.Color = RGB(255, 0, 0) cell.Select...