Abraham Valencia

[Hola Podrías usar "ElseIf" para agregar una condición: If Range("A17").Value = "Declaración y Pago" Then ..... ElseIf Range("A17").Value = "loquecorresponda" Then .... Else ..... End if Saludos] Abraham Valencia

[Hola Si a un archivo pdf le cambias la extensión a *.doc o *.docx, simplemente quedará ilegible. Sugiero comentar que es lo que deseas en realidad para poder ayudarte. Saludos] Abraham Valencia

[Hola Si necesitas que cada hoja de Excel quede en una página de Word, intenta así: Sub CopiaraWord() Dim Hoja As Worksheet Dim MiappWord As Object Set MiappWord = CreateObject("Word.Application") MiappWord.Documents.Add For Each Hoja In Worksheets...

[Hola Microsoft aún no saca una versión de Excel con VBA que sea soportada por Android u otros sistemas operativos para móviles. Solo corre en versiones "completas" de Windows, hay algunas Tabletas que los soportan. Abraham Valencia

[Hola Si el valor de la celda A1 de la hoja "NGRESO1" es cualquier valor mayor a 14, siempre te llevará a tu hoja "Ingreso5" pues todos tus "If" se evalúan ya que ninguno tiene un "Exit sub" para salir de la rutina. Por cierto, así les coloques los...

[Hola Suponiendo que todas las celdas tiene realmente nueve caracteres y que solo se cambia el último por un número cinco, entonces esto te será útil: Sub Cambiar() Dim Celda As Range For Each Celda In Range("A1:A30") Celda.Value = Left(Celda, 8) & 5...

[Hola En la macro que guarda seguramente tienes alguna línea que borra y/o deja en blanco a Txt_cantidad1, al hacer eso activas su evento "Change" y como posiblemente has hecho lo mismo con Txt_Venta1, ocasiona un error en la operación en donde te...

[Hola Para que en un "UserForm" funcione el tener botones de maximizar/minimizar tanto en Office de 32 bits como en Office de 64 bits, se debe colocar lo siguiente en el módulo del "UserForm: #If VBA7 Then Private Declare PtrSafe Function FindWindow...

[Hola Pues necesariamente tienes que usar VBA. Tal como pones en tu "asunto" (macro), pero tampoco es que sea tan simple. Dale una leída a estos enlaces como para que te vayas dando idea:...

[Hola Prueba así: Range("D6") = Date + TimeValue("06:00") Comentas Abraham Valencia