Hola chic@s. Tengo unos datos de origen en una hoja a los que hay que hacerles unas operaciones y quiero colocar el resultado donde elija el usuario. Esto lo solicito mediante un inputbox: Set celdaDestino = Application.InputBox(prompt:="Selecciona donde quieres situar el resumen", Title:="Posición de destino de los datos", Type:=8) El problema lo tengo cuando se elilge como destino una hoja distinta. Necesitaría guardar en una variable esa hoja de destino. Por ahí he encontrado una solución que selecciona esa hoja y la celda elegida y....entiendo que como así la hoja se convierte en activa ya puedo guardar su nombre en la variable hojaDestino. …

Hola, estoy intentando crear una macro que busque las filas con contenido en una hoja y que haga varias copias de este contenido en otra hoja, numerando el numero de copia. Hasta ahora he conseguido que me encuentre los valores y que copie y pegue pero no que me haga la cantidad de copias y las numere, adjunto codigo por si alguien me puede ayudar y también imagen de datos y resultado final que me gustaría obtener. Sub Copiar_Filas() 'inicializo la variable j j = 2 UltimaFila = Cells(Rows.Count, 2).End(xlUp).Row Dim xCount As Integer LableNumber: xCount = Application.InputBox("Copias de Kits", "Total de copias", , , , , , 1) If xCount < 1 Then M…

Hola, Me estoy peleando con una macro que no termino de conseguir, a ver si alguien me puede echar una mano. Tengo en un mismo directorio varios libros excel, cada uno con varias hojas, pero en cada uno hay una hoja que se llama 'resumen'. Luego tengo un libro final que tiene tantas hojas como libros con resumen. En el ejemplo que he colgado tengo 3 libros, cada uno con su hoja 'resumen' y el libro final con las hojas 'resumen1', 'resumen2' y 'resumen3'. Necesito una macro que copie el contenido de cada hoja resumen de cada libro en la hoja correspondiente del libro final. Estas hojas resumen tienen todas la misma estructura (A partir de la fila 2, rango B-W). Esta …

Hola, Soy nuevo en macros, y encontré éste archivo de COntrol de Entradas y Salidas. Quisiera saber qué debo cambiar para que funcione la macro SIN que el "código" sea numeral NI correlativo, es decir que reconozca un código alfanumérico. Ejemplo: A2=TS1243X Control Entradas y Salidas Macros.rar

Estimados maestros: Recurro a ustedes por que tengo un problema que le he dado 1000 vueltas y no puedo solucionarlo: Resultan que tengo un par de aplicaciones con macros compartidas atravez de un archivo Access que se encuentra compartido en red con otros usuarios, una de ellas funciona sin ningun problema, la segunda funciona bien pero tengo un usuario al cual le aparece el error 430 (esta clase no admite automatizacion o no admite la interfaz esperada), lo raro que a este mismo usuario la primera aplicación le funciona de maravillas, pero la segunda que tambien usa conexión ADO me manda aquel error 430. Lo raro es que a los otros usuario les funciona sin problemas la…

Hola Gente, bueno la pregunta es la siguiente: como hacer que en una lista de 5 columnas y 100 filas, seleccione una fila al azar y copie esta fila a otra hoja, se puede hacer un macro, pero no se como. esto es para sacar una muestra aleatoria de materiales, osea tiene Codigo, Descricion, Ubicacion, stock, y lo que necesito hacer es sacar una muestra de 40 articulos, ojala puedan ayudarme.

Buenos dias expertos, en un canal de youtube encontre un archivo para consultar dni y ruc desde la pagina de sunat y/o reniec pero funcion creo solo en plataforma de 32 bits y no en 64 bits, alguien tendra una manera de poner un codigo que funcione en las dos plataformas, por favor adjunto el archivo, por favor lo voy agraceder infinitamente. Consulta DNI y RUC.xlsm

Hola a todos,esta macro me da problemas de compilacion,alguien me podria indicar la solucion? La intencion es que solo me borre las filas que sean diferentes a la condicion Gracias a todos Sub Macro1() ' ' Macro1 Macro ' Macro grabada el 21/11/2012 por Paco ' ' Dim Rango As Range, Fila As Long, ÚltimaFila As Long Application.ScreenUpdating = False ÚltimaFila = 1 For Fila = ActiveSheet.UsedRange.Row To ÚltimaFila Application.StatusBar = "Procesando fila " & Fila & " / " & ÚltimaFila If (Range("I" & Fila).Value <> TRANSPORTES Y LOGISTICA SORIA, S.L.) Then en esta linea me da el error If Rango Is…

Hola buenas,soy nuevo en este foro aunque lo he visitado numerosas veces. en uno de su temas vi el siguiente codigo para desactivar las funciones de excel ExecuteExcel4Macro("show.toolbar(""ribbon"",false)") y yo lo coloque en private sub ThisWorkbook_open() el problema es que el resulñtado no me ha gustado , porque se abre minimizado dentro del propio excel ,y ahora no se como hacer para que el archivo se abra normalmente necesitaria ayuda y si pueden explicarmelo para principiante en vba lo agradecere ; gracias

