Adriel Ortiz Mangia

Utiliza la función RESIDUO Aquí el ejemplo http://trucosycursos.es/separar-la-fecha-y-hora-en-campo-fechahora-de-excel/ Puntuar para finalizar saludos!

Sub CopiarDatos() 'Temp01 Set h1 = Sheets("Conciliación") Set h2 = Sheets("Resumen") j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 j = 9 For i = 3 To h1.Range("I" & Rows.Count).End(xlUp).Row If h1.Cells(i, "I") = "NO" Then h2.Cells(j, "A") =...

Opción 1 Sub espaciosvb() 'Quita Detrás del texto 'Fuente dante Amor ufila = ActiveCell.SpecialCells(xlLastCell).Row ucol = ActiveCell.SpecialCells(xlLastCell).Column For i = 1 To ufila For j = 1 To ucol Cells(i, j).Select ActiveCell =...

Con commandButton si, te anexo un ejemplo Cambiar colores de varios CommandButton al pasar el mouse

Envíame tu archivo [email protected] Indicando con un ejemplo el resultado esperado saludos!

Envíame tu archivo a [email protected]

¿Me puedes mostrar tu código de cierre?

Tengo entendido que no se puede extraer de pdf, te sugiero que conviertas a excel para que puedas trabajar en ello. Puedes usar el programa NITRO PDF

Sub evaluarEdad() edad = InputBox("Ingrese edad") Select Case edad Case Is >= 18 MsgBox "Es mayor de edad", vbInformation, "AVISO" Case Else MsgBox "Es menor de edad", vbCritical, "AVISO" End Select End Sub Recuerda valorar saludos!!

Te anexo el código Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set b = h1.Columns("A").Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Ya existe ese RUT" Exit Sub End If ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row...