Quisiera me ayudaran en esto. Tengo un libro con 2 paginas la primera se llama maxtxt y la segunda se llama formula. Necesito macro para copiar desde pagina formula la celda A2 y pegarla en pagina maxtxt Celda C7. Private Sub maxtxt() Set Lcl = Range("B3") Set rg = Range("C7") rg.Copy rg.Offset(rg.Rows.Count, 0).Resize(rg.Rows.Count * [B5] - 1) fecha = Format(Now - 1, "mmdd") Application.ScreenUpdating = False Range("C7").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Workbooks.Add Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWorkbook.SaveAS Filename:="C:\" & "Max" & fecha & "." & Lcl, …

Hola. Necesito insertar un control MsComm32.ocx en un formulario de VBA de una aplicacion de excel. Tengo una PC con Windows 10 de 64 bits. Ya he registrado la OCX en "SysWow64" sin problema y también incorporé la referencia en la aplicacion. Cuando quiero insertar el control en un formulario de esa aplicación, aparece un aviso que dice: "No se confía en el sujeto para la acción especificada". Si alguien tiene idea de como solucionarlo se lo voy a agradecer. Saludos

Estimados, soy nuevo en el foro y estoy empezando a experimentar la utilizacion de macros y vba, la verdad me a servirdo mucho y me parece muy interesante. Ahora mismo estoy con un problema en la configuracion de una macro. La cuestion es que esta macro me importa de una carpeta ( que contiene varios archivos ".txt", los cuales dia a dia van cambiando de nombre) pero solamento me los importa si los tengo en mi maquina, lo que necesito es que me importe estos datos desde un servidor en comun que usamos en el trabajo. Por lo que tngo entendido el codigo "chdir" no sirve para importar datos desde una red o servidor. Me podrian ayudar con este problemita. Aca les dejo la mac…

estoy parado en una consulta de una tabla y volcar parte de esa información a unas celdas. Sub BASE_DE_DATOS() Dim datConnection As ADODB.Connection Dim recSet As ADODB.Recordset Dim strDB, strSQL As String Dim strTabla As String strDB = "C:\Users\****\Desktop\TRABAJO\INFORME DIARIO RETRASOS LPA.mdb": MsgBox " Usted esta conectado a la base de datos ", vbInformation, " Conectado " 'si en otra carpeta 'nombre de la tabla del archivo Access strTabla = "RETRASOS" 'crear la conexión Set datConnection = New ADODB.Connection Set recSet = New ADODB.Recordset datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source =" & strDB & ";" 'consu…

Buenos Dias Quisiera ver si me pueden ayudar a solucionar un problema que tengo, tengo un archivo que estoy haciendo para ingresar Clientes en Excel desde un UserForm y que se Guarden los datos en la pestaña Clientes... El problema es que necesito que antes de ingresar los datos con el UserForm(Clientes) revise si no esta ya dado de alta el Cliente verificando su Clave, de ser asi que no me permita registrarlo lanzando un MsgBox, pero si no esta registrado, que ingrese el cliente, en la siguiente fila que corresponda En el apartado Domicilio(Celda "M") de la Hoja Clientes, debe de Concatenar los datos del UserForm(Domiclio), Calle,No.Exterior,No. Interior y Colonia par…

Hola, buenas Tengo una recta (msoConnectorStraight) en posición vertical, y necesitaría, que a la altura de la mitad del tamaño de dicha recta, se acople, fusione, añada o como sea la palabra correcta, otra recta pero en posición horizontal, de tal manera que si modifico el tamaño de la primera, la segunda también modifique su posición para continuar en la ubicación correcta. Es decir, una macro que me muestre en pantalla dos rectas con la forma de un "T" pero, digamos, con la "t" de lado, y que si agrando o reduzco el tamaño de la recta vertical, la forma en sí se agrande pero que no pierda la forma. muy agradecido de antemano, saludos.

Buen dia, tengo un inventario que manejo manualmente, y queria automatizarme un poco el trabajo, por eso quería formar una base de datos tal cual se muestra en el siguiente video tutorial: Sin embargo, soy algo novato y no consigo hacer lo que dice el video, ¿alguien podría explicarme paso a paso por escrito? Ya he buscado varios software para inventarios, pero ninguno se ajusta a nuestras necesidades. Gracias de antemano.

Hola voy a intentar describir en lo que me podeis ayudar, pues llevo algunos meses trabajando en una hoja de excel intentanto hacer la planificación diaria de la producción en una de una empresa, por lo que tengo una pequeña base de datos donde se recogen todas las operaciones, con sus respectivos tiempos de producción, materia prima necesaria y su cantidad. Hay otra hoja donde se recogen la planificación que yo quiero hacer cada día, por lo que yo pongo un artículo y me lo desglosa en las diferentes operaciones, con lo que tarda en fabricarlo, y su materia necesaria, pero esto es un trabajo costoso, ya que cada producto puede tener hasta 12 o 13 operaciones, y cada trab…

