Como va? estoy intentando mandar los datos de un listbox de excel a una tabla de acces. Se me ocurrió hacerlo directamente, es decir mandar en una sentencia SQL el total del contenido del listbox a la base de datos acces. He intentado lo siguiente pero no funciona: Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal,[Recibo],Vendedor,Proveedor,Operación) VALUES (me.ListBox1.Column)" o Sql = "INSERT INTO Entradas (Cod,[Descripción],[Cantidad],[PrecioUnitario],SubTotal) VALUES ('" Me.ListBox1.Column(0), & '" & Me.ListBox1.Column(1) & "','" & Me.ListBox1.Column(2) & "','" & Me.ListBox1.Column(3) &a…

Como va? Basándome ya en algunos temas tratados en este foro estoy tratando de añadir una animación de transición que consiste en la aparición de un label que muestra el texto entero que contiene una fila de de un listbox que se dispara a través de un evento de movimiento del mouse sobre las coordenadas de posición del puntero del mismo en la fila del listbox en cuestión. No lo he podido conseguir por el momento porque el label titila demasiado. Adjunto código y archivos, desde ya muchas gracias. Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single) On Error Resume Next Dim xl As Integer 'Me.L…

Buenas, estoy tratando de automatizar un carro de compras para armarlo con macro, hasta el momento puedo abrir una web, seleccionar algún item por posición en el codigo fuente y agregarlo al carro, se que voy bien encaminado, Sub test() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") With IE .Top = 0 .Left = 0 .height = 1000 .Width = 1050 .Visible = True .Navigate "https://store.channelfireball.com/catalog/magic_singles-saga_block-urzas_saga/duress/17412" Do While .Busy Or Not .ReadyState = 4: DoEvents: Loop .Document.getElementsByClassName("add-to-cart-form")…

Como va? tengo un problema que no lo he podido resolver bien por una cuestión de lógica. Tengo un listbox que toma los datos de otro listbox, el dato que quiero modificar se trata del precio unitario de productos que corresponde al precio de venta en EFECTIVO. Partiendo de ese dato una vez cargada toda la factura requiero de poder cambiar el valor del precio de venta en efectivo por el valor del precio de tarjeta que es igual al precio de venta + el 30%. La forma de pago se cambia a través de un combobox. Si en efecto el combobox a través del evento change se posiciona en "TARJETA" debe sumarle a toda la columna de precio unitario un 30% y si se vuelve a elegir forma d…

Buenas tardes, he estado empezando a trabajar con el Listview ya que a comparación de un listbox este podemos darle mas orden a los números, colores de acuerdo a criterios y bueno tengo la siguiente duda en cuanto a filtrar, si se filtra de acuerdo a un criterio solo muestre un solo valor por ejemplo en la imagen muestra en la ultima columna: B001,B001,B001,B002 Y B002 , si me pueden ayudar que solo muestre B001 y B002 (si se coloca B en el textbox1), ya agradecido por su lectura. Adjunto archivo. Filtrar datos en Listview.xlsm

Hola! Tengo el siguiente codigo VBA asociado a una macro y no he logrado agregar una linea para saltar todas las celdas que se encuentren en blanco sin terminar mi macro, me pueden ayudar por favor? Basicamente busco que al correr la siguiente linea, el codigo sepa que cuenado la celda esta vacia, se debe pasar a la siguiente celda sin enviar un 0 ni otro valor. Set valueCell = Worksheets("WritePI").Cells(i + 2, 2) Codigo: Sub put_data3() Dim i As Integer Dim numoftags As Integer 'The following four variables are arguments to PIPutVal() Dim sTagname As String 'Tagname Dim stime As String 'Timestamp …

Buenos días, gusto saludarles. Tengo el siguiente código: Private Sub cmb_tipo_persona_Change() Dim valor, rango1, celda1, rango2, celda2, rango3, celda3, rango4, celda4, rango5, celda5 As Range Set rango1 = Hoja2.[Personas_Físicas] Set rango2 = Hoja2.[Sistema_de_Banca_de_Desarrollo] Set rango3 = Hoja2.[Empresarial] Set rango4 = Hoja2.[Corporativo] Set rango5 = Hoja2.[Sector_Público] valor = cmb_tipo_persona.Value cmb_tipo_cartera.Clear lbl_tipo_cartera.Caption = "" Select Case valor Case Is = "Personas_Físicas" For Each celda1 In rango1 cmb_tipo_cartera.AddItem celda1.Value Next celda1 …

buenas tardes, escribo con la finalidad de solicitar apoyo en cuanto a mover datos de un excel a una tabla en Access. mi archivo de excel tiene los campos a exportar en los campos A2:AN8000 y los campos o nombres de columna estan en A1:AN1, en la hoja llamada Empleados requiero moverla a un Access llamado Datos.mdb el cual al abrir se debe colocar la clave "rrhh" en minúsculas, requiero que al pasar de excel al access sobrescriba lo que exista en el access tipo actualización de datos, que primero vacié la tabla Empleados del access y luego pegue los datos del Excel en Access. espero me puedan colaborar. dejo muestra de la base de Excel y …

