boumerang

Si seleccionas la primera hoja, y luego la última mientras sostienes la tecla SHIFT, todo lo que escribas y hagas en la primera, se reflejará en todas las que fueron seleccionadas, en el mismo lugar que la primera.

En su lugar utiliza Exit Do, como en el siguiente ejemplo: Sub x() Do While True Exit Do Loop MsgBox 2 End Sub

Solución: - Dim matriztotales(1 To 7) As Integer

Entiendo lo general del asunto, pero para ser preciso, necesito examinar el código de tu formulario. Pégalo en mensaje siguiente. -

Oh!... interesante rutina. - Sub REPETIDOS() Dim NOMBRE As Range Dim CELDA1, CELDA2, NumReg As Long NumReg = Range("A1").CurrentRegion.Rows.Count For CELDA1 = 1 To NumReg - 1 If Not Range("B" & CELDA1).Value = "" Then For CELDA2 = CELDA1 + 1 To...

Como las hojas no tienen un orden para ser copiadas, entonces el proceso no puede automatizarse all 100%: tienes que activar la hoja y luego ejecutar el procedimiento, que es el siguiente: - Sub TRASPASA() Dim C As Range Dim HOJA As String Dim I As...

No está a mi alcance ese método. Investigaré pero... por lo pronto solo puedo ofrecerte activar una contraseña para protegerlo.

Abajo de Sub ... (), agrega ON ERROR GOTO IMG_ERROR Antes de End Sub, agrega las tres lineas siguientes IMG_ERROR: MsgBox "La Imagen No Existe" ' OPCIONAL Exit Sub

A cada proveedor, agrégale una celda por producto en la cual insertarás la función SUMAR. SI con el criterio apropiado para que solamente sume la cantidad correspondiente a su proveedor(hoja) y producto(registro) la cantidad que corresponda. - Si no...

Tienes que implementar un procedimiento de automatización en VB, que realice lo siguiente: 1. Verificar los datos que deseas archivar. 2. Insertar una fila en la hoja de cálculo 3. Copiar y pegar los datos. 4. Ordenar por descripción. - Si deseas...