Buenas tardes Estoy realizando una actividad (Lotería). Necesito ayuda al dar clic sobre el botón barajar que las cartas se revuelvan y se muestren de una en una en un control imagen cada vez que presiono en un botón (Siguiente). Loteria.xlsm

Buenos días compañeros. Hay alguna forma de conectar excel con Solid works y extraer solo las cotas que se le hacen al dibujo? Agradecería mucho sus respuestas.

Buenas tardes Tengo una planilla con macros, el problema que tengo es que me da error al ejecutarla (cabe aclarar que la misma antes funcionaba) El código de la macro es el siguiente Sub GUARDAR_FILTROLAB() ' Guardar Macro ' Acceso directo: CTRL+h ' Dim nombre As String Ruta = "Z:\disco d\\COMPILADO\FAMILY\" nombre = Sheets("Report").Range("d1").Value Sheets(Array("report", "Graficos", "Info graficos")).Copy ActiveWorkbook.Sheets("Report").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Graficos").PageSetup.Orientation = xlLandscape ActiveWorkbook.Sheets("Info graficos").PageSetup.Orientation = xlLandscape ' ActiveWorkbook.S…

buenas noches necesito de su ayuda tengo un archivo el cual es una pauta mensual de los turno del personal, la macro que tengo solo me verifica por persona, pero lo que necesito es que lo haga entre 2, por ejemplo si yo tengo a juan en el primer puesto y a lucia en el ultimo que la macro envié solo mañanas entre estos dos trabajadores, obviamente entre estos trabajadores hay mas personas. también tengo problemas en el Worksheet_Change ya que la macro la tengo en un rango completo pero no me deja hacerlo por varios rango diferentes bueno espero haberme explicado bien y gracias por la ayuda Libro.xlsm

Buenas tardes comunidad, Espero alguien puede ayudarme con esta duda: Estoy haciendo un formulario donde quiero insertar un boton con el cual pueda abrirme una pagina en especifico, esto con la finalidad de consultar un producto en particular No necesita hacer mas, solo abrir la pagina web. Gracias Saludos

Hola buenas. Tengo una formula para contar coincidencias columna O, las coincidencias de J:M con B:G. J:M puede tener entre 150.000 a 300.000 filas y B:G entre 10.000 a 30.000 filas. La formula hasta 150.000 filas en J:M la desplazo hasta el final y trada unos 30 minutos en recalcular pero la macro se queda colgada. Mi intencion es encontrar una macro que sea mas rapida que la formula. Esta es la macro Sub BuscarCoincidencias() Application.ScreenUpdating = False Range(Range("N3"), Range("N3").End(xlDown)) = "" For x1 = 3 To Range("B3").End(xlDown).Row For x2 = 3 To Range("J3").End(xlDown).Row c = 0 For y = 10 To 12 Set…

Buenas tardes. He estado mirando y habría un libro que podría servirme de referencia (optimizacion rev4. xlsm - de aprovechamiento de barras), pero no llego al nivel de vba tan alto... Necesito algo para aprovechar paneles de 11,90ml, con límite de resto mínimo variable, y que luego me de aproximaciones por módulos también variables (son 2 tipo de material: 1 con resto mínimo de 3m y facturación cada 0'50m y mínimo 3m, y el otro material con resto mínimo de 3'15m, facturación cada 0'35m y mínimo 3'15m) Necesito el aprovechamiento máximo de cada panel y lo que tendría que facturar, y número de paneles a usar. En general suele ser para como mucho 10 medidas difere…

Hola, gusto saludarles. Necesito realizar una modificaciones de formato en una hoja que está oculta, lo que quiero es que al estar oculta no tener que hacerla visible, seleccionarla, correr la macro y volverla a ocultar. Tengo el siguiente código: With Hoja7 With Range("D23:D24").Font 'encabezado .ThemeColor = xlThemeColorDark1: .TintAndShade = 0 End With With Range("D26:D43").Font 'cuerpo sin lo estreses que deben quedar más tenues .ThemeColor = xlThemeColorLight1: .TintAndShade = 0.499984740745262 End With With Range("D49:D51,D53:D54").Font 'CSD y Generación de divisas .ThemeColor = xlThe…

