Hola tengo un código en excel para transferir datos a una tabla en access, la configuración de la tabla es: Campo llave es numérico; y los otro dos campos son tipo texto. En excel la primer columna es una fórmula de conteo correlativo y el resultado es un número por fila: =SI.ERROR(SI(B2="","",FILA()-1)+PARÁMETROS!$B$5,"") antes de agregar esa columna en mención, la transferencia funcionaba muy bien, de no poderse corregir el código, quisiera optar por controlar dicho error, y quisiera saber si es posible saltarlo y que continúe la ejecusión, gracias por su ayuda de antemano. Saludos!!! Sub ExcelaAccess_ADO() Dim Conn As ADODB.Connection, RecSet As ADODB.Recordset …

Tengo unas columnas con una formula para contar datos repetidos en los rangos pero no me los cuenta. por favor podrían decirme que es lo que tengo mal, la formula antes la he usado pero ahora no se por qué no lo hace. prueba.xls

Estoy iniciándome con las macros y tengo unos apuntes con las siguientes macros que no consigo hacerlas funcionar, no veo ningún fallo. Do While... Loop Instrucción que repite las instrucciones mientras una condición es TRUE/VERDADERO. Ejemplo Excel tiene valores en las celdas B1:B100. Quieres buscar la primera celda que tenga un valor más alto/igual que 1,50. i = 1 Do While Cells(i, 2) <> "" if Cells(i, 1) >= 1.5 Then Exit Do i = i + 1 Loop MsgBox "El valor se encontró en fila no. " & i For i... Next Esta instrucción se repite el número de veces (i) que tú indicas. Ejemplo Creamos un bucle sencillo. Queremos que se repita 4 veces, y que la va…

