Buenas tardes solicito su ayuda con lo siguiente: tengo una base de datos de access con dos campos: costo 1 y costo 2, lo que quiero es hacer una consulta para que busque determinado registro de la tabla y los pueda sumar desde excel. saludos

HOLA, SOY NUEVO EN ESTO DE LA PROGRAMACION VBA, NECESITO ME AYUDEN CON UNA MACRO QUE OCULTE LAS COLUMNAS SELECCIONADAS SEGUN LA CASILLA DE VERIFICACION QUE SELECCIONO, POR EJEMPLO SI SELECCIONO LAS CASILLA 1 ME MUESTRE SOLO LA COLUMNA "C" SI LA DELECCIONO ME MUESTRE TODAS LAS COLUMNAS , SI SELECCIONO LA CASILLA 2 ME MUESTRE SOLO LA COLUMNA "H" AL DELECCIONAR ME MUESTRE TODAS LAS COLUMNAS , SI SELECCIONO LA CASILLA 3 ME MUESTRE LA COLUMNA "F" AL DELECCIONAR ME MUESTRE TODAS LAS COLUMNAS, PERO SI TENGO SELECCIONADO LAS CASILLAS 1 Y 2 ME MUESTRE LAS COLUMNAS C"" Y "H", Y ASI CON TODAS LAS COMBINACIONES POSIBLES..................................LES AGRADEZCO DE ANTEMANO POR…

Buenas noches: Necesito abrir una hoja de excel determinada de un libro a través de Visual Basic. He utilizado esta instrucción pero no me abre nada... Private Sub CommandButton1_Click() ALTA.Hide Workbooks.Open ("C:\users\susan\desktop\menores.xlsm") Sheets("Hoja2").Select End Sub Alguien me puede echar una mano? Gracias!

