Dante Amor

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...

El contenido de las variables no se puede copiar de esa manera. Una opción es que lo pongas en una celda y después copies la celda. Otra opción es que lo pongas en memoria: Copy code problem | MrExcel Message Board Utiliza lo siguiente para obtener...

Prueba: Private Sub CommandButton1_Click() If Range("B4").Value = "" Then MsgBox "Falta cliente" Else Range("F4").Value = CDate(TextBox1.Value) End If End Sub Recomendación: https://youtu.be/5k0szqErdXg Sal u dos Dante Amor

Para encontrar la última fila con datos, puedes utilizar: Sub prueba() Dim lr As Long lr = Range("D" & Rows.Count).End(3).Row Range("ZP2:ZZ2").Copy Range("ZP3:ZP" & lr) End Sub Recomendaciones en mi canal: https://youtu.be/5k0szqErdXg Sal u dos Dante Amor

Ejemplo: If [ZZ5] = False then exit sub ---- Recomendable:

Revisa mi respuesta aquí: Duda en la expresión o sintaxis .end(3) o end(xlup) Recomendable: https://youtu.be/PupmVvM16-8 https://youtu.be/dy9w9zbkCaw Sal u dos Dante Amor

Si no quieres la fórmula, entonces puedes copiar la celda y pegar como valores. O edita la celda con la tecla F2 y después presiona la tecla F9. O con macro: Sub ponervalor() Range("B1").value = [A1] * 0.90 End Sub Recomendaciones:...

Utiliza lo siguiente para cargar el combo. No es necesario seleccionar la hoja. Private Sub UserForm_initialize () ComboBox.List =Sheets("proyectos").Range("B10",Sheets("proyectos").Range("B" & rows.count).end(3)).value End Sub Recomendable:...

Revisa el siguiente para generar pdf: https://youtu.be/j2sf0_ZCr7Y Sal u dos Dante Amor

Te puede interesar: https://youtu.be/PupmVvM16-8 Sal u dos Dante Amor