Buen dia a todos Quizas sea una tontera, pero no logro dar con lo que hago mal.... en el siguiente formato Format((Hoja2.Cells(estaen, col).Value + funcionarios(i, j)) / 60, "#,##0.0") me imprime un valor numerico, pero se visualiza en la celda como texto......que hago mal...???? el valor de funcionarios() es numerico gracias de antemano

Buen día, tarde, noche Quisiera solicitarles de su amable ayuda para solucionar un problemita que estoy teniendo en un archivo Dropbox - Chequeras.rar Quiero hacer un barrido de la Hoja que se llama ACSEL Q, y que me vaya a buscar el número de cheque en la hoja que se llama Listado de Cheques, y que me traiga ciertos datos hacia la hoja ACSEL Q Lo estoy haciendo a través del método Find, pero siempre me salta el error 91, y esto se debe porque no encuentra algún dato. Al código le agregué lo siguiente: On error resume Next . . . if err.number = 91 then goto Siguiente[/CODE] Esto me resuelve a medias el problema, pues lo que hace es que si existe el error 91 …

Buenas tardes: Estoy desarrollando, junto a un compañero, un programa en vba. El caso es que, en uno de los userform, tras pulsar en un boton, se ejecuta una macro que carga datos en un listview. La carga de datos la realiza correctamente, pero tras ejecutar el codigo, se queda una hoja de excel vacia en segundo plano (detras del userform) y ya no desaparece hasta cerrar la app. Decir que se le ha dado aspecto de programa al archivo. No consigo que desaparezca la hoja con visible=false . Alguna idea? Mil gracias

