Dante Amor

H o l a: Tengo algunas dudas sobre lo que quieres hacer. Entiendo que un listview vas a tener cargados varios registros, entonces qué quieres hacer: - ¿Seleccionar un registro y que el nombre de ese registro seleccionado se ponga en la celda P23?...

H o l a: Te anexo la macro: Sub CopiarHotel() 'Por.Dante Amor Application.ScreenUpdating = False u = Range("B" & Rows.Count).End(xlUp).Row For i = 7 To u If Cells(i, "A") <> "" Then nom = Cells(i, "B") Cells(i, "A") = "" Else Cells(i, "A") = nom End...

Envíame un correo nuevo con el archivo y las explicaciones detalladas. R ecuerda poner tu nombre de usuario en el asunto del correo.

H o l a: Te anexo la macro Sub BuscarNumeros() 'Por.Dante Amor co1 = "A" 'columna de números cel = "B2" 'celda con el número a buscar co2 = "C" 'columna de resultados ' num = Range(cel) u = Range(co2 & Rows.Count).End(xlUp).Row + 1 Range(co2 & 2 &...

H o l a: Lo que hace la macro es copiar el contenido del txt después de la última fila con datos. ¿Lo qué tu quieres es copiar el contendido del txt pero en dónde? En cuál hoja, ¿a partir de cuál fila? ¿A partir de cuál columna? Podrías especificarlo...

H o l a: Envíame tu archivo con algunos ejemplos de cómo están tus datos. Dime en dónde se va a poner la imagen. También envíame los archivos de las imágenes que pusiste en los ejemplos. Mi correo [email protected] En el asunto del correo escribe tu...

H o l a: Te anexo la actualización: Dim d1 As Variant, d2 As Variant d1 = Left(TextMatricula.Text, 1) d2 = Mid(TextMatricula.Text, 2, 1) obj_Worksheet.Range("Q11") = d1 obj_Worksheet.Range("R11") = d2' : ) 'S aludos. Dante Amor. Recuerda valorar la...

H o l a: No entendí a qué te refieres con "el último registro de las celdas AA1", querrás decir al último registro de la columna "AA", si es así podrías poner una imagen dónde se vea cuál es el último registro de la hoja1 de la columna AA, BE, BR, CE...

H o l a: Para cambiar el folio se requiere de una macro. Pon la siguiente macro en un módulo: Sub ImprimirHoja() 'Por.Dante Amor num = InputBox("Escribe el número de copias", "IMPRIMIR") If num = False Or num = 0 Or num = "" Then Exit Sub If Not...

H o l a: Pon el siguiente código en el formulario, cambia CommmadButton1 por el nombre de tu botón. Private Sub CommandButton1_Click() 'Por.Dante Amor ruta = escritorio() If ruta = "" Then MsgBox "No existe la carpeta escritorio" Exit Sub End If...