Miguel Angel

Dante Amor respondió: Intenta: Sub prueba() Dim RutaArchivo As String RutaArchivo = "C:\Users\Miguel Angel\Downloads\Sunface Stick.mp4" With Range("D5") .Value = RutaArchivo .Copy 'en este momento tienes la celda copiada 'debes seleccionar la aplicación donde quieres...

Elsa Matilde respondió: Si lo que necesitas es utilizar solo el teclado, podrías tener la siguiente macro, que se ejecutará con un Atajo de teclado. Desde la celda donde quieras que se pegue la ruta encontrada, presiona juntas las 2 teclas (en mi caso es CTRL R (mayúsc o...

Dante Amor respondió: No veo en tus imágenes qué dato pusiste en el textbox. Cuántos registros tienes en la hoja.

Dante Amor respondió: ¿Qué debería hacer la macro? ¿Te envía error? ¿Qué dice el error? ¿En cuál línea se detiene? Qué tienes en esta línea: Sheets("COTIZADOR"). Range("Q2") Cuántos registros tienes en la columna A de la hoja ("Relacion de Facturas Generadas") Puedes...

Dante Amor respondió: Prueba lo siguiente: Private Sub TextBox1_Change() Dim i As Long, j As Long Dim a As Variant, b As Variant, c As Variant Dim existe As Boolean Application.ScreenUpdating = False If Hoja1.AutoFilterMode Then Hoja1.AutoFilterMode = False a =...

Dante Amor respondió: Prueba lo siguiente: Sub Macro1() Dim cod As Variant, f As Range cod = Application.InputBox("Entra el código") If cod = "" Or cod = False Then Exit Sub Set f = Sheets("Constantes").Range("A:A").Find(cod, , xlValues, xlWhole, , , False) If Not f Is...