Adriel Ortiz Mangia

H o l a. Buen día ¿Cuáles son los criterios? Muestra una imagen hoja1 y hoja 2 para ver las filas y columnas

H o l a te paso la macro formato = hh: mm AM / PM If Textbox1 <> formato Then ' MsgBox "ingresa con el format hh:mm AM/PM", vbCritical Exit Sub ' End If valora la respuesta para finalizar

H o l a La macro copia si cumple las condiciones a la hoja2 y elimina los datos copiados de la hoja1 Necesito las columnas, yo asumí que las condiciones está en la E, la fila 2 empieza tus datos fuera del encabezado. Sub CopiarDatos_elimina() 'Por...

H o l a ¿Cuál es el rango al borrar?

Te paso la macro Sub guardar() Act.Aortiz ' - - - - - - - - - - IMPRIMIR EN PDF - - - - - - - - - - - - - - - - - Set h1 = Sheets("Hoja1") Fecha = h1.[J5] 'Dirección donde se va a guardar el PDF CREADO y nombre del PDF nombre = "STK al " & Fecha ruta...

H o l a Has de este modo. Cambia el nombre de la etiqueta de resultado por el tuyo Label1.caption = Format(Label1.caption, "###0.00") valora para finalizar saludos!

H O L A te paso la macro Set h1 = Sheets("Hoja1") Set b = h1.Columns("B").Find(TextBox2, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Ya existe" Exit Sub End If ' u1 = h1.Range("B" & Rows.Count).End(xlUp).Row + 1 H1. Cells(u1, "B") = TextBox2...

h o l a Copia al final de tu macro Sheets("Hoja1"). Activate

H o l a Private Sub UserForm_Activate() 'Act por Aortiz ' Dim carpeta, archivo carpeta = "C:\Users\" archivo = Dir(carpeta & "*.xls*") Do While archivo <> "" Data = InStr(1, archivo, ".xls") ComboBox3.AddItem Mid(archivo, 1, Data) archivo = Dir()...

Revisa esta página http://es.ccm.net/forum/affich-19554-como-cambio-hora-y-fecha-hotmail