Hola, Me gustaria que me ayudaran. Tengo esta macro de Ron de Bruin, que coge cada hoja de un libro y crea un libro nuevo con cada una de ellas sin formulas, me gustaria que hiciera lo mismo pero en un solo libro. Sub Copy_Every_Sheet_To_New_Workbook()[color=#000000]'Working in 97-2010[/color] Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim sh As Worksheet Dim DateString As String Dim FolderName As String With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With [color=#000000]'Copy every sheet from the workbook with …

Buenos días familia: Después de intentar hacerlo por mi cuenta y buscar en el foro no encontré la respuesta a una pregunta que posiblemente sea sencilla. Quisiera saber: ¿Cómo escribir en las celdas de la columna "Principal!B:B" el valor del salario que se encuentra en la celda "Configuración!C5" al iniciar una semana en el día que se informa en la celda "Configuración!C4"? ¿Cómo agrego el número que sigue en la columna "'Registro de Movimientos'!A:A" en caso de que la celda de la columna "'Registro de Movimientos'!B:B" no esté vacía? ¿Cómo agrego la palabra "No" en la columna "'Registro de Movimientos'!J:J" en caso de que la celda de la colu…

Hola, Lei varios que se le parecen... pero no de esta manera... Yo nunca he programado macros... pero vi una vez uno en accion, era uno que generaba una hoja con solo pulsar un boton y copiaba tal cual una plantilla y como nombre ponia la fecha de ese dia. Pues algo asi quisiera lograr, pero yo genero formatos, y me gustaria que lo hiciera automaticamente, renombrando la hoja con el numero consecutivo de ese formato. Mas o menos? Adjunto archivo, en el, en la primera hoja estan los detalles mas importantes de los formatos que se van generando, con la informacion que se da de alta en esa hoja, se generara la hoja PNC1, y asi debe ser la plantilla o los demas formatos q…

Buenas a todos. Estoy intentando algo que me parece muy básico pero no doy con ello. Quiero crear una macro que llame al botón BUSCAR o lo que es lo mismo Control-B, para luego invocar esto desde un botón que me cree en mi hoja de cálculo. El problema es que activo la grabadora de macros e intento hacer la secuencia anterior y resulta que durante la grabacion no guarda nada. ¿Sabeis como se puede llamar a esta opción de menú desde una macro? Gracias de antemano. Juan.

Hola soy completamente nuevo en esto del excel y tengo una inquietud, con un x sistema genero varios archivos en excel los cuales me gustaria poder insertarlos en un solo archivo igual de excel pero en varias hojas con ayuda de una macro alguien cree poderme ayudar con esto. De antemano gracias por la ayuda que me puedan brindar. saludos Leo

Que tal buenas tardes o dias he estado trabajando en un macros para dividir gastos que se realizan a meses sin intereses ya pude crear el calculo para que coloco la cantidad coloco el plazo coloco los intereses y me divide la cantidad en el munero de plazos multiplicado por los intereses ahora lo que no he podido hacer tengo dos mensajes el nombre de la tarjeta (nombre de la tarjeta de un banco digamos American Express) el nombre de a quien pertedece (nombre de la persona dueña digamos yo o mi esposa) quisiera que esos datos se repitan en las columnas G y H solo habia podido hacer que se colocaran en las primeras celdas pero no que se repitan en la misma c…

Buenas tardes, Tengo una data extensa que resumí para efectos del ejemplo que aquí anexo. Sucede que no se si existe alguna manera (ya sea macro u otras funciones) de ordenar esos datos de forma diferente, o sea... que los mismos se puedan mostrar con más claridad... organizar.xlsx

Saludos, Necesito una macro que pueda utilizar en excel 2010, explico el tema: [TABLE] [TR] [TD]si(A2) tiene la fecha enero pegue los valores de la columna C (C2:C1048576) en la columna H (H2:H1048576) [/TD] [/TR] [TR] [TD]si(A2) tiene la fecha febrero pegue los valores de la columna C (C2:C1048576) en la columna I (I2:I1048576) [/TD] [/TR] [TR] [TD]si(A2) tiene la fecha marzo pegue los valores de la columna C (C2:C1048576) en la columna J (J2:J1048576) [/TD] [/TR] [TR] [TD]si(A2) tiene la fecha abril pegue los valores de la columna C (C2:C1048576) en la columna K (K2:K1048576) [/TD] [/TR] [TR] [TD]y asi sucesivamente, hasta llegar a diciembre [/T…

Muy buenos dias todos..... Me inscribi a este foro por la necesidad que tengo con lo programacion en excel con macros y BV y me parece muy interesante, se que aqui me van ayudar Mi siguiente inconveniente es: tengo un libro excel el cual cuenta con 7 hojas, donde necesito gurdar una hoja especifica en una direccion variable el cual me gustaria yo especificar al momento de guardarla y necesito que esta hoja se guarde con la fecha que presenta mi sistema (mi ordenador), esto por medio de un boton de formulario o un boton de control

Buenas Noches Varios compañeros en el trabajo queremos hacer un Fondo para que se pueda ahorrar y se puedan realizar prestamos con los mismo ahorros. me gustaría saber si hay alguna forma de tener bien ordenados los clientes que ahorran y piden prestamos, así mismo poder ingresar nuevos clientes y poder sacar totales por personas. Les agradezco mucho en lo que me puedan ayudar.

buenas, estoy tratando de reducir el tamaño del siguiente código If InStr(1, c, "Out") Or InStr(1, c, "out") Then c.Value = "NS" Else c.Value = c.Value If InStr(1, c.Offset(0, 1), "Out") Or InStr(1, c.Offset(0, 1), "out") Then c.Offset(0, 1).Value = "NS" Else c.Offset(0, 1).Value = c.Offset(0, 1).Value If InStr(1, c.Offset(0, 2), "Out") Or InStr(1, c.Offset(0, 2), "out") Then c.Offset(0, 2).Value = "NS" Else c.Offset(0, 2).Value = c.Offset(0, 2).Value If InStr(1, c.Offset(0, 3), "Out") Or InStr(1, c.Offset(0, 3), "out") Then c.Offset(0, 3).Value = "NS" Else c.Offset(0, 3).Value = c.Offset(0, 3).Value básicamente es reemplazar texto de una ce…

Cordial saludo, y agradecimiento de antemano por su ayuda. Tengo el siguiente código para imprimir varias hojas desde un Form, pero presenta error : ' error 21470224773 (8007007b) Option Explicit Private Sub CBRegistro_Click() Dim b As Boolean Dim Ruta As String Dim Nombre As String Dim paso2 As Boolean Nombre = UCase(InputBox("IMPRIMIR INFORME - ID DE ACCESO - Guardar una copia de los Registros de la Prueba ejecutada")) paso2 = False Select Case Nombre Case "PRIMERO" If UCase(InputBox("Introduce tu clave de acceso")) = "PRIMERO2020*" Then paso2 = True Case "CLAVEDOS" If UCase(InputBox("Introduce tu clave de acceso…

Buenas tardes!!! Soy nuevo por aquí asi que ya os doy las gracias por adelantado. Estoy teniendo un problema al copiar y pegar una celda con Hipervínculo a traves de macros. Tengo una macro que ejecuta un copy / paste de varias deldas de una hoja a otra hoja, pero no consigo que me respete el hipervínculo Tengo el vínculo en la celda "B15" de la hoja "BCR" que quiero copiar en la celda "G127" de la hoja "FILM". Actualmente el hipervínculo lo tengo con Anchor text "Web" o "FTP" , pero me daría igual mostrar toda la dirección web si es más sencillo. Mil gracias por la ayuda!

Buen día Señores del Foro Tengo una planilla, la cual ejecutando un botón, me oculta o me muestra las pestañas de las hojas de la planilla en cuestión. Quisiera que ese boton al cual le nombre "Boton del Administrador", que cuando otro usuario lo quiera ejecutar, le sea solicitada una contraseña. Si alguien me puede dar una mano en este tema, desde ya agradecido... adjunto planilla PonerContraseñaBoton.xlsm

Buenas tardes, Necesito que alguien me ayude a generar una macro en la que si cumple dos condiciones me dé un texto en otra celda. Pongo un ejemplo, Una condición es que del dato que hay en la celda A1 (04E100011EF) compruebe el “1000” y la otra condición es que del dato que hay en la celda B1 (2497 Prueba macro) compruebe la palabra “prueba” y si cumple esas dos condiciones me ponga “correcto” en la celda C1 y si no cumple esas condiciones ponga lo que pone en la celda B1. Gracias. Un saludo

Hola a todos! Mi problema es que he realizado una macro para una planilla de cheques. El tema es que en esa planilla todas las columnas tienen autofiltro (Fecha_Vencimiento, Banco, titular, etc). Yo necesito contar y sumar los distinto datos que se agregan en cada celda pero a su ves debo poder procesarlo cuando un o varios autofiltros esten ectivados. Ahi es donde tengo el problema, la macro que realice me suma y cuenta siempre el total de datos y no me tiene en cuenta los autofiltros. He usado la funcion subtotal esa si me tiene en cuenta los autofiltros activados pero no se como realizar esos subtotales repetando las condiciones que necesito para cada caso. Estye e…

Buen día gente del foro, acá vengo con otra inquietud, quería saber si hay una forma (seguramente la hay) de hacer esto: tengo un rango horizontal de datos (BF4:BP4), necesito una macro para copiar los valores de dicho rango y pegarlo en otra hoja del mismo libro, hasta ahí para mi es facil, lo que no se como hacer es que quisiera que lo pegue en una fila concreta, que se determinará por el valor numérico que ingresemos en la celda (E16), osea, el número que ingresemos en (E16) sería el número de la fila donde quiero que pegue los valores del rango. Adjunto un ejemplo para que lo puedan interpretar mejor, si no soy claro háganmelo saber Desde ya muchas gracias …

Hola a tod@s. De antemano agradecer por su tiempo en el siguiente inconveniente que expongo. El inconveniente que tengo es que al aplicar el el código en el evento que dejare líneas abajo funciona correctamente, sin embargo cuando selecciono el rango de celdas B9:B18 y borro el contenido, sucede que de manera automática se colorea todo de color rojo en dicho rango. Como solucionarlo?, tomando en cuenta que es necesario que sea un evento. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Application.Intersect(Target, Range("B15")) Is Nothing Then If Not IsNumeric(Target.Value) Then …

estoy parado en una consulta de una tabla y volcar parte de esa información a unas celdas. Sub BASE_DE_DATOS() Dim datConnection As ADODB.Connection Dim recSet As ADODB.Recordset Dim strDB, strSQL As String Dim strTabla As String strDB = "C:\Users\****\Desktop\TRABAJO\INFORME DIARIO RETRASOS LPA.mdb": MsgBox " Usted esta conectado a la base de datos ", vbInformation, " Conectado " 'si en otra carpeta 'nombre de la tabla del archivo Access strTabla = "RETRASOS" 'crear la conexión Set datConnection = New ADODB.Connection Set recSet = New ADODB.Recordset datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source =" & strDB & ";" 'consu…

Estimados necesitaba hacer una función que entregue un valor de acuerdo a dos celdas y que luego de tener ese valor, en otra celda, busque en una columna si se repite el numero de una celda, después si se repite utilizar los valores de las columnas aledañas a las celdas en donde se encontraron igualdades para hacer un calculo de precio según el valor de estas. Primero estuve tratando sin macros pero no se me ocurrió como. Después me ayudaron con esta macro que realiza el calculo en una planilla pequeña, ahora cuando intente realizarlo en la planilla real no pude. Adjunto planilla Ejemplo y planilla Real con la macro no funcionando. Este es el macro que funciona en la pl…

tengo una aplicacion con 11 hojas(1 hoja de inicio con 10 botones quiero que al abrir la aplicacion solo se muestre la hoja de inicio 1 pero con todas las solapas ocultas inclusive la solapa de hoja inicio , como lo puedo hacer , mi thisworkbook puse: Hoja1.Visible = xlSheetVeryHidden Hoja2.Visible = xlSheetVeryHidden Hoja3.Visible = xlSheetVeryHidden Hoja4.Visible = xlSheetVeryHidden Hoja5.Visible = xlSheetVeryHidden Hoja6.Visible = xlSheetVeryHidden Hoja7.Visible = xlSheetVeryHidden Hoja8.Visible = xlSheetVeryHidden Hoja9.Visible = xlSheetVeryHidden Hoja10.Visible = xlSheetVeryHidden Hoja11.Visible = x…

Buenas tardes tengo la siguiente duda, tengo un formulario de tipo facturación, lo que desearia es que los datos que ingrese al formulario se almacenen en un libro diferente(1 libro especifico), gracias - - - - - Mensaje combinado - - - - - este es el codigo que usa para guardar en una hoja distinta, pero quisiera que lo hiciera en el libro resumen. Private Sub guardarFactura()Dim i As Integer, Fila As Long Sheets("facturas").Activate For i = 0 To Me.lstCantidad.ListCount - 1 Fila = Range("A" & Rows.Count).End(xlUp).Row + 1 Range("A" & Fila) = Me.txtNoFactura.Text Range("B" & Fila) = Me.txtFecha.Text Range("D" & Fila) = Me.txtRazon.…