Hola tengo una duda que me esta volviendo loco, porque parace simple pero no consigo hacerlo. Tengo que graficar dos columnas no contiguas de rango variable una en función de la otra. Como veis en el programa, empiezan en la fila 6 y son las columnas 16 y 19. al ser de rango variable, el contador j indica el numero de filas. ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select StartRange = Cells(6, 16) EndRange = Cells(6, 19) Set a = Range(Cells(6, 16), Cells(j - 6, 16)) Set b = Range(Cells(6, 19), Cells(j - 6, 19)) ActiveChart.SetSourceData Source:=Union(a, He probado definiendo una variable igual a la unión, sin unión, con l…

Hola, necesito de su ayuda como ven en la imagen, hay datos filtrados por tanto las filas son variables. De estas filas necesito copiar tres datos, ITEM, UM,DESCRIPCIÓN y P.UNIT2(recalco que están en la hoja ANÁLISIS), y colocarlos en la hoja PLANILLA FACTURACIÓN por el orden mencionado. Por tanto el primer dato debe ir en la PLANILLA FACTURACIÓN en la celda A17(ITEM), B17(UM), C17(DESCRIPCIÓN) y G17(para P.UNIT2), y así sucesivamente todos los datos dejando un espacio en cada fila, ya que debajo de cada dato debe ir POR y OC osea debajo de los primeros datos pegados por ejemplo POR en celda C18 y el numero de esa POR en la siguiente celda que es D18, OC E18 y el dato d…

Estimados, me gustaría realizar lo siguiente: Sabiendo yo la clave de protección del libro, deseo: Mostrar hojas ocultas, copiar y pegar (esto sería lo de menos), volver a ocultar la(s) hojas que se mostraron y volver a proteger el libro. Para hojas protegidas : ActiveSheet.unprotect password:="" pero para el libro completo desconozco. Opinen! Gracias.

Buenas noches, deseándole existo a la pagina y a sus colaboradores del mismo, quisiera nuevamente molestar su atención a este problema. Genero un reporte desde esta instrucción y lo que deseo es que al presionar la tecla de cancelar impresión debería cancelar pero no lo hace por consiguiente hace la impresión dicho reporte Sub PENSI() For f = 8 To 8 Sheets("BOLETA PENSIONISTA").Select Range("A1:H70").Select Range("CODIGO3") = Sheets("PENSIONISTA").Cells(f, 1) Application.Dialogs(xlDialogPrinterSetup).Show 'Abre el formulario para seleccionar y configurar la impresora ' ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWindow.SelectedShee…

Hola amigos, por acá con una dificultad para mi. Por favor si me pudieran ayudar se les voy a agradecer muchísimo. He intentado con este código, pero me traslada toda la tabla. Si alguien me puede echar una manito para mejorar la consulta, la cual solo quiero que me transfiera el "último" registro del campo llave de acces a la Hoja2 Celda B5 y no a la Hoja 1 como lo hace ahora Sub escribirexcel() Dim cs As String Dim sPath As String Dim sql As String Dim cn As ADODB.Connection Dim rs As ADODB.Recordset sPath = ThisWorkbook.Path & "\datos.accdb" cs = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & ";Persist Security Info=False;" Set c…

Buenas tardes, espero puedan ayudar... De ante mano muchas gracias. -Tengo una macro que me copia la hoja en la cual trabajo y la renombra (Perfecto)** Lo que necesito: -Mensaje Yes/No "¿Desea guardar e Imprimir esta solicitud?" -No: sigo trabajando, Yes: Copia hoja, guarda e imprime. -Y por ultimo que limpie las cerdas de la hoja matriz. Estas: Range("D10:F10,A13:A28,C13:F28").Select Range("D10:F10,A13:A28,C13:F28,A49:A64,C49:F64").Select Selection.ClearContents Observación: deseo bloquear la hoja pero con lo que tengo ya trabajado, me da un error. GRACIAS POR SU AYUDA Macro que copia y renombra: Sub Botón4_Haga_clic_en() Dim hoja As Worksheet Dim existe …

hola que tal amigos recurro a ustedes para ver si me puede ayudar estoy haciendo una macro de buscador, soy nuevo en esto y ya llevo varios días:( tratando de terminarla le envió un ejemplo de lo que estoy tratando de hacer, al elegir la marca que aparezca el tipo de servicio de ahí el servicio y que en el cuadro de texto los productos que están en ese rango y que al darle seleccionar se copie con el botón de aceptar de antemano muchas gracias. EJEMPLO BUSCADOR DETALLADO.zip

Hola a todos, Alguien me podría dar una idea de como podría hacer lo siguiente. En excel Estoy capturando datos de un dispositivo vía OPC. el caso es que necesito cada 5 minutos coger el valor actual y copiarlo en una celda y así repetitivamente por todo el día. algo así: 12:00 PM | Valor 12: 05 PM | Valor .....

Buenos días para todos... Tengo un libro de excel el cual tiene tres hojas: Solicitud: Primera hoja donde se ingresa los datos para alimentar la hoja "consolidado" Consolidado: Hoja donde se acumulan Todas las Solicitudes de pagos. Montaje: Un resumen de cada proyecto donde va el valor total, fechas de pago, % de pago, fechas etc. es decir, especifica Pagos de cada Proyecto. Mi propósito es que en la hoja de Montaje exista un botón de formulario el cual ejecute una macro que tome y pase los valores de: "Fecha Solicitud" y "Valor Total" de cada proyecto (en la hoja de "Consoidado") y me los pegue dentro del rango de las columnas I:R (Hoja "Montajes"), Pero en dado…

Estimados Amigos, Escribo en busca de su preciada ayuda. Tengo un Userform que tiene dos ComboBox y un TextBox, que alimentan un ListBox cada uno. El problema es que los tres listbox es para el mismo equipo y no he podido hacer que al hacer click en cualquiera de los listbox queden los tres listbox seleccionados para poder eliminarlos, solo he podido hacerlo de uno en cada listbox y cuando tienen muchos equipos digitados es un problema. Espero haberme expresado bien. dejo un ejemplo del userform. Muchas gracias de antemano por la ayuda. Slds JL. ayuda.zip

Estimados, estoy desarrollando un programa en el que tengo 2 hojas: BASE DE DATOS y REGISTRO. Lo que realiza el programa es: tener una base de datos a tiempo real sobre el trabajo del dia(BASE DE DATOS), y tener un registro del trabajo diario (registro) El código realiza lo siguiente: copia el rango( ej "a1:l:350") de la hoja "BASE DE DATOS" , busca el primer espacio vacío (bucle), y luego pega en la hoja "REGISTRO". Range("a1:l350").Copy Sheets("REGISTRO").Range("A1"), utilizando esto solo me sirve para el primer día pues en el segundo día la información se pegará encima del día anterior. Lo que me gustaría es eliminar ese bucle. Y mantener la hoja registro oculta. …

Hola buenos días amigos del foro, Actualmente manejo una bitácora de actividades en mi trabajo que se maneja diariamente, pero me encargaron automatizarla un poco, entonces estoy creando una pequeña ventana para poder filtrar rápidamente los campos que son de uso diario, ahí es donde no sé como puedo crear una macro para poder agrupar los días en semana (Ej.: Semana 1: 1,2,3,... / Semana 2: 7,8,9,...) ya que por ahora solo se hace manualmente, también en la columna "Turno" como crear un combobox que seleccione varias opciones (como si fueran checkbox) la verdad entiendo algo de macros pero no soy experto, agradecería mucho cualquier ayuda o sugerencia para reestructurar …

estimados amigos me podrían apoyar con crear macros que mé, al capturar en la primera pagina al dar anexar actualizara la pagina gdo 1, dependiendo de la fecha de captura y del bloque que este trabajando. agradesco, su apoyo, inserto el archivo. calificaciones dd.xls

Columna A Colum B Columna C Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo (Nota 4) Efectivo y Equivalentes de efectivo (Nota 4) en la barra de fórmulas la columna B se refleja asi: Columna A Colum B Columna C Efectivo y Equivalentes de efectivo ="(Nota"&d2&")") Efectivo y Equivalentes de efectivo (Nota 3) Efectivo y Equivalentes de efectivo="(Nota"&E30&")") Efectivo y Equivalentes de efectivo (Nota 4) Hola A todos, como se observa en la …

