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

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?

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

Todo es posible, pero con estas explicaciones tan poco precisas es casi imposible que la solución propuesta se ajuste a lo que solicitas.

Lo puedes resolver sin necesidad de macro, solamente con fórmulas. Suponiendo tu ejemplo sería algo así: Observa que tendrás que modificar la fórmula en cada columna; en la imagen de arriba, para los dias "2" al final de la fórmula sumo "4". Para los...

Algo así: a = 2 b = 2 Do While Range("a" & a).Value <> "" c = Range("c" & a).Value cod = Range("a" & a).Value pro = Range("b" & a).Value For d = 1 To c Range("e" & b).Value = cod Range("f" & b).Value = pro b = b + 1 Next a = a + 1 Loop

Para cambiar el nombre de una hoja utiliza la propiedad "name" del objeto worksheet. Simplemente iguala al valor de la celda que quieras: ThisWorkbook.Worksheets(2).Name = ThisWorkbook.Worksheets(1).Range("a1").Value Aquí estamos renombrando la...