Dante Amor

H o l a: Te anexo la macro, prueba y me comentas. ':) ':)

H o l a: Revisa el siguiente vídeo. https://www.youtube.com/watch?v=whowlh7SKKs&feature=youtu.be En el minuto 7:20 del vídeo, lo que hace es copiar una imagen para que en esa imagen se vea el contenido de las celdas. En lugar de copiar una imagen,...

Puedes poner una imagen para ver en dónde tienes las fechas y en dónde tienes los textos. También puedes explicarme cuál fecha se buscaría y cuál texto se buscaría, explica con un ejemplo que se pueda ver en al imagen, es decir, en dónde vas a poner...

H o l a: Te anexo la macro Sub Correlativo() 'Por.Dante Amor ant = Cells(2, "A") n = 1 For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If Cells(i, "A") <> ant Then n = 1 Cells(i, "B") = n Cells(i, "C") = "M" & n n = n + 1 ant = Cells(i, "A") Next...

H o l a: Me puedes enviar tu archivo con tus listas y me explicas con un ejemplo. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Julian Saldarriaga Blandon” y el título de esta pregunta.

Y cómo haces los filtros, ¿con una macro? O tal vez los botones están en la hoja, pero se hicieron pequeños. Pon los botones fuera del filtro, es decir, si en la fila 1 tienes encabezados, entonces pon los botones dentro de la fila1. Revisa las...

H o l a: ¿Cuáles datos vas a tirar? ¿En dónde los vas a tirar? Si ya tienes tu archivo con el userform, envíame tu archivo y me explicas cuáles datos y en dónde los quieres poner. Sal u dos

Cambia esta línea: r.Copy h2.[A1] Por estas: r.Copy h2.[A1].PasteSpecial Paste:=xlPasteValues h2.[A1].PasteSpecial Paste:=xlPasteFormats sal u dos

H o l a: Pon la siguiente macro en los eventos de tu hoja. Dim valor ' Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then 'valor = Target If...

Así quedarían tus macro completas en el evento thisworkbook Dim salir Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor If ActiveSheet.Name <> "Hoja1" Then MsgBox "Este libro solo se cierra en la hoja1, posiciónate para cerrar"...