La Pocha es un juego de cartas en el que como en casi todos los juegos hay un turno de salida, es un juego parecido a la brisca, donde en cada mano, después del reparto correspondiente, se saca una carta más que es la vira y cuyo palo tiene más valor que los demás palos de la baraja. Para cada ronda que se juga se va rotando el jugador que sale, así, mi problema está en conseguir que cada ronda se siga el orden. En la primera juegan en el siguiente orden 1, 2, 3 y 4, en la segunda ronda, sale el jugador 2, 3, 4, y 1, en la tercera el jugador 3, 4, 1 y 2, en la cuarta ronde será: 4, 1, 2 y 3, en la quinta ronda será 1, 2 , 3 y 4 y asía hasta la ronda 17. Este ord…

Hola de nuevo, estoy trabajando en una macro para copiar filas y luego ordenarlas (para hacer una análisis estadísticos sobre estas) tengo definido el rango y ya poseo la macro para copiar y filtrara las filas como las deseo. Ahora deseo que , con la misma macro, pueda copiar y ordenar al mismo tiempo. La macro que poseo es ésta: Sub CopyForm() Application.ScreenUpdating = False 'Limpiar datos anteriores Sheets("ANF1").Range("A2:DA46").Cells.ClearContents Sheets("ANF2").Range("A2:DA46").Cells.ClearContents 'Copiamos las claves desde !claves 'Para la Forma 1 Worksheets("claves").Range("B2:CW2").Copy Worksheets("ANF1").Range("E47:CZ47").PasteSpecial xlPasteValu…

hola amigos les queria pedir una ayuda, nose si es que se pueda, pero queria un ciclo for que vaya desde 1 hasta el numero de tablas dinamicas que tenga, y que en cada recorrido me seleccione la tabla dinamica 1 hasta la n, que seria el total de tablas y me aplique un cambio que seria el de hacer que no guarde los datos eliminados en origen,. bueno para que esto funcione tiene que existir algun numero de indexacion para las tablas dinamicas, lo qeu no sesi exista o no, me imagino qeu si pues si se pued con las hojas, me ayudan con el codigo? aqui dejo mi idea pero necesito las instrucciones: n = total de tablas dinamicas ' en el caso de que se pueda for i 1 to n …

Buen día. Amigos, alguien puede darme una mano, estoy haciendo una macro para calcular un surtimiento, ya casi la tengo lista pero en la ultima parte requiero que haga un filtro y de los datos filtrados solo copiar 6 filas de una columna para después pegarlas en otra hoja con la opción de transponer, aunque ya tengo todo el filtro y el pegado no se como indicarle que solo me copie 6 filas, adjunto archivo de ejemplo ya que la original pesa mas de lo permitido, básicamente es después de aplicar ciertos filtros poder copiar 6 filas de la columna F. Muchas gracias. Filtro.rar

Buena tarde foristas. Acudo nuevamente a ustedes para solicitar su apoyo para ayudarme a lo siguiente. Tengo un archivo con 2 Hojas. La Hoja DATOS sirve para almacenar los datos de un inventario, y el cual tiene campos que se deben lleanar, y que tiene un rango dinámico. en cuanto a número de filas se requiere. En la Hoja CUADRO, a partir del rango C4:D4 se filtran y pegan valores únicos de la columna denominada Rodal y Especie. Luego aparecen 2 columnas más, la columna DAP que recoge el diámetro promedio de cada especie que se encontró en un rodal, y la columna VOLUMEN que suma todos los valores de cada especie por rodal. Lo que me falta es incluir una fila d…

Llevo desde ayer dándome calabonazos contra la pared tras tirarme un par de días implementando una nueva hoja en mi lista, tras ver que todo funciona en la hoja en cuestión bien y hace lo que quiero, reviso el código para que todas las llamadas sean echas con sheets ("Nombre de la Hoja") y asi poder usar el userform desde cualquier hoja el caso es es que para insertar una celda uso la instrucción que me proporcionasteis en otro post y siempre la inserto en al misma posición. Sheets("Hoja Datos").Rows(4).Insert luego me rellena con los datos que tengo en los txtbox y combobox en sus respectivas celdas y me reordene por orden alfabetico a partir de la f…

