buenas espero que estén bien, necesito de su ayuda ya que estoy aprendiendo a manejar el excel a nivel macro, ya e vistos muchos vídeos y e leído mucho y no consigo la solución que busco tengo este formulario, me funciona muy bien pero quiero colocarle el PasswordChar = "*" y no doy con esa solución Private Sub LOGS_Click() CLAVE_LOGS = InputBox("EXCRIBA SU CLAVE") If CLAVE_LOGS = "w21052014r" Then Sheets("LOGS").Visible = True Sheets("LOGS").Select Else MsgBox ("CLAVE INCORRECTA!!!") Sheets("portada").Select End If End Sub si hay alguien que me ayuda por favor

Buena tarde Tengo un problema con una macro, es justo en el renglon marcado donde me indica el error. Por favor su ayuda. Sub Test() numhoj = InputBox("¿Cuántas filas desea insertar?", "Insertar filas") If Not IsNumeric(numhoj) Then Exit Sub Rows("16:16").Copy Rows("16:" & 15 + numhoj).Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=x1PasteFormulates Selection.ClearContents Application.CutCopyMode = False End Sub

Buenas tardes a todos. En esta macro: Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8 Public Const MOUSEEVENTF_RIGHTUP As Long = &H10 Sub ABRIR_IE() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.paginaweb.html" While IE.Busy DoEvents Wend IE.Visible = True DoEvents …

Como les va ? yo necesitando de su ayuda con pasar algunos datos de un PDF a Excel, anexo dos archivos. Uno el PDF y una muestra de que datos necesito extraer, claro si se pudiera extraer todo el PDF seria mejor. Y Gracias por el favor. IDSE_Lote_198268597.zip

Estimados Maestros de este foro quisiera por favor preguntar si alguien tiene conocimiento del porque ya no se puede abrir documentos pdf en formulario, tengo algunas aplicaciones creadas en vbproject de excel y visual basis y en ninguna me deja abrir pdf en formulario

Hola a todos, Actualmente, tengo la siguiente macro: Sub Macro1() Dim i, ultima As Integer ultima = ThisWorkbook.Sheets.Count For i = 1 To ultima ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\RootCapital\Desktop\Test Reports\ " & i & ".pdf" _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, From:=i, To:=i, OpenAfterPublish:=False Next i End Sub Esta genera automáticamente un pdf para cada tab en mi documento de Excel, los pdf son nombrados 1, 2, 3, 4, etc. Cada pdf incluye sólo la primera hoja de impresión de cada tab, aún cuando algunas contienen 2 o 3 hojas de impresión e…

Con Botón: BUSCAR CLIENTE al dar doble Clic, se registran en Hoja PEDIDOS Con Botón: BUSCAR ARTICULO al dar doble Clic, se registran en Hoja PEDIDOS En Hoja: PEDIDOS al dar Clic en Botón “Guardar e Imprimir “ se Borran las Fórmulas de Columnas B,D,E,G En Hoja Registro las 3 primeras Columnas: FECHA, CONSECUTIVO y CLIENTE se registran mayor número de veces Favor colaborarme PEDIDOS.rar

Buenas tardes. Tengo una macro que crea hojas copiando una ya existente, y yo quiero que cuando se creen estas nuevas hojas le salga un cuadro o algo al usuario para que escriba el nombre que quiere. Ejemplo: Tengo: HojaBase, HojaGeneradora En la HojaBase está la macro que crea nuevas hojas copiando HojaGeneradora y los nombres de estas nuevas hojas por defecto son asi: HojaGeneradora (2), HojaGeneradora (3), etc. Entonces yo quiero que cuando se cliquee en la macro para crear una nueva hoja, en lugar de que excel la renombre como HojaGeneradora (número), se le pida al usuario el nombre que quiera que tenga. ¿Es eso posible? Graci…

Hola a todos, por favor si alguien me puede ayudar con esta macro para que los datos que copia se peguen como valores,ya que actualmente copia con todo y formula el contenido de la celda F7. Sub completa() 'Rellena la columna F hasta la ultima fila con datos de la columna E 'Se detecta la última fila con uf = Range("E10").End(xlDown).Row 'desde donde inicia 'Se detecta el rango a rellenar rango = Range(Cells(10, 6), Cells(uf, 6)).Address 'Luego se Rellena el rango con el contenido de la celda F7 Range("F7").Copy Range(rango) 'es desde donde se autocompletara End Sub Grac…

