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:

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

Prueba lo siguiente: Sub ciclos_for() Dim i As Long 'para las filas Dim j As Long 'para las columnas ' For j = Columns("A").Column To Columns("M").Column For i = 1 To Cells(Rows.Count, j).End(3).Row 'hasta la última fila con datos de la columna Next...

Prueba así: for i = 0 to 10 label1.caption = label1.caption & " " & i next Recomendable: https://youtu.be/f_x8pstpNqc