Hola etimados miembros del foro , tengo el siguiente problema , parece **maravilloso** pero no logro darme cuenta del error, cuando quiero registra un nuevo cliente a traves del fomulario este lo hace pero fila por medio , no lo hace como deberia uno debajo del ultimo el cod es : Option Explicit Dim CelEncontrada As Range Dim CodigoAux As Variant Private Sub Bot_Limpiar_Click() Call ModClientes.LimpiarFormulario End Sub Private Sub Bot_Registrar_Click() With frmClientes If .TxtIdCliente.Value = "" Then MsgBox "Digite el n° de documento del cliente" .TxtIdCliente.SetFocus Exit Sub End If If .TxtNombr…

Gente tengo una pregunta, estoy haciendo una planilla para mi negocio, la misma consiste en comparar los precios de listas nuevas contra las de las viejas, el tema es que tengo muchisimos articulos, entonces hice una macro donde compara todo y me ordena los precios que se modificaron, hasta ahi voy bien ahora mi consulta es la siguiente, despues de este codigo que es el de buscar Cells.Find(What:=Range("d1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False).Activate yo necesito que desde la celda que quedo activada me seleccione 4 celdas para la derecha y todo para abajo y l…

hola amigos , tengo el siguiente codigo para calcular el digito de verificacion del nit para colombia pero no se como usarlo para que me funcione utilizando dos textbox uno es donde se digita el nit y el otro donde arroja el resultado del DV : Public Function DV(Nit) Dim TipoRet, lnRetorno, Arreglo_PA(15), WSuma, WDato, WDig_Ver As Integer TipoRet = VarType(Nit) Select Case TipoRet Case TipoRet = "C" Nit = Trim(Nit) Case TipoRet = "N" Or TipoRet = "Y" Nit = Trim(Str(Nit)) End Select Arreglo_PA(1) = 71 Arreglo_PA(2) = 67 Arreglo_PA(3) = 59 Arreglo_PA(4) = 53 Arreglo_PA(5) = 47 Arreglo_PA(6) = 43 Arreglo_PA(7) = 41 Arreglo_PA(8)…

Hola a todos, consulta como puedo hacer para que esta macro me guarde varios archivos en PDF Sub Macro1() Dim nombre As String nombre = Range("d12").Value Range("A5:W51").Select ChDir "C:\INFORMES" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\INFORMES\" & nombre & ".PDF", Quality:=xlQualityStandard, IncludeDocProperties:=True _ , IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub

Hola a todos!!! Planteo el problema que tengo... El objetivo es que vía VBA se siga un hipervínculo tal cual como si lo hubiese hecho con el puntero del mouse ejecutando click. En el libro llamado "Principal.xls" en su hoja "Ctrl" rango "A9" esta el hipervínculo. Libro llamado "HP_2012.xls" el cual contiene una hoja "Feb". Ahora bien en el modulo1 del libro "Principal.xls" inserto las siguientes lineas: Range("A9").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True[/HTML] Ejecuto la macro y se debería de activar el rango mencionado, y no es así. ¿A que se debe que el resultado no sea el esperado? Adjunto archivo para visualizarlo mejor…

Hola, soy nuevo en el foro y queria compartir esta inquietud que me ha surgido a ver si alguien me puede ayudar. Tengo la siguiente plantilla en la que he logrado que al ingresar un dato en columna "A" se genere automaticamente fecha y hora actuales en columnas "B" y "C", bien pues ahora lo que necesito es que en columna "E" si la opcion seleccionada es "si" que se generen en columna "F" y "G" fecha y hora actuales respectivamente. A su vez me interesa que una vez ingresado los datos no se puedan modificar y que el dato numerico que se ingresa en columna "A" no se pueda volver a ingresar (que no se repita) a menos que tenga la opcion "si" seleccionada en columna "E". …

Hola. Estoy intentando realizar un macro que haga una cuenta regresiva a partir de 10 minutos, hasta aquí, me funciona bien, el problema que estoy teniendo es que si por equivocación vuelvo a pulsar el botón que inicia el cronometro de cuenta atrás, se vuelve a ejecutar y tiempo va mucho mas rápido, algo parecido me ocurre si pulso el botón de parar crono cuando el reloj está parado, aunque aquí el error es 1004. ¿hay alguna manera que no me deje correr una macro si esta ya está funcionando para iniciar el crono y que si ya está parado que no funcione la macro de parar? Gracias de antemano Paco

Hola buenas, Tengo el siguiente problema, quiero utilizar la formula UNICOS en VBA para sacar los resultados únicos de una columna (columna que tiene el nombre de "Soporte" asignado) de una tabla. El código de VBA es el siguiente: ActiveCell = Application.WorksheetFunction.Unique([Soporte]) El problema que tengo, es que solo me devuelve un resultado cuando el resultado que necesito deberían ser varios, pero imagino que en el código VBA al referirme a una única celda solo me devuelve un resultado. En cambio en excel al utilizar la funcion únicos, como permite desbordamiento me devuelve todos los resultados que necesito uno debajo de otro. …

Hola a todos: Estoy intentando a través de formulas contar los números pares e impares de un rango. El rango a contar es de la columna D a la columna H ¿Se puede hacer? Mi Office es el 2016 EJEMPLO.xlsx

tengo un archivo excel anterior al que tengo actualmente que es el 2007 aunque no te sabria decir que año cuando lo abro me sale el siguiente aviso: "abrir el proyecto vba de este archivo requiere un componente que no esta instalado actualmente.este archivo se abrira sin el proyecto vba para obtener mar informacion, busque covertidores bva en microsoft online" que puedo hacer para abrirlo he ido a la pagina de microsoft hay un convertidor pero es para mac gracias

Hola estimados: favor su ayuda con la aplicacion de una macro que me permita desde una planila madre enviar informacion a distintas hojas segun distintos criterios. soy un novato en este tema, pero si me pudiesen orientar se los agradeceria mucho!! espero sus respuestas!

Hola a todos, quiero saber como visualiza la base de datos de Hoja2 que filtre en un listbox en una Hoja3 para asi poder Imprimir solo lo filtrado de la base de datos Ahí les dejo un archivo muy bueno por cierto de un post anterior, Solo que solo se ejecuta desde la Hoja y no puedo ejecutarlo a traves de una macro,Muchas Gracias.!

Hola a todos! Nuevamente publicando Verán no es tanto un problema el que tengo, sino quisiera solicitarles sugerencias de mejora, he creado un lector de captcha cogiendo código de por aquí y por allá https://drive.google.com/file/d/1JJ7H3bzVI_L_Ef0diSynJrB-8oW7r_pq/view?usp=sharing Y me resulta útil para saltarme algunos captchas, pero no mucho cuando la imagen, por ejemplo, tiene fondo negro o pequeñas ofuscaciones Espero comentarios

Buenas noches, existe un tema igual pero está cerrado y no admite más respuestas. Tengo un fichero PDF que tiene hecho un formulario el cual puede rellenar a mano. Lo que yo quiero es que de un fichero excel donde tengo los campos: nombre, dni, direccion, etc esos datos se introduzcan en el campo destinado para ello en el formulario y me vaya creando diferentes ficheros. El fichero excel tiene unas 400 personas, por lo cual me tendría que generar esos 400 pdf rellenos con los datos que hay en excell. Dispongo de Office365 y de Acrobat Reader. Espero haberme explicado bien.

Hola a todos. Solicito ayuda para poder concatenar textos de celdas consecutivas. La verdad parece sencillo pero no doy con la solución. Atento a sus respuestas quedo agradecido de antemano. Prueba concatenar textos consecutivos.xlsm

Hola, buenos dias Tengo un codigo el cual pido que me copie de una hoja llamada SOLICITUD_DE_RMA´S del rango B28:J37, lo copiara a una hoja concentradora llamada CTRL_RECTIFIC iniciando en B4 y luego pase a la siguiente linea par seguir agregando mas , pero me marca un error, mi codigo es el siguiente: Agradeceria muchisimo su valioso tiempo y apoyo, ya que no logro dar con el error............... saludos amigos SUB COPY_DAT() ' Dim strTitulo As String Dim Continuar As String Dim TransRowRng As Range Dim NewRows As Long 'te cambié esto porque a medida que crezca el Integer no te va a servir Dim IColum, J As Integer ' strTitulo = "RECTIFICADORES - CONTROL D…

Hola estoy cargando una hoja Excel a una grilla de VB6 y creo que el método que estoy empleando es lento, creo recordar que hay otros métodos mas rápidos, yo utilizo dos for X, y for Y recorriendo celda por celda y obtengo su valor (esto en 790 filas con 21 columnas me esta demorando 1 minuto), pero creo que había una forma de obtener un array de las celda lo cual es mas rápido mi código actual Private Sub Form_Load() Dim LastRow As Long Dim i As Integer Dim XL As Object, xlSpread As Object Const xlLastCell = 11 Dim Row As Long, Col As Long Set XL = CreateObject("Excel.Application") XL.Workbooks.Open FileName:=App.Path & "\L1.xlsx"…

Hola, tengo una macro que desprotege ciertas celdas, cuando apreto la misma, primero te pregunta la contrasena. Pero necesito que cada vez que la contrasena es incorrecta no me tire error 1004 sino un cartel que diga contrasena incorrecta. Cree la siguiente macro pero no me funciona: Sub Desproteger() ' ' Desproteger Macro ' ' On Error GoTo Errhandler ActiveSheet.Unprotect Sheets("OP").Select ActiveSheet.Unprotect Sheets("NP").Select Range("F11").Select Exit Sub Errhandler: MsgBox "No dijiste la palabra magica", vbOKOnly, "Error" Exit Sub End Sub Que debo hacer para que funcione? Desde ya muchas gracias =)

Buenas, necesito de su ayuda con un tema, tengo un excel con un formulario que introduce datos en una hoja, he creado otro formulario con tres campos y quiero que al pulsar un boton me genere un archivo excel con solo los datos que reunen los datos del formulario y se renombre con una concanetacion de de los datos de las casillas introducidas en el formulario. Muchas gracias de antemano. Mecanizacion Central.rar

bnas tardes, please, su ayuda en el adjunto file. regards, grafico1.rar

Hola a todos y gracias por anticipado por echarme una mano... Estoy trabajando con la API de JavaScript para Excel a través de Script Lab (esto no es muy importante) Estoy tratando de cambiar el ancho de una columna... Rango.format.columnWidth=100,81; Mi pregunta es, Ese 100,81 ¿a qué medida hace referencia? porque cuando lo veo al cambiar el ancho de la columna manualmente muestra 18,29 y en cm muestra 3,78 cm ¿Alguien sabría decirme en que unidades están esos 100,81? Debe ser una medida americana. Saludos Jose

Buenas tardes a todos.. MI duda ahora es. como poder agregar columnas con un macro, después de un texto en una celda adjunto la hoja donde esta lo que se quiere hacer y lo el original es agregar 2 columnas en blanco o mas dependiendo después de la celda con contenido "Total" agradezco desde ya el tiempo dedicado.. Ayuda.xls

hola que tal¡?, me gustaria saber como puedo hacer para pasar un dato (que para este caso es la cadena de caracteres "POSITIVO") de una columna dada a otra que yo le especifique?? en este ejemplo tengo la columna negativo y la columna positivo dentro de la columna negativo debe de estar la palabra "NEGATIVO" y dentro de la columna de positivo debe estar la palabra "POSITIVO" pero resulta que tengo ese problema y quiero separarlos porque dentro de la columna negativo tambien existe muchos palabras "POSITIVO" y quiero quitarlo como le hago?. Saludos y gracias Copiar un dato de una columna a otra.rar

Hola, necesito una macro, pues me dijeron que eran muy optimas, que saque los datos de este archivo, y me los deje en otro archivo que tiene el mismo nombre de esas columnas. Además tengo en una carpeta 3000 archivos que contienen lo mismo, entonces cada uno de ellos debe ser leido y copiado los datos a otro excel. Si alguien me pudiese ayudar, seria genial! Aqui esta la planilla. Dropbox - Planilla a Copiar.xlsx

Muy buenas, Tengo una tabla con cuatro columnas y nº de filas variable, en Hoja2. Nº Panadero Fecha Mes 14 Bogdan 07/11/14 11 2 Carlos 28/10/14 10 12 Carlos 08/11/14 11 8 Catalin 13/06/14 6 9 Marcial 12/11/14 11 10 Miguel 27/11/14 11 5 Nicu 04/04/14 4 11 Sinan 07/11/14 11 15 Miguel 30/11/14 11 16 Marcial 30/11/14 11 17 Zoqueto 20/08/14 8 18 Johnatan 12/11/14 11 Necesito aplicar 2 filtros a las columnas 2 (Panadero) y 4 (Mes). El filtro de la columna 2 es el valor de un Combobox que se llama SelPanadero. El filtro de la columna 4 es el valor de una celda que se encuentra en una hoja distinta de la que incluye la tabla a filtrar (Hoja1.Range("h1").value) E…