Buenos días a todos, a ver si alguien me puede ayudar en este asunto, a ver si soy capaz de explicarme. Queremos hacer una hoja de Excel para usarla como base de datos y controlar periodos de contratación de personal. Esta hoja consta de 2 pestañas. En la primera pestaña se encuentran los datos a tratar y en la segunda donde se trasladan los datos. Necesito que se busque en bucle en la hoja 1 el número de la columna A "id" y lo busque en la columna A de la hoja2 y.. -Si lo encuentra que pegue los datos de su misma fila que se encuentran en las columnas E y F que son fechas de inicio y final de contrato en la hoja 2 en las primeras celdas contiguas va…

Hola Compañeros por favor Me ayudan con este error Lo que pasa es cree una plantilla que esta protegida y todo lo que pego de un excel de una antigua version queda protegido ayuda que propria hacer una macro para que siempre pege en valores no se Gracias Pegado.rar

Buenas tardes, mi actual tabla es de la siguiente forma: Mi actual macro hace que quede de la siguiente forma: Mi consulta es la siguiente: ¿como puedo modificar el código que tengo cuando me aparece de la siguiente manera? Y que me quede algo así: Agradecimiento a [uSER=113842]@johnmpl[/uSER] por el apoyo brindado anteriormente. Libro2.xls

Hola buenos días, como verán soy nuevo en el foro y esta es mi primer pregunta, tengo una duda con respecto a un macro, he está investigando y por más que intento no me sale, estoy haciendo un archivo donde necesito que recorra los valores de las columnas O14:V313 una fila hacia abajo si es que en la celda correspondiente de la columna AP hay un número 1, y que después haga lo mismo pero con las columnas W14:AD313y ahora tomando en cuenta la columna AQ si hay un número 1, ya lo intente copiando los datos en otras celdas y después aplicando el filtro y después pegándolos pero me los pega de corrido, es decir, no me respeta el filtro. Para que quede un poco más claro toman…

Hola a todos. Con la siguiente problemática en el adjunto se encuentra una relación con indices de inflación. las cuales necesito para todos mis archivos, ya que son indices que utilizo con mucha frecuencia. Ya que siempre necesito el indice de determinado año y de determinado mes. Esto lo determino con la función buscarv hasta ahora, pero ahora este archivo va a estar disponible para muchas personas las cuales muchas manejan el excel a nivel básico. Lo que necesito es mediante un listbox en un userform me muestre los indices y también un botón para que el indice seleccionado me lo pega en cualquier celda. Espero haber sido claro de antemano muchas gracias. Indices_…

Buenas a todos. Estoy intentando aplicar formato condicional a un rango de celdas que cumplan con una fórmula. El formato que quiero aplicar quiero copiarlo de otra celda, pero el objeto no me deja pegar de esa forma. Alguna idea? With Range(A2:A6).FormatConditions.Add(xlExpression, , "Formula1") Range("C3").Copy .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End With Modificar cada parámetro a mano si que me deja, pero querría que pillara el formato completo de la celda, para no tener que meter todas las opciones. (Pongo sólo 3 en el ejemplo) With Range("A1:A5").FormatC…

Estimados, la consulta es la siguiente: tengo este vinculo en A1 ='C:\Users\Usuario\Cursos\1º AÑO TT\[LENGUA_Y_LITERAT_1º_TT.xlsm]Hoja1'!D10. Lo que necesito es que cuando pegue la formula en otra celda le pueda cambiar solo la parte de la celda donde esta el dato, en este caso seria "D10", es decir poder modificar D10 por la letra y numero que yo quiera por ej. P13. y que me pegue la formula donde yo quiera. Bueno no se si se entendió bien pero esa es la idea mas o menos.

Saludos amigos del foro Me gustaría saber si se pueda hacer que una imagen vectorial se pueda pegar en un archivo paint, ya sea que este cerrado o abierto Subo un archivo ejemplo para continuar el código. al abrir el archivo por favor dar click en el boton naranja, la imagen que se vea en la hoja1 es la que quiero enviar al paint Gracias por la ayuda que puedan darme Enviar a paint.xlsm

Saludos amigos del foro,este código pega un rango de excel en Mi archivo Word que esta cerrado, luego lo abre y lo muestra. Alli verifico que ha pegado bien. Private Sub CommandButton1_Click() Hoja8.Range("A1:H32").Select Selection.CopyPicture xlScreen, xlPicture Archivo = ThisWorkbook.Path & "\Microbiologia I.docx" With CreateObject("word.application") Selection.CopyPicture xlScreen, xlPicture .Documents.Open Archivo .Selection.Paste .ActiveDocument.SaveAs (Archivo) .Visible = True .Activate End With End Sub Pero que tal si al querer pegar el archivo mencionado ya esta abierto??? El …

