Aneudys Martinez

Seria de la siguiente manera Sub Completar() Dim rango As Range Set rango = Sheets("Hoja1").Range("E1:E10000") fecha = Sheets("Actualizacion").[E4] For Each celda In rango If celda.Value = "SI" and celda.offset(0,1) = "" Then celda.Value = "SI"...

Sería de la siguiente =suma.si.conjunto(B1:B12;A1:A12;D1) Si te silve no olvides valora para cerrar la pregunta

Yo lo haría de la siguiente manera una carpeta compartida Y crear otro libro como base de datos El que tiene copia lo a lodos los usuarios en su pc y crea un procedimiento que copie la información en el. Libro base de datos con abrir y cerrado

[email protected] vamos a trabaja en eso

Puedes usar algo así for each celda in range ("a2:a25) If celda.offset (0,1) = "pendientes" Then combobox1.addítem celda End If next Donde el range ("a2:a25") es la columna donde estan los numero de facturas y celda. Offset (0,1) es la columna b y...

No se que metodo usa para la busquwda puedes usar algo así En un boton Set buscar = range ("a2:a10").find (textbox1) If Not Buscar Is Nothing Then msgbox buscar.address End If Y si te interesa con usar buscar.Select Esto la selecciona Si te silve no...

No se que tenga la macro1 Pero puede usar si la columna a es donde están lo id con que pongas If Not Buscar Is Nothing Then Range ("b5") = Buscar.offset(0,1) End If End If End Sub Con estos logras copiar en b5 el apellido Otra cosa sería para reducir...

[email protected] sería como hacer un retorno de esa factura hacerla como una entrada mándame el archivo y trabajemos en ello

[email protected] si vamos ayudarte sólo manda el libro

[email protected] es un reporte para el. Mismo libro o uno nuevo mándame el archivo y enumera lo que requiere