Hola amigos del foro ante buenas tardes con todos disculpen espero se encuentren bien aquí escribiendo esperando puedan ayudarme tengo 02 problemas al ejecutar unas macro. 1.- En la Hoja RUC cuando ejecuto la macro "GENERA ARCHIVOS ZIP" no me sale el resultado deseado que son los datos de la columna "E" 2.- En la Hoja VALIDA CPE cuando ejecuto la macro "GENERA TXT" no me sale con la cantidad deseada que son datos de 100 en 100 y me esta arrojando diferentes cantidades a estos. adjunto mi archivo esperando me haya dejado entender gracias. adjunto el archivo pero me dice que es pesado, adjunto un link gracias. https://we.tl/t-EqX8pdb74a

que tal buen dia, bueno queria saber si me pueden ayudar con la siguiente macro, lo que quiero que haga es que a determinada fecha se cree un archivo con un nombre especifico a una ruta especifica y cuando se quiera acceder a ese archivo cheque primero si no existe el archivo creado y si existe se elimine el archivo que se esta utilizando y si llegaran a tener otro archivo como el borrado y cambien la fecha se elimine igual porque seguira el archivo guardado...AQUI LES DEJO LA MACRO QUE ESTOY MODIFICANDO TIENE UN ERROR ES QUE SI YA SE GUARDO UN ARCHIVO Y LE CAMBIO LA FECHA NO APARECE EL MENSAJE Y SE SUPONE QUE SE DEBE DE APARECER EL MENSAJE Private Sub Workbook_Open() …

Hola amigos tengo una aplicación VBA Excel que en local funciona una maravilla, pero ahora se me ha ocurrido ponerla en red y que la utilicen al mismo tiempo dos usuarios. He pensado en la opción de la interfaz "Compartir Libro" y sorpresa, que ahí han venido un montón de problemas al actualizar datos de un libro u otro, Pregunta por Excel si deseo un cambio o el de mi compañero con un mensaje ambigüo y rarísimo , error 1004 al guardar al mismo tiempo los dos y la verdad es que es un verdadero desastre. Me han aconsejado que pase a ADO pero no sé la sintaxis. Aquí en este proyecto hay bucles en formularios sobre hojas y modificación inmediata de registro en Hojas oculta…

Buenas tardes a todos; He creado una macro con la grabadora para copiar columnas no contiguas y pegar los valores en una tabla que se encuentra en la misma hoja. Al pulsar sobre el botón "Copiar" se ejecuta la macro y muestra el resultado que me gustaría obtener. Un saludo para todos. Adjunto macro. MCopiarColumnas.xlsm

Muy buenas a todos. A ver, os comento. Tengo una macro en excel 2010 que, a través de un useform, me genera (en la pestaña principal) una fila con con varias columnas. Las dos primeras columnas son las importantes. Además, dicha macro, crea una pestaña con el nombre que hay en la columna A y genera el hipervinculo correspondiente a dicha celda con la nueva pestaña. ejemplo: En el useform pongo "123" y se crea en la celda A5: 123, además de crearse una pestaña con el nombre "123". La celda A5 y la pestaña estan hipervinculadas. También tengo que comentar, que segun se va ejecutando el useform, se van añadiendo filas nuevas con las mismas columnas Esta macro funciona perf…

busco una macro para que con un botón de actualizar pueda traer al libro "Consolidado" los datos que se encuentran en "libro1" y "libro2" ejemplo de Macro.rar

Buenas, Me gustaría encontrar una macro o función que me permita buscar en el texto de una celda y en función de lo que encuentre devolver un valor u otro. Por ejemplo... si el valor de una celda es "Carlos"... la fórmula podría buscar si es "arlos" y devolver un "Hola Carlos", pero si el valor es "Luis Manuel"... poder buscar también "Luis" y que te devuelva "Hola Luis"... Es como concatenar varios IF de texto (usando *) y que te devuelva un valor u otro dependiendo de lo que encuentre... ¿Alguien me puede ayudar? Muchas gracias