tengo en un form de visual 6.0 un combobox el cual tiene 4 items (planilla1, planilla2 planilla3 y planilla4) tengo un botón en el cual quiero agregar que al darle click al buton en el cual quiero que ejecute un código dependiendo de la planilla seleccionada en el bombo ejemplo di es la planilla 1 ejecute el código plani1, planilla dos y ejecute plani2 y así sucesivamente.

Sub eliminarProducto() Dim Dato As String Dim C As Range Dim uf As Long uf = Hoja10.Range("A" & Rows.Count).End(xlUp).Row With ListBox1 For x = 0 To .ListCount - 1 If .Selected(x) Then Dato = ListBox1.Text With Hoja10.Range("A2:A" & uf) Set C = .Find(Dato, LookIn:=xlValues, lookat:=xlWhole) If Not C Is Nothing Then C.Rows.EntireRow.Copy C.Rows.EntireRow.Delete UserForm_Initialize MsgBox "Ha eliminado la clave " & Dato Exit Sub …

Hola amigos tengo un userform con 4 texbox, en el texbox1 coloco un numero entero , en el texbox2 un numero decimal y en el texbox3 un numero en fracción, algo parecido a esto: 2 x 1.5 x 1/2 y cuyo resultado lo debe dar en el texbox4 (el resultado seria en este caso 1.5) estoy usando esta macro pero me marca error. Alguien podra ayudarme de favor. Private Sub CommandButton1_Click() TextBox4.Value = CDbl(TextBox1) * CDbl(TextBox2) * CDbl(TextBox3) End Sub

Holas a tod@as, Necesito saber si hay algún comando que combine VLOOKUP y HLOOKUP. Mi problema es el siguiente: Estoy utilizando el comando VLOOKUP pero necesito guardar tambien los valores de las 2 celdas que esten debajo de la celda encontrada con VLOOKUP 'INSTALACIONES GENERALES sub PASAR_DATOS r = 0 For vueltas = 0 To 2 VALOR = Application.VLookup("INSTALACIONES GENERALES", Sheets("PAROS").Range("A2:M500"), 11, False) ''''''''' el primer valor me lo guarda bien en la variable VALOR, pero quisiera que cuando r = 1 me guardase en la variable VALOR el valor de la celda que este debajo de la encontrada con VLOOKUP. Cuando r = 2 guardar el valor …

