Dante Amor

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...

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...

Según tu macro el nombre de la hoja lo toma de la B3 y en A7 debes tener un número de fila. Te anexo la macro actualizada Sub Btn_Guardar_Informacion2() 'Act.Por.Dante Amor Set h1 = Sheets("AVISO") hoja = h1.Range("B3") If hoja = "" Then MsgBox...

Pon lo siguiente el botón cuando vayas a registrar los datos: Private Sub CommandButton1_Click() ' ' err_matricula = False For i = 1 To 4 If Not IsNumeric(Mid(TextBox1, i, 1)) Then err_matricula = True Exit For End If Next For i = 5 To 7 If...

¿Y qué no te sale? ¿Te envía algún error? ¿Qué dice el error? Prueba con esto: aa = TextBox11.Value bb = TextBox12.Value dd = Sheets("Data").Range("G" & Bos_Satir).Value cc = CDate(bb) - CDate(aa) If CheckBox4.Value = True Then...