Dante Amor

Te anexo 2 macros, hacen lo mismo. Sub Copiar_Numeros() 'Por.Dante Amor Range("V1", Cells(30, Columns.Count)).ClearContents For i = 1 To 30 k = Columns("V").Column For j = 1 To Columns("T").Column If Cells(i, j) <> "" Then Cells(i, k) = Cells(i, j) k...

Prueba con la siguiente macro. Cambia la "N" en "N2:N" por la columna en donde quieres la fórmula. Cambia el 2 por el número de fila en donde debe empezar la fórmula. Sub Macro2() ' With Range("N2:N" & Range("M" & Rows.Count).End(xlUp).Row)...

Supongo que en la celda D3 tienes un número, si tienes una fecha tendría que ajustar la macro Prueba la siguiente macro Sub Copiar_Info() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") dia = h1.Range("D3") If dia = "" Or dia < 1 Or...

Tienes que hacer la correspondencia con etiquetas https://support.office.com/es-es/article/Crear-e-imprimir-etiquetas-con-la-combinaci%C3%B3n-de-correspondencia-276a2cd1-74d2-43d0-ab5a-b90460358ad5 Revisa vídeos de correspondencia de word-excel pero...

No veo todo tu código, en este código en ninguna parte escribes en la hoja, supongo que en los otros Userform tienes las instrucciones para pasar los datos a la hoja. También supongo que cuando abres el UserForm34. Show, en ese momento vuelves a...

Pon la siguiente macro en los eventos de tu hoja. Captura el valor inicio en la celda C1 y el valor final en la celda D1 Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor Set ini = Range("C1") Set fin = Range("D1") Set r =...

Esta línea significa que va a obtener la última fila con datos de la columna 1 o "A" lastrow = Sheets("Data"). Cells(Rows. Count, 1).End(xlUp). Row El problema aparece cuando lastrow = 2, en ese caso, no se puede AutoFill porque se estaría...

Te anexo la macro actualizada Sub Abrir_PDF_con_rundll32() 'Act.Por Dante Amor ' ruta = "C:\trabajo\pdfs\" arch = Dir(ruta & "*.pdf") ' Set l2 = Workbooks("imss.xlsx") Set h2 = l2.Sheets(1) l2.Activate h2.Cells.Clear ' Do While arch <> "" ArchivoPDF...

Te anexo la macro actualizada Private Sub CommandButton2_Click() ' ' Por Dante Amor ' ' 'Enviamos a otra hoja Excel la hoja Listados 'Guardar los datos de la hoja "listados" Application.ScreenUpdating = False Application.DisplayAlerts = False...

Te anexo las 2 macros Sub Incrementar() limite = 486 If Range("D1") = limite Then MsgBox "Límite alcanzado" Exit Sub End If Range("D1") = Range("D1") + 1 End Sub ' Sub Diminuir() Range("D1") = Range("D1") - 1 End Sub También puedes utilizar un...