Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic para Aplicaciones » Inventario y Actas de entrega en Excel...

Visual Basic para Aplicaciones - Inventario y Actas de entrega en Excel...

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Inventario y Actas de entrega en Excel...

Publicado por Marco Antonio (3 intervenciones) el 10/12/2022 22:25:51
Buenas estimados amigos.

Tengo dos archivos dentro de la carpeta llamada archivos excel que se llaman INVENTARIO DEPOSITO 1 Y 2 JULIO 2022.xlsx y ACTA DE ENTREGA DE MATERIALES .xltx

En esta oportunidad recurro a su sapiencia en lo siguiente. En el archivo acta de entrega se coloca en la descripcion el nombre del articulo y en la cantida lo que se entrego en valor numerico. Quisiera ejecutar un macro que alfinalizar el acta de entrega las cantidades colocadas en el acta de entrega se me deduscan del archivo inventario.

Esperando su cordial y pronta respuesta
Atentamente
Marco
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Inventario y Actas de entrega en Excel...

Publicado por Marco Antonio (3 intervenciones) el 11/12/2022 20:29:10
Tengo el siguiente codigo para buscar la descripcion mediante un ID.

Mi pregunta es en .Find(What:=Range("D1")) con que sustituyo D1 si quiero que busque el ID insertado en una celda sea la misma D1 pero de otro workbook ?

Y en la parte DO que coloco la X en donde lo encuentra dos columnas despues como podria yo restar una cantidad en otra celda de otro woorkbook al valor que se encuentra en la celda que encontro en ves de colocar una X ?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub BuscarRapido()
    Dim Celda As Range
    Dim PrimeraDir As String
 
    Set Celda = Range("A:A").Find(What:=Range("D1").Value, _
                                  After:=Range("A1"), _
                                  LookAt:=xlWhole)
 
    If Not Celda Is Nothing Then
        PrimeraDir = Celda.Address
 
        Do
            Celda.Offset(0, 2).Value = "X"
            Set Celda = Range("A:A").FindNext(Celda)
        Loop While (Not Celda Is Nothing) And (Celda.Address <> PrimeraDir)
    End If
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar