Hola, tengo un juego de Poker que funciona perfectamente. Pero lo copio a un Mac y el juego lo puedo modificar a mi gusto pero las imágenes del cubilete (como si se moviera) no funciona, solo las imágenes, que parte del código debería modificar ? envío parte del programa, la macro en cuestión. Sub Tirar() Dim COLUMNAS As String Dim DADOS As String, DADO As Integer Dim y As Integer, d As Integer '-- Randomize Range("A1").Select COLUMNAS = "FGHGHGI" 'Columna de la imagen del cubilete DADOS = "JKLMNO" 'Columna de la imagen de los dados Visualizar False For y = 1 To Len(COLUMNAS) ActiveSheet.Shapes.Range("CUBI…

Saludo Jóvenes, tengo un programa realizado con VBA excel, el cual al ejecutarlo se aculta el libro de excel y cada vez que abro otro libro tambien me lo oculta, Ayudenme con el codigo para poder abrir otro libro de excel sin que se oculte cuando mi programa este ejecutado.

Hola amigos, buenas tardes. Oficce 2003 - SP3 Un asuntillo que tengo entre manos y no sé cómo se hace. A ver si alguien me puede ayudar, por favor. Tengo rangos de celdas cuyos contenidos son números. Rangos que, por ejemplo, pueden ser: desde A1 hasta A20 y desde A25 hasta A40. En las celdas de estos rangos, existen unos valores/precios básicos que se muestran automáticamente. Lo que quisiera es que al seleccionar un grupo de celdas de entre estos rangos, por ejemplo: desde A5 hasta A18, a los valores de estas celdas se le pudieran sumar tantos por cientos automáticamente, a través de código VBA y un botón para ejecutar dicho código, preguntando qué % se quiere inc…

Hola intentaré exponer mi problema lo mas claramente posible, dada mi condición de novato en excel Mi hoja de calculo está toda bloqueada para impedirlos cambios no deseados con excepción de las celdas en las que quiero introducir información. Utilizo botones de comando para introducir información en las celdas de un rango C19:M384 por ejemplo. La informacion se introduce celda por celda y necesitaria saber la manera de que el cursor se desplace a la siguiente celda vacia a la derecha y al llegar a la ultima celda desbloqueada en la fila activa vuelva a la primera celda vacia de la siguiente fila. Lo he intentado con: Private Sub CommandButton23_Click()'introducir…

Buenas noches amigos Excelianos como están? espero muy bien. Necesito de su experiencia estoy trabajando para un proyecto de mi univesidad y la verdad he encontrado un proyecto casi a lo que necesito en este foro pero está incompleto el código del botón modificar tiene o comete algunos errores al ejecutarlo. Resulta que ingreso datos por un formulario y se grabará en un hoja de excel que me sirbe como Base de datos, alguien suguiere que se lo haga en Acces claro eso es mas para jugar con datos pero no todos pueden utilizarlo como yo. Es mas no quiero ingresar millones de datos por eso quiero acoplarme a excel y con un poco de ayuda de VBA se que puede funcionar. Bueno en …

Estimados, necesitaría que me ayudaran a resolver algunos problemitas que tengo con un formulario. Les adjunto el archivo y las explicaciones están dentro del mismo. Desde ya muchas gracias. Ejemplo Formulario.rar

Estimados buenas tardes. por favor su apoyo para poder corregir este codigo, no se porque razon no me funciona. no estoy adjuntando archivo por que es demasiado grande , y esta a medio desarrollo. lo que hace el codigo es buscar un dato escribiendo el nombre o el codigo en el textbox en un listbox cuyos datos fueron extraidos de una hoja ( esta hoja tiene dos columnas una que tiene por nombre EAM y OTRA descripcion. los registros ahi contenidos son indeterminados ( pueden reducir como aumentar). Private Sub Buscar_Change() On Error Resume Next With Sheets("Listeq") If Buscar <> "" Then ListBox1.Clear i = 1 …

buenos dias, necesito vuestra ayuda. tengo un formulario en el que tiene dos option button dos textbox y un command. la idea es que el usuario cuando quiera saber una edad dependiendo el option button que elija le dara una edad real o actuarial. me explico. optionbutton1. Alta de asegurados en poliza. (este codigo ya lo tengo creado) es la edad real con la que el asegurado contrata calculando la edad a fecha de hoy. optionbutton2. Asegurados en vigor. (necesito codigo porque no soy capaz) esta edad se calcula restando la fecha de nacimiento y el 31/12/2022. adjunto fichero con el formulario hecho. gracias! Calcular_Edad.xlsm

Hola a tod@s. Me adelanto dando las gracias por su tiempo en ayudarme en mi caso. Tengo una macro que extrae información de la página web de venta de autos el problema está en extraer ciertos secciones por ejemplo: details, features y specifications. <div class="tab-content" id="sections-contents"> <div class="tab-pane fade" id="details" role="tabpanel" aria-labelledby="details-tab" data-webm-section="features-tab-details"> <div class="tab-pane fade" id="features" role="tabpanel" aria-labelledby="features-tab" data-webm-section="features-tab-features"> <div class="tab-pane fade" id="specifications" role="tabpanel" aria-labelledb…

Tengo un archivo en excel tipico de ventas (ciudad, vendedor,ventas..etc) esta informacion esta en la hoja1 y quiero hacer una consulta desde visual basic tipo SQL (Select "Ciudad" from Ventas.xlsm where Ventas > 100). El recordset debera llegar a una hoja de excel del mismo libro (Ventas.xlsm) hoja2 Me pueden ayudar con el codigo de coneccion y si se requiere configurar el equipo para poder hacerlo. Envio Archivo .xls dado que la extension xlsm no pude subirla Gracias Ventas.xls

Al ejecutar esta macro sobre los datos de la hoja1 funciona perfectamente, sinembargo requiero modificar la coneccion o asignacion de variables deforma que al convertir los datos de la Hoja1 en una Tabla Ver Hoja"TABLA" a la que denomino por el administrador de nombres "TDatos" sea posible ejecutar la misma consulta. anexo la consulta inicial sobre los datos de la hoja1 que entrega el resultado en la hoja2 " Sub ConectarExcel()" y abajo la correspondiente sobre los datos en la hojaTabla en la que el mensaje es que no encuentra el objeto "TDatos". el archivo es Xls dado que no pude subir el xlsm Gracias Sub ConectarExcel() Dim Conexión As Object, rs As Object Set Conex…

Hola a todos. Tengo el siguiente código para copiar columnas de una hoja a otra, pero si en la primera tengo fórmula, me copia la fórmula; y ahora necesito que me copie solamente los valores, como cuando hacemos un pegado especial manualmente. Dim ShER1 As Worksheet Dim SHDestino1 As Worksheet Set ShER1 = Worksheets("b.p.") Set SHDestino1 = Worksheets("b.d.") ShER1.Range("b10:D1500").Copy SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlAll Application.CutCopyMode = False ¿Alguien puede decirme el código para hacer lo que pretendo? …

Hola amigos de Ayuda Excel El día de ayer dos excelentes colaboradores de AE, ante una consulta que hice, me propusieron que era mejor una macro que ejecutara otra macro de manera automática. Uno de los colaboradores me brindó el siguiente código que me funcionó perfectamente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 4 And _ Target.Column = 5 And _ Target(1, 1) <> "" Then Call MacroA End If End Sub Al respecto pensé, que tenía 3 hojas similares que podía aplicar la misma estrategia, pero con la diferencia de que en éstas hojas, la celda que va a determinar la ejecución de la macro …

Amigos, Estoy nuevamente por acá para que me ayuden con un código: Lo que estoy haciendo es enviar un mail de Outlook - en su versión 2010 -, mediante una Macro; ésta Macro envía un correo con un archivo adjunto más un rango de celdas específico. Hasta el momento todo bien, pero al momento de cambiar la propiedad Display por send es donde falla, ya que me envía el archivo adjunto pero no el rango de celdas. Les adjunto el código que estoy utilizando: Sub rangoCeldas() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2010 Dim rng As Range Dim OutApp As Object Dim OutMail As Object Dim Adjunto As Variant …

tengo unos datos en la hoja2 y me gustaria extraerlos como se muestra el ejemplo en la hoja proyecto2.xlsm

Saludos Tengo dos bases de datos para cruzar las cuales las tengo organizadas por subtotales en la opcion 2 (que es cuando muestra solo los totales de cada referencia). Para esta tarea ejecuto una macro de busqueda referenciada que funciona bien, pero como comente anteriormente los datos esta organizados por subtotales en la opcion 2 la macro me trae el valor exacto pero se ejecuta tambien en las celdas que estan ocultas. Se que debe haber un fragmento de codigo que Cuando se este ejecutando la macro de busqueda tome solo las celdas visibles y omita las celdas ocultas. Espero haberme expresado de la mejor forma, Sin embargo Dejo un ejemplo Gracias por sus respuestas. …

Hola, tengo el siguiente código asignado a un Botón de "Eliminar" dentro de un Formulario en Excel, quisiera agregarle la parte de confirmación, donde me pregunte "Confirma eliminar el registro" Si - No, y ahí me perdí un poco, agradecería mucho su ayuda. ------------ Private Sub BT_Eliminar_Click() Me.BT_Agregar.Enabled = True Dim FILA As Object Dim Linea As Integer Dim NumeroFila As String NumeroFila = Me.TextRolPatente Set FILA = Sheets("Basedatos").Range("B:B").Find(NumeroFila, LOOKAT:=xlWhole) Linea = FILA.Row Range("B" & Linea).EntireRow.Delete MsgBox "El registro fue eliminado" Me.TextRolPatente = Empty Me.T…

Buenos días En un formulario tengo varios checkbox que los uso para señalar si requiero un equipo o no. Ahora me de vuelve verdadero o falso , pero necesitaría una solución para que me devolviera si o no. sl2

coordial saludo a todos bueno mi problema consiste en lo siguiente estoy programando un punto de venta todo va perfecto utilize parte de un codigo que encotre por aqui mismo el caso es que a la hora de agregar un producto en la factura tengo 2 opciones una desde una lista que tengo en una hoja llamada inventario o manualmente cuando lo haga desde los productos existentes no tengo problema ya que lo hace de maravilla y lo descuenta del stock pero cuando meto un producto manualmente y la funcion lo busca en la hoja no lo encuentra y me saca un error adjunto mi proyecto sin claves ni nada y abriendo de una vez el formulario de facturacion para que hagan una prueba al agregar…

Hola. ¿Hay alguna línea de código para indicar el movimiento de las flechas up/down/left/right? He intentado grabar una macro pero no parece recoger este movimiento. Gracias.

hola expertos buenas tardes mi idea es la siguiente en este libro1. un mensaje que me diga que celdas desea marcar de color rojo en la hoja22. de acuerdo al listado numerico de la columna A de hoja actual enviar el listado de numeros que cumple con la posicion del color de la hoja2 Libro1.xlsm

Hola buenas tardes, necesito me ayuden a completar este desarrollo por favor. Tengo una Macro que me genera el codigo QR y la pone en la celda correcta sin problema. El detalle esta en que si no estoy conectado a internet y abro el archivo de excel la imagen no se visualiza solo dice "No se puede mostrar la imagen vinculada". Lo que necesito es que al bajar la imagen se salve en C:\ y despues jalarla a la hoja de Excel como imagen para que siempre que abra el archivo de Excel se pueda visualizar. Gracias y espero se pueda hacer. 'recorre la columna B hacia abajo hasta el final donde encuetra datos. Sub Test2e() 'Seleccionar celda B2, *primera línea de datos*…

Saludos Tengo dos bases de datos para cruzar las cuales las tengo organizadas por subtotales en la opcion 2 (que es cuando muestra solo los totales de cada referencia). Para esta tarea ejecuto una macro de busqueda referenciada que funciona bien, pero como comente anteriormente los datos esta organizados por subtotales en la opcion 2 la macro me trae el valor exacto pero se ejecuta tambien en las celdas que estan ocultas. Mi duda es si existe alguna forma o codigo que evite que la macro se ejecute en las celdas ocultas Espero haberme expresado de la mejor forma, Sin embargo Dejo un ejemplo Gracias por sus respuestas. EjemploLSV.rar

Hola tengo muchos problemas para gestionar un reporte al cual acceden varios usuarios, necesito de su valioso apoyo para crear un código que impida modificar los datos ya ingresados en dicho reporte. [TABLE=width: 500] [TR] [TD]esta columna recibe datos[/TD] [TD]esta columna recibe datos 5 minutos después[/TD] [TD]estacolumnarecibedatos[/TD] [/TR] [TR] [TD]lo que necesito es:[/TD] [TD][/TD] [TD][/TD] [/TR] [TR] [TD]ingresa datos/se bloquee[/TD] [TD]ingresa datos/se bloquee[/TD] [TD]etc...[/TD] [/TR] [TR] [TD][/TD] [TD][/TD] [TD][/TD] [/TR] [/TABLE] Y no se como anlzarala a este otro codigo que las columna ya tienen para ingresar fechas: Private Su…

Un saludo soy relativamente nuevo usando excel y se me han presentado varías dudas y oportunidades a desarrollar... Ahora necesito alguien me pueda ayudar, tengo una pequeña programación donde al hacer click en determinado botón, imprime la hoja y cambia cierto número de folio. Pero necesito agregarle que ademas de eso lea una celda en particular y compare con una columna completa de otro libro, si encuentra la palabra en la columna se sumaría un contador. Alguien tiene alguna idea u orientación para realizar esto?? De entrada no se ni como hacer que lea el otro libro, así que cualquier ayuda básica desde ahí sera agradecida.