Dos macro para que me ayudes
Una macro que lo que ponga en la celda C5 de la hoja REGISTROS sea mayúscula o minúscula lo busque en la hoja INGREDIENTES desde C2 hasta fin de datos si lo encuentra diga que ya existe; si no lo encuentra INSERTE una línea O UNA FILA EN FILA 2 para bajar los datos que existe y LLEVAR los datos de las celda C3,C4,C5 Y C6 a la hoja INGREDIENTE A LAS CELDA A2,B2,C2 Y D2 copiarlos en la fila insertada traspuesto y ordenar la lista de “A” ala “Z” sin tomar en cuenta la primera fila ya que están los títulos
Y otra macro que lo que ponga en la celda C12 de la hoja REGISTROS sea mayúscula o minúscula (que van hacer datos con guiones números y letras) lo busque DESDE A2 hasta fin de dato en la hoja PROVEEDORES si lo encuentra ME DIGA QUE ya existe; si no lo
encuentra INSERTE una línea O UNA FILA EN FILA 2 para bajar los datos que existe y LLEVAR los datos de las celda C12,C13 Y C14 a la hoja PROVEEDORES EN A2, B2
Y C2
gracias por la ayuda
1 respuesta
Te anexo las dos macros
'copia ingrediente nuevo
If Not Intersect(Target, Range("C5")) Is Nothing Then
Application.ScreenUpdating = False
fila = Application.Match(Target.Value, 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
'copia proveedor nuevo
If Not Intersect(Target, Range("C12")) Is Nothing Then
Application.ScreenUpdating = False
fila = Application.Match(Target.Value, 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 IfSaludos.dam
Todo excelente como te dije pero quería que me actualizara o copiara solo valores, me centrara ordenara donde los envía los títulos son nombres creados por asignar nombres también fuera bueno que me borrara en hoja registros el dato enviado a hoja proveedores como a hoja ingredientes ingrediente