en el forms que hice tengo un texbox que se llama txtlockers y carga datos en la planilla excel en la columna 5 pero me lo carga como si fuera texto y quiero que sea pesos. No me deja subir el archivo porque me dice que es muy grande que alguien me ayude, muchisimas gracias Juan

Hola, buenos días Tengo una situación que requiero resolver y por más vueltas que le he dado, no llego a cómo solventarla, más o menos sería así: Tengo un listado de cédulas y empresas, con el nombre de al menos un representante, el puesto y uno, dos o ningún número telefónico de cada uno. Ahora, ocupo realizar un ordenamiento similar pero dónde el campo cédula se convierta en clave única (es decir, no se repita) y se copien los valores del segundo, tercero, cuarto etc. registro en un horizontal (así hasta 7 posibles casos, que sería lo más que tengo disponible). ¿Existirá alguna macro que pueda realizar esto? ¿alguna idea? Les quedaré eternamente agradecido cualqui…

Hola de nuevo. Tengo varios libros compartiendo determinados datos entre sí, libro1, 2 y 3 pero si quiero que se actualicen el 2 y 3 tengo que abrirlos, me seria muy cómodo y ahorro de tiempo el no tener que estar abriéndolos continuamente para que se actualicen. Salud2.

Hola que tal! buenas noches Estoy cargando una página "x" por medio de VBA para excel. Me gustaría conocer si la misma se ha cargado adecuadamente, en caso contrario volver a intentantarlo hasta que este al 100%. La mayoría de las veces la página web que intento cargar de alguna manera funciona bien y otras me manda a una pagina en blanco. ¿Cómo puedo conocer si la página esta correctamente cargada y no es una página mal cargada o incompleta? La marco es la siguiente: Sub Open() Dim oShell As Object Set oShell = CreateObject("Wscript.Shell") oShell.Run "https://ejemplo.gob.mx" End Sub[/CODE] Gracias por su atención.

Soy principiante y mi idea es realizar una hoja de cálculo con un botón que al darle click, actualice dos celdas en función de otras dos casillas. El código que escribí al botón es el siguiente: Dim h As Double Dim v As Double Dim t As Double Dim f As Double Private Sub CommandButton1_Click() h = Cell(5, 4).Value v = Cell(6, 4).Value t = 10 ^ (-0.95 * Log(v) + 0.0207 * h - 0.087) f = 1 / (2 * Pi() * t) Cell(7, 4).Value = t Cell(8, 4).Value = f End Sub Al compilar subraya la línea Private Sub CommandButton1_Click() y dice Error de compilación: Sub o Function no definido. Muchas por su ayuda de antemano

Hola buenas. Necesitaria crear una macro en una hoja distinta a las demas y que esta ejecute a las otras macros que hay en diferentes hojas del mismo libro. ejemplo: para unas macros con sus botones en hoja2,3,4 y desde hoja1 desde otro botón que se ejecuten las anteriores. Salud2.

Hola compañeros una ayuda Tengo las Siguientes Formulas en codigo: Set h1 = Sheets("Hoja1") j = "=SUMPRODUCT(--((R2C[-8]:RC[-8]&R2C[-7]:RC[-7]&R2C[-6]:RC[-6]&R2C[-5]:RC[-5]&R2C[-4]:RC[-4]&R2C[-3]:RC[-3]&R2C[-2]:RC[-2])=(RC[-8]&RC[-7]&RC[-6]&RC[-5]&RC[-4]&RC[-3]&RC[-2])))" k = "=IFERROR(INDEX(INDIRECT(Range!R9C2),SMALL(IF(INDIRECT(Range!R3C2)=RC[-8],IF(INDIRECT(Range!R4C2)=RC[-7],IF(INDIRECT(Range!R2C2)=RC[-9],IF(INDIRECT(Range!R6C2)=RC[-5],IF(INDIRECT(Range!R7C2)=RC[-4],IF(INDIRECT(Range!R5C2)=RC[-6],IF(INDIRECT(Range!R8C2)=(VLOOKUP(RC[-3],Criterios!R1C11:R13C12,2,0)),ROW(INDIRECT(Range!R9C2))))))))),RC[-1])),"""")…

hola buenos dias quisiera saber si me podrian ayudar con esta orden de compra en la hoja1(DIARIO) del libro BASE DE DATOS , la idea es que por medio de un macro se pueda compiar los escrito en el DIARIO a la base de datos. dejare un ejemplo esperando contar con su ayuda de antemano muchas gracias orden de compra.xls