Dante Amor

Cambia esta línea: arch = Dir(ruta & Cells(i, "B") & ".jp*") por esta: arch = Dir(ruta & Cells(i, "B") & ".*")

H o l a: Envíame un archivo con ejemplos en una hoja, y en otra hoja, me pones el resultado que esperas. En el asunto escribe tu nombre de usuario.

H o l a: Para crear la macro y contemplar todos los casos posibles, me puedes decirme que se tendría que hacer con cada uno de los siguientes casos, es decir, en cada caso dime si borro y cuál fila tengo que borrar. Sal u dos

H o l a: prueba con lo siguiente para que no se actualicen los vínculos: ActiveWorkbook.UpdateLinks = xlUpdateLinksNever Puedes ponerlo en el evento Open Sal u dos

H o l a: Pon lo siguiente en los eventos de Thisworkbook. Cada que te cambies de hoja se actualizarán los vínculos: Private Sub Workbook_SheetActivate(ByVal Sh As Object) ActiveWorkbook.RefreshAll End Sub sal u dos

H o l a: Escribe el número de fila en la celda G22 Pon la siguiente macro en un módulo: Sub SeleccionarFila2() 'Por.Dante Amor f = Application.InputBox("Introduce el número de fila", "Ir a", Range("G22")) If f = False Or f = "" Then Exit Sub If Not...

H o l a: Esta es una opción, pon la siguiente macro en un módulo: Sub SeleccionarFila() 'Por.Dante Amor f = Application.InputBox("Introduce el número de fila", "Ir a") If f = False Or f = "" Then Exit Sub If Not IsNumeric(f) Then MsgBox "Debes...

H o l a: En este evento txtbuscacli_change Tienes que cambiar esto: m = instr(1, activecell.value, ucase(txtbuscacli.text)) Por esto: m = instr(1, ucase(activecell.value), ucase(txtbuscacli.text)) Es decir, tienes que comparar mayúsculas con...

H o l a: Cambia esta línea: Criteria1:="=*" & Range("c1") & "*", _ Por esta: Criteria1:="=" & Range("c1") & "*", _

H o l a: Envíame tus archivos y me explicas con ejemplos, con colores y con comentarios lo que tienes y lo que esperas que haga la macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Beatriz Ivette Samaniego...