Victor Rodriguez

Este es el código que debes utilizar: Sub sumar() rango = InputBox("Rango", "Rango", vbOKOnly) saltar = InputBox("Columnas a saltar", "Salto", vbOKOnly) Range(rango).Select w = Selection.Rows.Count Selection.Cells(1, 1).Select celda =...

Te dejo en Dropbox un archivo que realiza lo que pides. Tendrás que adaptarlo a tus necesidades específicas, pero te muestra el camino de como poder hacerlo. En la Hoja1 hay dos listas, la primera con los tipos de insumo y sus costes y la segunda con...

Tienes que pegar esta Macro en la Hoja1: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo fin Dim resultado As Range Dim valor As String Dim rango As Range Application.CutCopyMode = False Application.ScreenUpdating = False If Not...

En mi experiencia, he sustituido procesos de combinar correspondencia reproduciendo la página word en una hoja de excel donde puedes actualizar los datos. Respecto a tu pregunta, tienes que concretar más. En que columna está la cantidad, donde copiar...

Para ir pegando el valor que pongas en la celda A1 en C1, D1, E1... etc debes pegar la siguiente macro en la Hoja correpsondiente del editor de proyectos: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Call Macro...

Si no te he entendido mal, la solución sería concatenar genero y especie en alguna celda de la Hoja1 y en cada fila de la Hoja2. Luego haces un BUSCARV la palabra concatenada en cada celda de cada especificación.

Creo que la opción más fácil seria con fórmulas: En la celda A16 poner = A2 En la celda A17 poner = B3 En la celda A18 poner = C4 etc...

Aqui tienes lo que necesitas He reproducido en la Hoja1 tu estructura de tu base de datos: Y en la Hoja2 tu buscador: Donde hay que poner el nombre a buscar en la celda A2 y las unidades en la casilla E2 También he añadido un botón para ejecutar la...

Entiendo que cada usuario es único, es decir, que el mismo usuario con diferente contraseña no significa dos usuarios diferentes. Dicho esto, para poder hacer lo que quieres tendrás que poner en la fila 1 el nombre de cada usuario así: De este modo...

Esto te servirá. Un saludo Sub constantes() numero = InputBox("Ingrese el numero") For Each Cell In Selection.Cells Cell.Select ActiveCell.Value = Cell * numero ActiveCell.Value = Application.WorksheetFunction.RoundUp(ActiveCell, 2) Next End Sub