Hola gente soy nuevo y estoy tratando de adaptar un programa vba a mi necesidad pero al momento de ejecutarlo me da el erro 3709 Option Explicit Public CN As ADODB.Connection Dim Cod_Prod, Nombre, Existencia Dim Fila, Final As Integer Function Connect(Server As String, User As String, Pass As String, Database As String) As Boolean Set CN = New ADODB.Connection On Error Resume Next With CN .ConnectionString = "Provider=SQLOLEDB.1;" & _ "Password=" & Pass & ";" & _ "Persist Security Info=True;" & _ "User…

Hola , he visto su experticie y quiero preguntarle algo , a ver si me puede ayudar Encontrè una macro que desde excel crea archivos de word a partir de registros de una base de excel, es muy parecido con combinar correspondencia. el problema que tengo es que en la base de datos al buscar y reemplazar, no lo hace en el encabezado de word. y la idea es que tambien reemplace los campos creados en el encabezado. Plantilla_ACUERDO2.zipPlantilla_ACUERDO2.zip

Hola, si alguien me pudiera ayudar, necesito saber como cambiar el color de no una sino de varias formas o dibujos, lo he probado con varios códigos que se exponen en internet, pero no me funciona, le dibujo una forma le doy el nombre y copio los códigos tal cual, y no hace nada, alguien puede ayudarme ? gracias

Como va? acá les comparto un sencillo efecto de desplazamiento de botones dentro de un formulario. Consiste en el deslizamiento de los botones dependiendo de la cercanía del puntero del mouse, funciona a través del evento mousemove del userform. El único problema que estoy teniendo es que el efecto se corta cada vez que el mouse pasa por algún botón o imagen dentro del mismo formulario (lógicamente porque corta el evento que lo dispara). Si alguien conoce alguna manera de conseguir que el efecto continué de manera fluida por todo el formulario les estare eternamente agradecido. Desde ya muchas gracias a todos ya que no lo habría podido conseguir sin el aporte de todos ust…

Necesito de su ayuda ya que tengo un archivo en donde tengo datos los cuales necesito copiar y pegar en otra columna, los datos en cuestión son generados de una aplicación que los scanean y los ponen en una misma columna por ejemplo en la celda A2 me deja el código y en la siguiente A3 la cantidad y así sucesivamente y lo que necesito es que me copie las celdas impares y me las pegue en la columna b, pero en las celda pares por ejemplo si la cantidad esta en la celda A3 me la copie y la deje en la celda B2 Espero haberme explicado lo más claro posible gracias de ante mano prueba.xlsx

Buenas a todos, Soy nuevo al foro, y un usuario "medio" de excel. Llevo unos días intentando vía formulas encontrar la manera de realizar una exportación por posiciones. Navegando he encontrado que lo mejor es via una macro pero no encuentro la forma de resolverlo ya que es necesario de un usuario avanzado en tema macros. 1. El tema en ejemplo es, tengo que exportar diferentes excels por posición así: Cuenta Saldo 100 3005,50 2121 -646,94 ... a un txt con esto: 2. Posición Longitud 1 12 Cuenta 13 11 Saldos positivos: 9 enteros + 2 decimales Saldos negat…

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")…

Buenos días a los integrantes de este prestigioso foro, esta ocasión recurro a uds para que me ayuden con una macro o quizás mejorarla, la idea que tengo es extraer toda la información (conservando su formato) de la pestaña CONSOLIDADO y que se guarde automáticamente en la carpeta donde se está trabajando, el nombre del archivo que se extrae esta en hoja PLANILLA celda D2, fecha y hora y con la extensión “.xlsx” (CONSOLIDADO CYPRESS ARROW2 2-5-2019 18-20-56 HRS.xlsx), como se aprecia en la macro que describe a continuación. Adjunto link de archivo. https://drive.google.com/file/d/1_SVxDlLOyuGGmpIih5d-M4wYJSm6S7La/view?usp=sharing Modulo 5: Sub GuardarCo…

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 …