Dante Amor

Revisa esto: Capturar click sobre shapes en Excel con VBA

No lo he probado. Prueba lo siguiente, cambia esta línea Set b = Columns("A").Find(TextBox1, After:=Range(celda), Lookat:=xlWhole, SearchDirection:=hacia) Por esta: Set b = Sheets("Hoja1").Columns("A").Find(TextBox1, After:=Range(celda),...

Prueba esto: Sub Recorrer_Valores() Dim iRange As Range, c As Range Set iRange = Evaluate(Range("B4").Validation.Formula1) For Each c In iRange Range("B4").Value = c Call MacroGuardaPdf Next End Sub Cambia MacroGuardaPdf por el nombre de tu macro

Revisa la siguiente respuesta, ahí viene una opción para pegar en word: VBA Copiar en Excel y pegar como texto en Word?

Asumiendo que tienes los encabezados en la fila 1. Y la primer fecha empieza en la celda A2, prueba la siguiente macro: Sub Marcar_Celdas() 'Por.Dante Amor Dim a As Variant, b As Variant Dim i As Long, j As Long, u As Long Dim r As Range ' u =...

Rango fijo AR4:AV4 al K7:K12 (transponiendolo) secuencial mente hasta las celdas AB7:AB12. Puedes explicarlo con una imagen, qué tienes y qué resultado quieres.

Revisa el siguiente vídeo: https://www.youtube.com/watch?v=whowlh7SKKs&feature=youtu.be

Si estás poniendo en los textbox minutos : segundos, por ejemplo: 25 minutos y 35 segundos MENOS 16 minutos y 15 segundos IGUAL 9 minutos y 20 segundos. Es necesario completar el tiempo con las horas con "00", para que tengas horas, minutos y...

No encuentro algo como seleccionar y soltar en el listbox. Pero podríamos simularlo de la siguiente manera: 1. Cambia en el userform, la propiedad ShowModal a False. 2. Pon el siguiente código en los eventos de tu hoja: Private Sub...

Prueba lo siguiente para ver dónde tienes el problema: Sub test() Dim ruta As String, arch As String, hoja As String Dim l2 As Workbook Dim sh As Worksheet Dim existe As Boolean ' ruta = "C:\Users\Xavi\" arch = "MILIBRO1.xlsm" hoja = "Hoja2" ' If...