hola estimados foreros, ojalá puedan ayudarme por favor, necesito una macro para obtener la serie_inicio y la serie_final de registros que están duplicados (Columna A), les adjunto archivo de ejemplo con los datos y que lleva en columna D, E el cómo debería quedar la solución final. Desde ya, les agradezco cualquier ayuda foreros. ayudaexcel_series.xlsx

Hola que tal, tengo un proyecto en el cual necesito de vuestra ayuda. tengo un formulario con un listbox, campos de texto y botones para agregar registros, eliminar y editar. preciso de vuestra ayuda porque no consigo pegar los datos de un nuevo registro a la hoja de presupuesto, si lo hace en la tabla donde estan todos los registros grabados. me explico a continuacion: en el listbox llamado "Lista" al cargar el formulario se carga todos los registros que se encuentran en la tabla Viajes de la hoja "Dia" si quiero registrar una nueva fila o registro pincho en el boton Registrar del formulario , relleno las cajas de texto y al pinchar el boton "Agre…

Hola; De antemano les agradezco la ayuda que me puedan dar con este caso que tengo. El archivo que estoy trabajando se compone de 2 hojas, la primera que es la base de datos del sistema ("DATA") que incluye toda la información, y en la segunda es donde trabajo el reporte ("Reporte") que debo presentar, en la que se resume toda la información del mes. Lo que necesito hacer es que una vez montado el reporte ("Reporte") se haga una copia de esta hoja y se eliminen todas las formulas "SUMAR.SI" y "SUMAR.SI.CONJUNTO" de esta nueva hoja dejando los valores actuales de dichas formulas y también dejar las formulas de "SUMA" activas, tal como se muestra en la hoja "Reporte (2…

Hola a todos, Llevo mucho intentando lo siguiente, pero siempre me topo con el problema de crear libros cuando no existen. Tengo diariamente que copiar valores de múltiples archivos planos *.CSV en una plantilla de excel. No se como hacer que por cada archivo *.CSV copie valores y pegue en la plantilla única generando luego un libro y así sucesivamente con cada CSV. Mañana adjuntare ambos ejemplos. Plantilla y csv . No se por donde empezar. Gracias adjunto ejemplos, les he incluido la extension .xls para que me deje subirlos , pero las extensiones son CSV y xltx inacal_Glo_ 1.csv.xls Seguimiento_caja_alternativa.xltx.xls

Buenos días Solicito de su ayuda de favor con este tema, espero me puedan ayudar. En este Ejemplo La Cedula 1 tiene dos cuentas, pero es un dato variable ya que puede ser desde una cuenta hasta 50 quisiera hacer un ciclo que coloque las cuentas capturadas en la hoja “Base_V21” correspondientes por “Cedula” como se muestra en el ejemplo (Hoja Cedula) El archivo lleva un consecutivo pongo un ejemplo en la hoja “Base_V21” como podría venir mi archivo, cada Cedula (Cedula1, Cedula2, Cedula3) es un archivo que se genera en pdf Dentro de la macro hay un código que hice, pero solo me lo hace con un registro De antemano agradezco su apoyo …

Hola a todos, mi nombre es Maurizio Y mi problema es este. Realmente espero que me puedas ayudar, porque perdí toda esperanza de éxito. El problema es este. Estoy tratando de poner el nombre de usuario y la contraseña en una página preestablecida; Tomando el nombre de usuario de la celda Tengo la columna (B2) y la Contraseña los datos que inserto en la columna (C2) Ahora, con respecto a la apertura de la página de Internet que quiero, no hay problema, este concepto es excelente y funciona muy bien. El problema surge cuando quiero insertar siempre en la página web el nombre de usuario y la contraseña precargados por la celda (B2) (C2) ¿Cómo puedo resolver est…

Hola. Estoy haciendo mis primeros pinitos con esto de las macros y necesito vuestra ayuda. El archivo que adjunto es una simple tabla que refleja lo que aporta cada jugador semanalmente (filas pares a partir de B4) y lo que le corresponde a cada uno cuando hay premio (filas impares a partir de B4). Mediante macro (sacada de este foro y adaptada) he conseguido mediante los botones Ocultar y Mostrar hacer eso con las filas impares, que como son celdas calculadas no tienen por qué estar visibles siempre. Con otras 2 macros oculto y muestro las filas y columnas que no tienen ningún tipo de dato. Pero necesito vuestra ayuda porque pretendo que cuando introduzca todos los …