Buenas tardes .... ¿El control Netcommocx permite abrir dos puertos com simultaneamente? Si no fuese asi ¿como podria controlar dos puertos com desde excel? Tengo dos basculas mandandome en continuo el peso x rs232 y necesito leer los dos puertos. Voy a intentar conmutar NETComm1.CommPort = 1 y NETComm1.CommPort = 2 e ir haciendo lecturas ...... gracias

hola buenas tardes de antemano muchas gracias por tomarse la atencion de leer mi tema quisiera saber si es posible con alguna macro evitar que un mismo libro se abierto simultaneamente dos veces ejemplo tengo abierto el libro 2 y quiero evitar que se pueda volver abrir para que no aparezca el mensaje de que sera abierto una copia y que sera solo de lectura de antemano gracias:

Buen dia. Tengo un dilema como se pueden ejecutar tres macros en una sola hoja y si es posible anexo detalles de los codigos Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 1 Then Exit Sub Select Case UCase(Target.Text) Case "SEP" MsgBox "Solo se aceptan profesores de base" Case "STEN 41" MsgBox "Dato incorrecto" 'Aqui puedes añadir tantos casos como quieras End Select End Sub Dim X As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo neo If Intersect(Target, Range("E7:F454")) Is Nothing Or Target.Value = "OTROS" Then Exit Sub If Intersect(Target, Range("E7:F454")) Is Nothing Or Target.Value = …

La macro para crear los archivos ya la tengo pero esta crea archivos .xlsx y no .xlsm y no se como pegarle una macro a cada una para que esta se ejecute a penas se abran los archivos copiados. Duplicar.zip

Hola, no se si esto se puede hacer, pero por preguntar no pasa nada y si de paso recibo ayuda, mejor. Resulta que quiero crear una web con un panel de control para añadir, modificar, eliminar, insertar imagenes, etc, datos de la web y para esto se necesita una base de datos. Me gustaría saber si de alguna forma puedo crear una base de datos que se pueda modificar desde la web, lógicamente la base de datos también estaría alojada en el servidor. También, la web debe de obtener los datos de la base de datos en los apartados correspondientes. Siento no poder subir un ejemplo, pero esto de momento es solo un proyecto que aun no se ha empezado.