Buenas noches... En el fichero adjunto tengo una serie de columnas a la que quisiera colocarle una restricción para evitar errores involuntarios con los usuarios que lo utilicen... Cada columna tiene su comentario, pero la restricción es solo para las que dicen: No se permiten números 0123456789 No se permiten caracteres especiales (!#$%&/()=?¿¡”*¨[ ] + { }:;) ¿Es posible con macro? plant.xlsm

Hola a todos, tengo un programita de Excel con VBA que insero varias fotos (con margen de tiempo 1 segundo) en la misma celda, pero, al ir borrando e insertando imágenes me hace un destello de luz, la celda en cuestión, se puede solucionar esto con VBA ? Gracias

BUENOS DÍAS AMIGOS, NUEVAMENTE NECESITO DE SU AYUDA. QUISIERA QUE AL EJECUTAR EL MACRO IMPRIMIR ME SALTE LOS REGISTROS DUPLICADOS Y SE IMPRIMA EL SIGUIENTE NUMERO DE REGISTRO POR QUE EL MACRO QUE TENGO IMPRIME LOS REGISTRO SIGUIENTE DE LA TABLA ADJUNTA, Y NO PUEDO BORRAR LOS DUPLICADOS POR QUE TIENE FORMULA DE CONCATENAR PARA QUE ME LLAME EN LA PLANILLA CENTRAL, Y QUE LOS QUE TENGAN EL MISMO NUMERO DE REGISTRO LOS COMBINE Y CAMBIE UN COLOR DIFERENTE PARA IDENTIFICARLOS LA COLUMNA " B " QUE SALTE LOS REGISTROS DUPLICADOS E IMPRIMA EL SIGUIENTE REGISTRO LA COLUMNA " A " QUE COMBINE LOS DUPLICADOS, Y CAMBIE DE COLOR POR CADA REGISTRO 2.- MACROS.rar

buenos días, quería saber si alguien me podría indicar como mover una base de datos en excel de 30 columnas y 6500 filas a acces??esto debido a que donde laboro esta base de datos de excel se actualiza cada 15 días y requiero moverla a acces para uso estadístico.esta macro debería cada vez sobre-escribir lo que exista en la tabla de acces llamada empleados.cabe destacar que el excel y el acces ambos estan en la siguiente ruta:Z:\Relación laboral\MILI\CONSTANCIAS\pruebas\la clave del acces es " rrhh "gracias de antemano por su colaboración.

Hola que tal, quisiera hacer una consulta, intente desarrollar la siguiente macro pero me surgieron algunas dudas. La misma consiste en levantar todos los datos de una Tabla de excel, (siempre estará en la misma ruta) y pegarlos en el libro activo, en la celda activa donde ejecuto la macro. Osea esta macro la voy a guardar como complemento y así utilizarla en cualquier excel que abra, por eso necesito que el código me reconozca el excel donde la ejecuto para poder pegar los datos de la tabla y obvio luego me lo cierre sin guardar. Así es como lo propuse, pero solo anda para un libro llamado "Libro1" y necesito que ande para cualquiera, ademas tampoco me estaba p…

buenas tardes genios de la programación vuelvo otra ves al foro por ayuda otra ves mi problema es el siguiente tengo un formulario que me filtra desde un combobox por fecha pero cuando lo filtro con con el segundo combobox me filtra pero me desordena las columnas del listbox y me quita las cabecera del filtrado me podrian guiar con este problema y explicarme porque pasa espero haberme explicado subo el archivo PRUEBA.xlsm

Buenos días amigos. Necesito que mi hoja imprima todo los documentos que tenga en mi lista pero que no imprima las filas que están vacías o cuando la celda de registro este vacía. Las filas vacías no las puedo eliminar por que estarían llamando desde otra hoja les dejo mi hoja para que me puedan ayudar MACROSIMPRIME.rar

Buenas tardes!!! A ver si me podéis echar una manita. Estoy intentado comparar 2 columnas (columna C de la Hoja “Datos” y la columna A de la Hoja “Historico”) para una vez comparadas, me copie lo que tenga de más en la columna C de la Hoja “Datos” en la columna A de la Hoja “Historico”. Muchísimas gracias. Un saludo, Libro1.xlsm

Ciao a tutti, mi chiamo Maurizio e il mio problema è questo: Nel foglio Excel ho inserito un pulsante che ricorda la funzione di inserire un numero progressivo in Column (A); A condizione che nella colonna (B) ci siano alcuni dati; E finora tutto va bene. Ora, quello che proverei a fare sarebbe avere un codice che possa valutare se l'ultimo dato inserito nella colonna (B) è uguale a "Zero" o "Uno". Lascia che ti spieghi meglio: 1) Ho detto che se scrivo qualsiasi dato (numerico o alfanumerico) che sia; Nella colonna (b) nella colonna (A) viene inserito un numero progressivo! 2) Tuttavia, al contrario, cancello gli ultimi dati immessi nella colonna (B) del nu…

Hola a todos, mi nombre es Maurizio y mi problema es este: Creé una función para guardar el documento de Excel usando (Guardar como) Ahora usado como diseñado, ¡trabajo maravillosamente! Pero ahora me gustaría que el título del documento se guardara para que se tome lo que puse en la celda (A2). Le garantizo que he intentado en todo momento hacer este cambio sin tener éxito; Podrías decirme por qué. Y como resolver esta Operación Gracias. Saludos sinceros de A. Maurizio. ############################################### Hi everyone, my name is Maurizio and my problem is this: I created a function to save the excel document using the (Save As) Now use…

Buenas tardes solicito su ayuda con lo siguiente: tengo una base de datos de access con dos campos: costo 1 y costo 2, lo que quiero es hacer una consulta para que busque determinado registro de la tabla y los pueda sumar desde excel. saludos

Buen día. Lo que requiero para en la empresa que laboro es para cargas de combustible, el cual se tiene que registrar el km anterior, actual, fecha de carga de combustible (fecha presente) y placas. El detalle persiste en que generalmente se equivocan al capturar el km anterior, entonces teniendo una base de datos con archivos, lo que requiero es que me arroje el km actual como el anterior Ejemplo: Si yo realizo una recarga hoy 15/05/2019 con km anterior de 500km (escrito manual) y el actual de 600 (escribo de forma manual) en la placa1 (Que identifica la motocicleta) Pasan unos días y requiero volver a cargar combustible con fecha de 20/05/2019 con un …

Estimados foreros, muy buenos días...ojalá alguien me pueda ayudar... sucede que tengo un gráfico de dispersión (hoja "Estadística_Básica") que necesito dejar con las columnas "fijas" para que se construya el gráfico, estas columnas son las que se leen para crear dicho gráfico, sucede que cuando corro alguna macro para "re-calcular" nuevamente nuevos datos...estas columnas se "resetean" (reset) y cada vez debo volver a seleccionar las columnas para construir el gráfico. Espero me puedan ayudar. Adjunto link para descarga de archivo ya que pesa casi 5mb. Desde ya muchas gracias. https://drive.google.com/open?id=1LIR6TogVXEGWStZ8dGTXMiIYG09pmvqE