Saltar al contenido

Macros y programación VBA

Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?

  1. Saludos: Ya tengo un macro donde envío el mensaje utilizando Outlook, pero me gustaría saber si se puede que el destinatario Cc (Carbon copy) salga protegido. O sea que cuando abra Outlook el usuario no pueda borrar el destinatario Cc: Eso de puede? Gracias anticipadas!!

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.1k visitas
  2. Started by AndreaSys,

    Hola, estoy realizando el traspaso de una tabla de excel a word, con un formato establecido y que contenga todos los valores de la hoja.. sin embargo he tenido problemas con poder guardarla donde deseo ya que solo me expulsa finaliza la macro pero no lo guarda donde se necesita y ahora ultimo me lanza el "error 4602": No se puede activar la aplicación, en la fila: .Activate ' Leí por ahí que hay que habilitar referencias, tengo windows10 y la verdad mi conocimiento de vba es básico, ya que he aprendido por mi cuenta estos últimos meses.. si alguien me pudiera ayudar con que referencias habilitar o deshabilitar se lo agradecería mucho. Por otro lado si …

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.2k visitas
  3. Started by luis angel,

    saludos a todos. esto es un ejemplo corto de una hoja . la original es mas grande tiene mas cuentas que consolidar. lo que ando buscando es lo siguiente. en la hoja control en la columna contabilidad debo ingresar datos que debo de obtener de la hoja balance este balance lo debo de bajar de una aplicacion una vez al mes. para poder consolidar las cuentas que estan en la hoja control. en la hoja balance me van a salir mas de 100 ctas. las cuales salen en orden de cuenta de menor a mayor. pero en la hoja control las cuentas son alrededor de unas 30 y van de menor a mayor. Le estos hablando de la hoja original. la que estoy subiendo es un ejemplo para que…

    • 0

      Reacciones de usuarios

    • 14 respuestas
    • 2.2k visitas
    • 1 seguidor
  4. Started by johan moreno,

    Hola amigos de foro Como siempre consultando y solicitando su ayuda.. En una tema anterior el Amigo Ikanni (Muchas Gracias), me ayudo con la forma para realizar la macro que transferia por hojas la informacion de una tabla aqui el link de mi Consulta El Archivo Filtro IK.xlsm tiene la función de generar hojas (en un Segundo Archivo Mayor) con la data, mediante un combobox y lo mas importante transferir data, creando la hoja sino existe, de existir lo copia como data nueva, 1.- Con un Combobox Genera una a Una cada Cuenta 2.-Con una Macro(Transferir) genera una corrida con todas las cuentas cuentas contable (hoja cuenta) 3.- Medi…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 922 visitas
  5. Started by JUANJG,

    Cuando ingreso el siguiente código html en el diseño de mi pagina web obtengo un Boton de Enviar (coloco datos de ejemplo), lo que quiero es replicar ese funcionamiento pero en excel, es decir insertar un botón en excel y que al dar clic me abra la url tal cual lo hace el boton insertado en mi pagina. <form method="post" action="https://sandbox.checkout.payulatam.com/ppp-web-gateway-payu/"> <input name="merchantId" type="hidden" value="508029" > <input name="accountId" type="hidden" value="512321" > <input name="description" type="hidden" value="Test Pago" > <input name="referenceCode" type="hidden" value="TestPago" &…

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 3.4k visitas
  6. Started by mdiaz2006,

    Estimados, alguien sabe como insertar archivos (o paquetes de archivos) PDF en un excel? gracias

    • 0

      Reacciones de usuarios

    • 56 respuestas
    • 9.5k visitas
    • 2 seguidores
  7. Started by hiddenmafia,

    Queridos colegas tengan buen día. Ahora me encuentro con una dificultad la cual es que no logro mostrar los encabezados de los datos que voy añadiendo al ComboBox. Cambie Mencionar que el combobox de arriba en el evento change realice la instruccion sobre el combobox de abajo. codigo: With ComboBox10 .AddItem BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 1) = BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 2) = BD.Range("D" & x_Busco) .List(ComboBox10.ListCount - 1, 3) = BD.Range("C" & x_Busco) .List(ComboBox10.ListCount - 1, 4) = BD.Range("B" & x_Busco) .List(Co…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.5k visitas
  8. Ciao a tutti, il mio nome è Maurizio E il problema che mi sta facendo impazzire è questo: in un form utente ho inserito una casella di testo1 e un commandbutton1 Ora, lo scopo di questo progetto sarebbe quello di essere in grado di creare almeno 5 caselle di testo (dinamico) sono stato in grado di creare (1) ma non riesco a creare gli altri quattro semplicemente premendo il pulsante. Hai una vaga idea di come questo possa essere fatto. Inoltre, è possibile salvare il testo di ogni "casella di testo" in un file txt separato o meno, la scelta è tua! Alla Deirettory (C:) Grazie per tutto l'aiuto che potete darmi saluti da A.Maurizio ##########…

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 1.2k visitas
    • 1 seguidor
  9. Started by Predi,

    Hola Como se puede hacer en esta macro para que me avise que ya existe el documento y que si lo quiero grabar With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & " \ " .Title = "PROYECTADOS SEIXO - Seleccionar carpeta" .Show If .SelectedItems.Count = 0 Then Else Ruta = .SelectedItems(1) MsgBox "Guardando en PDF Factura '" & NumFactura & "'. Presione Aceptar para continuar...", _ vbInformation, "PROYECTADOS SEIXO" …

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 936 visitas
  10. Started by joselica,

    Buenos dias, He creado una macro que me guarda los datos de la hoja "INSERT" a la hoja "DATOS" y va muy bien. Me pregunto, si al guardar los datos, la macro me puede guarde los datos según lo que pretendo en el "TITULO 2 - LO QUE PRETENDO QUE HAGA" Adjunto el documento para ayudarme solucionar este tema. Gracias. Saludos, Jose DESAYUNOS VBA.xlsm

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 675 visitas
    • 1 seguidor
  11. Started by Marcos14,

    Hola a todos, he probado un montón de cosas para intentar conseguir la dependencia de tres combobox, en el archivo adjunto tengo la relación de los combox, pero no consigo hacerlo. Solo cargo el principal. Espero vuestra ayuda Gracias Combobox.xlsm

    • 0

      Reacciones de usuarios

    • 23 respuestas
    • 3.6k visitas
    • 1 seguidor
  12. Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim rumbo As String If Application.Intersect(Target, Range("E4")) Is Nothing Then Exit Sub Else Set KeyCells = Range("E4") Azi = KeyCells If (Azi >= 0 And Azi <= 20) Then rumbo = "nn" ElseIf (Azi >= 21 And Azi <= 69) Then rumbo = "ne" ElseIf (Azi >= 70 And Azi <= 110) Then rumbo = "ee" ElseIf (Azi >= 111 And Azi <= 159) Then rumbo = "se" ElseIf (Azi >= 160 And Azi <= 200) Then rumbo = "ss" ElseI…

    • 0

      Reacciones de usuarios

    • 27 respuestas
    • 3.8k visitas
  13. Started by Marcos14,

    Hola a todos, he mirado en varios sitios, incluido aquí pero no consigo aclararme para poder crearlo, por eso os pido ayuda con esto. Necesito crear un treeview con los datos que adjunto en el archivo, tambien si es posible si conoceis de algun tutorial donde lo explique con mucha claridad ya que tengo que crear otro treeview pero con más cosas. Espero vuestra ayuda. Gracias vademecum.xlsm

    • 0

      Reacciones de usuarios

    • 13 respuestas
    • 4.9k visitas
  14. Started by afigueroaf,

    Hola a todos MacroLovers, Sucede que de vez en cuando me encargan reiniciar un servidor, al cual posteriormente debo cargarle una serie de comandos vía telnet por el puerto 23, lo cuál claramente toma tiempo, en consecuencia estaba pensando si será posible ejecutar alguna macro que a través de un combobox me pregunte la IP, para posteriormente enviar el listado de comandos en forma automatizada? Gracias,

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.4k visitas
  15. Started by pablo ninguno,

    buenas como estan, quisiera saber si alguien me puede ayudar a modificar esta macro que cuenta los registros únicos totales , pero lo que necesito ahora que solo cuente los registros únicos visibles ya que tengo que usar filtros. Desde ya muchas gracias Function contar_unicos(rngSeleccion As Range) Dim collUnicos As New Collection Dim rngCell As Range On Error Resume Next For Each rngCell In rngSeleccion collUnicos.Add rngCell, CStr(rngCell) Next rngCell On Error GoTo 0 contar_unicos = collUnicos.Count End Function

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 6.4k visitas
    • 1 seguidor
  16. Started by juan Ignacio,

    Estimados, Junto con saludar y esperando que se encuentren bien, tengo el siguiente problema, necesito traer el código que se encuentra en la columna C9 a la B9 con la extensión (Dos últimos caracteres) que se encuentra en la columna V9 siempre y cuando cumpla las condiciones que se encuentran en las columnas W9 - X9 - Y9. Adjunto archivo para su revisión donde hay una formula pero algo le falta para que cumpla las condiciones. Gracias por todo !! Juan Ignacio. CONDICION_PAYER (2).xlsx

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.6k visitas
    • 1 seguidor
  17. Started by dff1403,

    control de stock.rar Hola Amigos del foro, Estimados, en este caso adjunto un archivo que no logro ver como hacer para que se puedan ingresar datos mediante un formulario de ingreso de mercaderia y se habilite y desabilite segun seleccion del cotenido. En el mismo archivo que adjunto esta la informacion respectivamente detallada. Agradezco su atencion. Saludos.

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 1.3k visitas
    • 1 seguidor
  18. Amigos les dejo esta macro con ayuda de AlexanderS para crear una una hoja en la cual agregue el nombre a la hoja en base a una celda señalada( en este caso es la fecha del informe en la hoja ingreso), además borra solo el botón que asigna la macro y borra imágenes pero no todas las imágenes que tengo en la ficha de ingreso ( solo le asigne un nombre al botón que ejecuta la macro . Espero que ha alguien le sirva tanto como me sirvio a mi Sub guardar() Application.ScreenUpdating = False Nombre_Hoja = Format(Range("d13"), "dd-mm-yyyy") On Error Resume Next Set hoja = Sheets(Nombre_Hoja) If Err.Number = 9 Then Sheets("ingres…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.3k visitas
  19. Buenas tardes Les mando un saludo a esta magnífica comunidad de ayuda... Quisiera ver la posibilidad en apoyarme en detectar, porque me manda un error de Byref en el siguiente codigo: Declaro la siguiente Variable en un Modulo Option Explicit Public TablaDB As String ########################################### luego hago el siguiente procedimiento en otro modulo ########################################### Sub AllUnidades(TUnidades As String, lvUnidad As Object) Dim Datos As Object Dim MiConexion As String Dim Item As Object AsignarVarConexion MiConexion = RutaBD &…

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 2.4k visitas
  20. Started by JorgeD,

    Hola ¡ Soy nuevo en este foro y también en el tema de las MACROS y quiero pedir de su valiosa ayuda para poder automatizar con una macro un archivo de clientes(ADJUNTO ARCHIVO CLIENTES) el cual ya ordené utilizando el grupo esquema de la pestaña datos con el icono de subtotal de excel. No obstante, por cada Total de clientes quisiera insertar dos filas debajo. En la primera fila insertada en la columna F que escriba IVA 16% y en la columna G me realice el cálculo multiplicando el total por el 16% por cada cliente. En la segunda fila insertada escribir en la columna F la Total con IVA por cada Cliente y en la columna G me realice la sumatoria del Total …

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 3.5k visitas
    • 1 seguidor
  21. Started by manzano,

    Buenas tardes, Tengo una macro creada con el botón para grabar. Me ha funcionado bien pero hay un pequeño error que salta en algunas ocasiones. Como se ve, tengo una formula extensa, y al llegar a la parte que citare abajo, si es que la formula para buscar no encuentra el dato "Original" manda un error. ¿Cual seria la forma de decirle que si no encuentra ese "Original" simplemente continúe con la formula?, saltándose esa orden de buscar. Cells.Find(What:="Original", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 762 visitas
  22. Started by manzano,

    Buenos dias, Necesito ayuda con una planilla que realice, en la cual tengo una lista de datos pero con espacios entre ellos. Lo que trate de hacer es copiar el rango de celdas de estos espacios ("T10:Z503") y pegarlos en la hoja "OneDrive" en la celda ("B2"). El problema es que al ordenar la columna RUTA quedan los datos al final de la planilla. Adjunto planilla con unos cuadros de texto para que se entienda mejor. Saludos y gracias. PLANILLA BASE NEW.xlsm

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 2.3k visitas
    • 1 seguidor
  23. Buenas Noches Los Master del Excel, por favor su gran ayuda nuevamente para filtrar con 2 Combobox dentro de un listbox primer combobox filtra por Herrammienta ( esta ok) y el segundo combobox debiera firtrar por MARCA que es lo que me estaria faltando " por favor me pueden ayudar con esto? desde ya muy agradecido atte Meduvilla existencias ayuda Excel 1.xlsm

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 1.3k visitas
  24. hola buenos dias, tengo una macro que copia una hoja( ingreso), me copia el contenido y renombra la hoja con fecha del informe pero el problema que se me genera es cuando no modifico la fecha sigue corriendo la macro me crea otra hoja pero no renombra la hoja con la fecha porque ya existe en otra. mi consulta es ¿ cómo puedo hacer para que se detenga la macro y que me avise en un mensaje que la fecha del informe ya existe y no se puede guardar ? para solucionar el problema adjunto la macro Sub guardar() Application.ScreenUpdating = False Sheets("ingreso").Copy After:=Sheets(1) ActiveSheet.Name = Range("d13") Sheets("ingreso…

    • 0

      Reacciones de usuarios

    • 9 respuestas
    • 1.6k visitas
  25. Buenas tardes!!! Soy nuevo por aquí asi que ya os doy las gracias por adelantado. Estoy teniendo un problema al copiar y pegar una celda con Hipervínculo a traves de macros. Tengo una macro que ejecuta un copy / paste de varias deldas de una hoja a otra hoja, pero no consigo que me respete el hipervínculo Tengo el vínculo en la celda "B15" de la hoja "BCR" que quiero copiar en la celda "G127" de la hoja "FILM". Actualmente el hipervínculo lo tengo con Anchor text "Web" o "FTP" , pero me daría igual mostrar toda la dirección web si es más sencillo. Mil gracias por la ayuda!

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.1k visitas

Información básica de protección de datos

  • Responsable: Sergio Andrés Celemín
  • Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
  • Legitimación: Consentimiento del interesado.
  • Destinatarios : Hetzner Online GmbH.
  • Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
  • Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email [email protected]

Información adicional: Encontrarás más información en la política de privacidad.