Hola a todos Necesito ayuda con un tema que me tiene de cabeza. Tengo varios archivos de excel con macros en mi PC. Estos básicamente lo que hacen es tomar datos de otros archivos excel para formar un reporte o análisis. Los otros excel están también en mi pc o se pueden bajar de un programa llamado sap. El problema es que como todos estos archivos se encuentran en mi pc, a la hora que yo ejecuto la macro se sale excelente todo. Pero estos archivos se encuentran en una carpeta compartida del trabajo y cuando otro usuario intenta ejecutar la macro esta le da un error por que no encuentra el excel especifico de donde tomar la información (pero toda la información esta en…

hola buenas tardes. tengo el siguiente problema, cree un formulario y necesito que desde otro formulario en el mismo libro mediante un OptionButton me modifique la informacion de un TextBox, que codigo debo usar?

Hola. Mi problema es el siguiente. Tengo una lista desplegable con 150 elementos, y deseo que en función del elemento que escoja realice una u otra función (al cual llamare con una macro). La lista desplegable la tengo asociada a la celda A1. si cambio el elemento de la lista cambia el valor de la celda a1. Pero no consigo que el Excel se de cuenta que ha habido una actualización en la celda A1 y comience de nuevo el programa. En cambio, si el valor de A1 lo cambio manualmente, es decir, introduzco yo el valor entonces si que se activa Private Sub Worksheet_Change(ByVal Target As Range) End Sub y me ejecuta el programa. Lo que me gustaría saber (para evitar poner …

Hola Gente!!! ¿como estan? Estoy en un proyecto y me freno un tema, el el listbox me aparece un dato pero no en forma de hora como esta la planilla. ¿Como puedo cambiar ese tema para que se vea en hh:mm? Desde ya gracias!! If UCase(Description) Like "*" & UCase(Me.TextBox1.Value) & "*" Then Me.LISTA.AddItem Me.LISTA.List(Y, 0) = Sheets("PLANILLA").Cells(File, 2).Value Me.LISTA.List(Y, 1) = Sheets("PLANILLA").Cells(File, 3).Value 'Hora hh:mm Me.LISTA.List(Y, 2) = Sheets("PLANILLA").Cells(File, 4).Value Me.LISTA.List(Y, 3) = Sheets("PLANILLA").Cells(File, 5).Value Me.LISTA.List(Y, 4) = Sheets("PLANILLA").Cells…

Hola buenas Tardes, SI no es molestia Necesito saber como puedo contar cuantas filas tiene escritas un archivo excel desde vb Saber cuantos Datos existen en una Hoja llamado Consolidado desde la Fila A9 solo de la columna A, y con un MSGBOX me diga cuantas filas tiene el excel. Gracias de antemano.

tengo este archivo de un ejemplo de factura a ingresar tengo 10 combobox que funcionan perfectamente al sumar al sacar subtotal todo esta bien el problema es al adicionar los otros. desde donde empieza al combobox 11 no funcionan. Necesito 30 pero he tratado de colocar primero 10 y despues otros 10 y me sale error no se llenan y no se hace la sumatoria aunque los coloque en el recorrido para llenado y sumar, ya tienen el consecutivo de nombres como al principio pero no se que sucede. adicional a eso no he podido hacer que el scrollbar funcione con el scroll del mouse solo con el teclado se desplaza y con el mouse hayq ue dar click en la barra e ir bajando o subiendo.…

Buenos días; Tengo un Excel desde el cual busco información en otros Excel que nunca suelen tener el mismo nombre en la hoja. Para que la cosa sea rápida, no quisiera abrir el Excel, por eso lo de buscar la información con la fórmula de la macro. Mi problema viene en el nombre de la hoja, existe alguna forma de poder poner en la formula el nombre interno de la hoja??. Muchas gracias. Un saludo, Ejemplo.xlsm

Holas Nuevamente Amigos del Foro AyudaExcel Gracias a Ustedes estoy aprendiendo mas Ahora tengo algo mas complicado Mostrar, Insertar y Modificar desde un ListBox con varias columnas he intentado resolverlo viendo otros ejemplos del foro pero nada Dejo el archivo para que lo vean y me ayuden Por Favor Amigos Espero vuestras respuestas EstadoDeCuenta.rar

Que tal, quiero poner folio que no permita poner el duplicado, al poner en texto nombre de folio que diga existente o no existe y sepa agregara en la base de datos del excel, quiero hacerlo desde TxtFolio.txt del VBA, no logro hacerlo... estado tratando como hacerlo.. pero normalmente se lo agregarlo hay duplicado de folio.. gracias

Estimados, Soy nuevo en este foro y desde ya agradezco la creación en este foro, sus importantes aportes y la ayuda que me puedan brindar. Necesito que me puedan ayudar por favor, en la optimización de una macro (realizada en Excel 2007) , ya que, se demora bastante tiempo en ejecutarla y como la ocupo varias veces al día se me hace MUY necesario el poder hacer que corra mas rápido. He probado con distintos códigos, entre ellos, agregar al inicio y al final de la macro, las siguientes sentencias. Al inicio: Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False Al fi…

Mi consulta es ¿cómo comparar dos listas en la hoja1 y hoja2 y copiar aquellos datos diferentes, entre ambas, en la hoja1? Gracias Libro1.rar

No se si me sabré explicar, pero aún así... voy al lío. Partiendo de la base que trabajo a turnos 06:00h-14:00h, 14:00h-22:00h y 22:00h-06:00h, lo que necesito es una macro/fórmula que me inserte la fecha en un celda automáticamente según el día en el que esté, pero teniendo en cuenta que para ello el día en vez de terminar a las 23:59h, termina a las 05:59h y el comienzo igual, en vez de empezar a las 00:00h, empieza a las 06:00h. No se si será posible lo que solicito, he estado buscando por el foro, ya que debido a mi trabajo ahora que me han puesto un PC quiero poner en práctica varias ideas que tengo para mejorar la productividad y que sea más cómodo en la medida de…

Buenas noches a todos. Otra vez en busca de ayuda acudo a este gran foro. Bueno, no consigo colorear de forma alternada rangos de celdas. Es decir que las celdas que tengan el mismo valor se rellenen con un color y cuando el valor de la celda cambie que se rellene con otro color y así de forma alternada con 2 colores tal como está en el archivo de muestra adjunto. Desde ya agradezco cualquier solución u orientación que me pudiesen proporcionar. Saludos desde Bolivia. Colorear condicionado.xlsx

Hola Buen Dia Por favor me pueden ayudar con lo siguiente: Al cerrar un archivo que contiene una macro de excel sin realizarle ninguna modificacion siempre me pide guardar, porque sucede esto??? Gracias