Elsa Matilde

Esta sería la macro que luego de registrar la venta descuente del stock en hoja Producto. Como no tenés un código de producto se recorre la col en busca de la descripción del producto. Private Sub btn_cobrar_Click() 'ajustada x Elsamatilde Dim Fila...

Seguramente habrá diferentes modos de combinar funciones para obtener este resultado, yo utilicé la siguiente: =SI(SUMAR.SI.CONJUNTO(Hoja3!A:A;Hoja3!A:A;C9;Hoja3!B:B;D6;Hoja3!C:C;C6)> 0;"F";"") Aquí 'Hoja3' se refiere a la tabla con los datos. Sdos y...

Como no dejas ninguna indicación de qué datos vas a copiar solo dejo un ejemplo para que veas cómo se obtiene la primer fila libre, que es el tema de tu consulta. Sub copia_al_final() 'x Elsamatilde 'se establece cuál es la primer fila libre en hoja...

Respondí a consulta similar. Allí comento la necesidad de utilizar una hoja auxiliar para ir guardando los rangos y luego imprimir esta hoja. Comenta si necesitas que te ayude con las instrucciones de copiado. Sdos. Elsa

Si necesitas imprimir todo en un sólo PDF, debes copiar cada rango uno debajo del otro en una hoja auxiliar y luego imprimir esa hoja. Para copiar los rangos debes utilizar una variable que te vaya guardando la última fila ocupada como por ejemplo:...

Te respondí en consulta similar, ¿entiendo qué se trata de la misma macro? Te la reitero. Si algo no queda claro o necesitas otros ajustes, da por cerrada ( valorando) la consulta anterior y seguimos en ésta. Sub buscar() 'ajustada x Elsamatilde...

El párrafo de la copia debe quedar así: 'pega en hoja 'Alumnos' a partir de A2 - AJUSTAR Sheets("Alumnos").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...

Entiendo que la primera vez los datos serán ubicados en A1:A4 ... pero luego seguirá en A5 y así hacia abajo. ¿O necesitas que las 4 col del combo vayan en la misma fila? A1:D1 para la primera vez, A2:¿D2 la segunda y así hasta el final? Espero tus...

Le hice algunos ajustes: Sub buscar() 'ajustada x Elsamatilde filalibre = Sheets("hoja2").Range("A65000").End(xlUp).Row + 1 dato = InputBox("que dato buscamos???") If dato = "" Then Exit Sub Application.ScreenUpdating = True Set buscado =...

Esta sería un código para confirmar la ejecución de una macro: sino = Msgbox("¿Deseas ejecutar el siguiente proceso?",vbyesno,"Confirmar") If sino <> vbyesno Then Msgbox "Cancelado": Exit Sub 'Aquí sigue tu proceso o llama a otra macro. Sdos. Elsa...