Tengo el siguiente código: Private Sub CommandButton1_Click() Dim xCodigo As String, xApDcto As String Dim xFila As Integer, xDcto As Integer, xLargo As Integer Dim resp As Boolean On Error Resume Next xCodigo = frmConsulta.TextBox1.Value xLargo = Len(Trim(xCodigo)) If xLargo = 1 Then xCodigo = "000" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 2 Then xCodigo = "00" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 3 Then xCodigo = "0" & xCodigo: frmConsulta.TextBox1.Value = xCodigo Hoja1.Select Range("A2").Select resp = Cells.Find(What:=xCodigo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows…

Buenas noches, parecera para algunos sencillo pero a mi el tema me esta trasnochando por mis conocimientos limitados en macros. Quisiera programar una macro que me subtotalice en las celdas vacias de la colmumna y de ahi continue a la siguiente y asi en adelante. Adcional como puedo hacer que la macro determine cuando parar y totalizar?. Gracias de antemano a quien me pueda hechar una mano con el tema. Adjunto un excell para ver si es clara mi solicitud. Ejemplo.xls

Buenos dias, requiero de su ayuda en la solución del siguiente problema: - Tengo una base de datos (Consolidado) donde se carga la información general. Parte de esta información debo pasarla a otra hoja (Información Detallada), conservando por supuesto los datos en la hoja de consolidado. - He tratado pero resulta un poco engorroso realizarlo a traves de formulas ya que hacen que el archivo se vuelva muy pesado al ir ingresando datos. (Estamos hablando de información anual y de registro permanente en el tiempo) - En la hoja de información detallada quisiera agregar un boton de comando que me permita cambiar de año y en función del mismo se visualice la información. - …

Hola amigos: acudo nuevamente solicitando su ayuda, este es mi caso: he estado trabajando en un proyecto utilizando listview en un userform, mi equipo tiene instalado windows 7 de 32 bits. utilizo excel 2010, la version del listview que utilizo es version 6.0(SP6) ya tengo registrado los componentes mscomct2.ocx y mscomctl.ocx en la carpeta \system32 por un problema que tuve. con mi equipo que tuve y que fue formateado, tengo el problema que cuando abro mi aplicacion en otro equipo no funciona, algo que me parece extraño pues antes de ser formateado funcionaba en cualquier equipo, incluso en equipos que tienen excel 2007 ahora al abrirlo en otro equipo me envia el mensaj…

Hola buen día, Estimados tengan una excelente mañana, favor su ayuda si se puede extraer el formato de celda personalizado (solo la moneda) a otra celda. En la columna A y B tengo los siguientes datos y necesito extraer la moneda a la columna C y que mede el resultado en la columna D, he realizado un código muy largo me gustaría saber si se puede optimizar o alguna mejor forma de hacerlo. mil gracias HELP.xlsm

Hola amigos Excel 2010 Tengo una hoja con datos string en el rango A1:A15600 Los datos (string) se presentan entre dos guiones. Después del primer guión puede haber ninguno o n ceros. Por ejemplo: A-0001234-XX debe quedar A-1234-XX A-01234-XX debe quedar A-1234-XX A-0001234-XXXX debe quedar A-1234-XXXX Como se nota en los ejemplos arriba indicados, después del segundo guión puede haber 2 o 4 caracteres. Si el primer caracter es >= 0 agregar 20 antes del primer caracter. A-000A-1234-00 debe quedar A-1234-2000 Si el primer caracter es mayor que cero agregar 19 A-000A-1234-95 debe quedar A-1234-1995 Si hay hay cuatro caracteres dejarlos. Por ejemplo A-00…

Hola amigos tengo una macro que inserta una imagen en un control image y en una carpeta de imagenes, funciona bien hace su función casi perfecta, pero tengo un pequeño detalle cuando doy click en el botón donde esta la macro y aparece el explorador de windows y no selecciono ninguna imagen, pero cierro el explorador me arroja un error diciendo "archivo no encontrado".Alguien podrá ayudarme en revisar mi macro y decirme que me falta para que esto no suceda. Gracias por su atención. Private Sub CommandButton4_Click() ArchivoSeleccion = Application.GetOpenFilename ' Elegimos la imagen y la ruta Altas.Image1.Picture = LoadPicture(ArchivoSeleccion) ' cargamos la im…

Estimados amigos del foro, acudo nuevamente a ustedes tengo un formulario, con el cual abro dos carpetas que están relacionadas a dos hojas excel, si abro la una carpeta debe activarse la hoja correspondiente (Ej Carpeta OfEnviados con hoja BD_OFICIOSE; Carpeta OfRecibidos con hoja BD_OFICIOSR) según esto se cargan los archivos en el listbox. necesito hacer funcionar el botón de buscar archivo (imaginen cuando tenga mas de 100 archivos) para que encuentre el nombre del archivo en el listbox y en base a las hojas BD correspondiente se muestre los datos del respectivo del archivo Notas: (1) El nombre del archivo en la hoja BD_OFICIOSE rango("D") en realidad es un numero …

Estimados Estoy de a poco entrando en el fascinante mundo de programar en VB, pero me falta mucho por aprender. Por esta razon , necesito ayuda para crear la siguiente macro: - Realizar una macro que permita ingresar la edad de una persona a través de un inputbox y Muestre un mensaje si es mayor de edad o no. Tengo este codigo, pero algo le falta al parecer: Public Sub prueba() X = MsgBox("Desea Continuar", vbYesNo + vbQuestion, "Opción") End Sub Muchas gracias saludos meggido