Claro para cada una usar en un boton
para cada unas de las macro la voy a usar en un botón
"estas dos macros me van a cargar datos y lo otro que ya me hiciste es para llamar esos datos y usarlo para otros procedimiento"
1 respuesta
Te envío las macros para que las puedas usar con un botón
Sub actualizaingrediente()
'copia ingrediente nuevo
'Por.dam
If Range("C5") <> "" Then
Application.ScreenUpdating = False
fila = Application.Match(Range("C5"), Sheets("ingrediente").Columns("C"), 0)
If Not IsError(fila) Then
MsgBox "Ya existe"
Else
Sheets("ingrediente").Rows("2:2").Insert Shift:=xlDown
Sheets("registro").Range("C3:C6").Copy
Sheets("ingrediente").Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End If
Application.ScreenUpdating = False
Application.CutCopyMode = False
End If
End SubSub actualizaprov()
'copia proveedor nuevo
'Por.dam
If Range("C12") <> "" Then
Application.ScreenUpdating = False
fila = Application.Match(Range("C12"), Sheets("proveedores").Columns("A"), 0)
If Not IsError(fila) Then
MsgBox "Ya existe"
Else
Sheets("proveedores").Rows("2:2").Insert Shift:=xlDown
Sheets("registro").Range("C12:C14").Copy
Sheets("proveedores").Range("A2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
End If
Application.ScreenUpdating = False
Application.CutCopyMode = False
End If
End Sub Sigue las Instrucciones para un botón y ejecutar la macro
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: actualizaingrediente
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
11 crea otra imagen y asígnale el nombre actualizaingrediente
Saludos. Dam
Si es lo que necesitas.
Super excelente lo único era que quería que copiara solo valores, ordenara al incluir o actualizar y centrara los datos,
disculpa pero cuando uno ve quiere mejorarlo mas, pero excelente esta realizando lo que necesito
gracias