[solucionado]Macro no se ejecuta en cambio de celda en una columna Buena tarde; Nuevamente me tomo el atrevimiento de pedir su ayuda ya que estoy atorado y no puedo dar con una solución, mi problema es el siguiente,: Tengo 8 modulos con 2 rutinas Sub cada uno y quiero que cada una de ellas se ejecute cuando se hagan cambios en las celdas de 8 diferentes columnas, para hacer esto, he puesto este código en la hoja en la que quiero que se ejecute Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("L:L")) Is Nothing Then Call Val_Fecha_3_meses_C1 Call Evitaescritura_3_meses_C1 ElseIf Not Intersect(Target, Targe…

Acudo a vosotros otra vez porque me he quedado en blanco con documento. Os explico. Tengo 2 hojas en la 1a llamada "Indice" en la celda B1 tengo una lista con 3 años (2013/2014/2014) y en las celdas C2:N2 (una para cada mes) en blanco. Y en la otra hoja llamada "Datos", están los datos correspondientes a sus años (2013,2014,2015). Lo que me gustaría es que al poner el año el la celda B1 me salieran en la 1a pagina los datos correspondientes a la 2a hoja de cada año. Muchas gracias, Adjunto el xlsx. Dropbox - Document.xlsx

Hola. Necesito eliminar todos los objetos de todas las hojas de un libro. Tengo una macro que elimina todos los objetos de la hoja activa, pero necesito que lo haga para todas las hojas. Podría ir hoja por hoja, pero mejor en una macro. El código que tengo para la hoja activa Sub BorraObjetos() Dim n As Integer Dim Objeto As Object n = 0 For Each Objeto In ActiveSheet.Shapes Objeto.Delete n = n + 1 Next Objeto MsgBox n & " objetos eliminados.", vbInformation, "Hojas" End Sub [/CODE] Agradezco la ayuda. Gracias.

Hola estimados amigos, tengo un problema con este codigo, les explico, pretendo guardar datos diferentes en la misma hoja, pero en columnas diferentes, para eso he probado de varias maneras pero no he conseguido que me funcione, espero me puedan colaborar en esta cuestion, gracias por anticipado Sheets("Caracteristicas").Activate Range(ComboBox2.Value).Select Me.ListBox1.RowSource = ("A2:A") & Worksheets("Caracteristicas").Range( ComboBox2.Value & Rows.Count).End(xlUp).Row

hola a todos , soy el tiene sieme problemas con los colores en Excel?? existe alguna funcion para contar los colores? tengo una tabla en la que segun la categoria ( diferenciada por color) cconozco la cantidad y categorias de personas en un turno GRACIAS EJEMPLO.xlsx

Estimados amigos, Buen día. Soy nuevo en el foro (he leído las reglas), pero si caigo en algún detalle agradeceré me lo hagan saber. Tengo un cuadro que he armado (adjunto) sobre el uso de artículos por cada persona de la fábrica. Cada vez que ellos requieren cambio de un artículo se ingresa una fila nueva, se registra el código del material y aparecen los demás datos. Por ejemplo, una persona podría solicitar hoy una camisa que tiene vencimiento en 3 meses (en el interin podrían ir pidiendo otros artículos). Luego de 2 meses esa misma persona podría regresar pidiendo nuevamente el mismo código (camisa). Ahora, lo que necesitaría es que internamente el cuadro reconoz…

Hola amigos. El tema es el siguiente: Quiero pasar los datos de un formulario en un fichero Excel a un documento Word en un servidor. En el mismo formulario he creado un procedimiento de apertura del documento pero al pasar los datos del formulario al documento me sale "Error 438 en tiempo de ejecución, el objeto no admite esta propiedad o método". He implementado los objetos Word en Excel. Este procedimiento desde el mismo Word funciona pero desde Excel no. Todo va bien hasta que abre el documento y empieza a pasar los datos. Mi intención es que abra el documento, vuelque los datos del formulario, imprima y cierre el formulario sin guardar. De todas formas el docu…

Hola a tod@s. Más que una pregunta es una solicitud de ayuda. Tengo una bbdd en sql y quisiera enlazarla con Excel vía VBA para crear fórmulas. Es decir, la idea es conectar excel con sql vía vba y crear fórmulas que me permitan obtener datos y/o realizar cálculos en tiempo real. ¿Donde puedo conseguir información para hacerlo? Es que por más que busco no encuentro como hacerlo Saludos y gracias Juan

Buenos días Me gustaría que me ayudaran a modificar la macro que tengo, para hacer lo siguiente: Tengo dos hoja Base y Resumen, de la hoja Base deseo ir analizando celda por celda de la columna E:K y si la celda es igual a 100, me copie ese registro a la hoja Resumen en el día correspondiente, ademas de copiar los datos de la columna A:D de la hoja Base. Adjunto un pequeño ejemplo con el código de la macro que tengo y un ejem de como me debería quedar Agradezco de antemano su apoyo y/o ayuda Saludos prueba07122019.xlsm

Buenas a todos. Estoy realizando un ejercicio en el que se me pide mostrar un msgbox en el que aparezca el texto que hay contenido en una celda. Hasta ahí bien, no hay problema. El problema es que ese texto debe incluir una variable y mostrar en el msgbox el valor de la variable. Es decir, que si en el contenido de la celda está el texto "El resultado de la suma es VARIABLE_SUMA", en el msgbox debe aparecer "El resultado de la suma es 4" Adjunto un archivo de ejemplo para intentar que se vea más claro. Muchas gracias por adelantado. Un saludo. Ejercicio msgbox de celda con variable incluida.xlsm

Hola a todos copie una macro de nuestro amigo JSDJSD, lo que quiero es que el filtrado entre fecha me funcione en mi libro y que el reporte lo guarde en un libro nuevo de Excel por aquí le dejaré el archivo Filtrado y reporte.xlsm

Hola comunidad, me ayudan miren quiero hacer un libro donde se llene un formulario con los datos que ya hay en una hoja del mismo libro , la idea es apretar un boton donde me traiga los datos de esa hoja al formulario y grabar puede ser en la mmisma hoja o en una nueva, no se si me explique bien.

hola comunidad necesito de su ayuda vba hace mas o meno lo q estoy tratando de hacer pero como yo quiero no. lo que quiero es filtrar los datos y después q estén filtrados hay si enviarlo a la plantilla, pero si al momento de enviarlos si hay mas de lo esperado cree fila similares a las a donde lo estoy metiendo, si es a lo contrario q los introduzca pero q no me dañe el formato de la hoja. espero q me entiendas hay te dejo el código. gracias por su apoyo.. Private Sub CommandButton1_Click() 'Definir objetos a utilizar Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino…

Hola tengo un libro que al abrirlo salta un userform y al mismo momento el libro se oculta, pero al cerrar el userform el libro aparentemente se cierra, pero lo mas raro es que queda oculto pero abierto me doy cuenta cuando abro el administrador de tarea. Alguien podrá ayudarme Este es la instrucción para cerrar Private Sub CommandButton8_Click() Dim sino As String sino = MsgBox("Estás seguro de cerrar la Aplicacion?", vbYesNo + vbQuestion, "CONFIRMA") If sino <> vbYes Then Exit Sub MsgBox "Gracias por usar el sistema, hasta la proxima" Application.ScreenUpdating = False Set h = Sheets("Usuarios") u = h.Range("A" & Rows.Count).End(xlUp).…