Hola buenas noches a todos y gracias de ante mano a la ayuda que me puedan dar tengo un libro en excel con macros de un sistema de ventas con ayuda de un amigo lo fui terminando el tema es que tengo varios botones con macro que me llevan a siertas hojas explico con el codigo Sub ARCHIVOS_IR() Hoja3.Activate End Sub ese es el codigo de uno de los botones los otros sin similares bueno lo que nesecito es agregarle a este codigo uno que tenga contraseña para cuando hacen clic en ese boton le pida una contraseña porque son hojas que solo yo puedo ver y modificar si alguien sabe como hacerlo o si me pueden dar alguna ayuda con una buena y larga explicaicon de como se hac…

Buenas, me encuentro con el siguiente problema. Resulta que a veces, al abrir un documento, no me aparece el mensaje de activar macros. El problema es que tengo un excel de empresa, y parece que tiene bloqueado las ·"macro settings" por lo que me aparecen en gris clarito y no puedo activarlas manualmente. Así que las veces que no me aparece el mensaje al abrir, no puedo activarlo manualmente y por tanto no puedo trabajar con el archivo. Mi pregunta es, existe alguna forma de poder activar las macros de otro modo. Quizás creando un botón que pueda pulsar en cualquier momento o algo así... Saludos y gracias!

Buenas noche, expertos necesito una yuda tengo un formulario que funciona bien, pero el detalle es cuando la hoja socios esta vacia solo con los encabezados y registro los datos con el formulario se debe agregar en la fila 2 pero este se registra en la tercera fila, solo eso de ahi adelante segistra una tras otra, lo que pido ayuda es que empiece registrar desde la fila 2. El otro tema es al momento de filtrar con la caja de texto buscar por apellidos me filtra bien pero cuando selecciono la casilla no funciona, pero si selecciono la casilla sin filtrar me selecciona la fila del ListView y los datos me muestran en los campos de texto. Por favor me podrian ayudar que…

Buenos días a todos, veréis tengo una macro que me han dejado, que funciona correctamente, pero esta realizada de forma manual para 24 casillas y la necesitan para 300 casillas, con lo que realizar esto manualmente resulta un engorro. Os cuento como funciona la macro (pestaña Secuencia): En la casilla B11 se introduce el primer número, una vez introducido, automáticamente rellena las casilla D11, E11 y F11 con datos que recoge de la pestaña Color DB. Se rellenan el resto de casillas de la columna B hasta la B35. Una vez rellenados, se selecciona la opción secuencia y aquí es donde empieza todo. Lo que hace es mirar los valores de la fila 11 y los compara con todos lo…

Buenos dias, Les comento Tengo una matriz en la solapa uno (doble) en la cual marco con una X cirtos valores [ATTACH]39126.vB[/ATTACH] la idea es crear una macro con el la solapa dos me muestre en la una fila y columna o 2 los datos que estan marcados con X y que si marco algun nuevo campo corra la macro automaticamente y lo muestre si es posible la idea quedaria asi [ATTACH]39127.vB[/ATTACH] Agradecería que me den una mano con el macro.

Estimados: Desde ya gracias por su ayuda. Les explico un poco lo que debo hacer: Recibo documentos, los cuales tienen un numero de cuenta el que debo ingresar (llámese previsación). Luego, ese documento va a otro proceso interno, y puede que vuelva hacia mi nuevamente(llámese liquidación). La cosa es que cuando previso y guardo los datos, estos se guardan en otra planilla con fecha y hora. Sin embargo, si recibo nuevamente el documento con un número de cuenta ya guardado en previsación, este al guardarlo nuevamente no se guarda con la fecha actual. Entonces necesito por favor, en esta macro (que me ayudaron a crear) lo siguiente: -Si es que es pos…

Buenas tardes. Necesito cargar estos CheckBox en una tabla pero solo si están "check". De no ser así la celda debería quedar vacía. Se entiende? Desde ya muchas gracias por cualquier ayuda o aporte. .Cells(NuevaFila, 33).Value = Me.Comp35.Caption .Cells(NuevaFila, 34).Value = Me.Comp85.Caption .Cells(NuevaFila, 35).Value = Me.Comp205.Caption .Cells(NuevaFila, 36).Value = Me.Comp206.Caption .Cells(NuevaFila, 37).Value = Me.Comp207.Caption .Cells(NuevaFila, 38).Value = Me.Comp329.Caption

Buenas tardes! Tengo el siguiente código: Private Sub btnCargaBancos_Click() Dim TasaCompra, TasaVenta As Double Dim InvBanesco, InvVzla, MontoBanesco, MontoVzla As Double Dim TasaDiaBan, TasaDiaVzla, TasaActual As Double 'Inversion = Val(txtInversion.Text) InvBanesco = Val(CDbl(txtInverBanesco.Text)) InvVzla = Val(CDbl(txtInverVzla.Text)) TasaCompra = Val(CDbl(txtTasaCompra.Text)) TasaVenta = Val(CDbl(txtTasaVenta.Text)) MontoBanesco = (InvBanesco / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) MontoVzla = (InvVzla / TasaCompra) * (1 - 0.18 / 100) * (TasaVenta * (1 - 0.18 / 100)) TasaDiaBan = (MontoBanes…

Buena noche tengo un formulario que tiene un combobox de cual debo elegir un codigo y esta accion me debe llenar los campos del formulario con la linea de datos correspondiente al codigo seleccionado. agradezco la ayuda Marco ejemplo1.xls

Hola, necesito de su ayuda, resulta que debo imprimir un formulario, pero antes que se imprima, se debe crear una copia de este en formato pdf y en una ubicacion especifica, esto es por si la impresora falla, favor ayudar, gracias

Qué tal, tengo problemas realizando el copiado y pegado de una columna(libro1 | Columna G) a otra columna ( libro2 | Columna O), quiero que se pegue en la última fila disponible de la columna O. Esta es mi macro: Private Sub CopiarColumna(Archivo As String) Dim Lcopia As Workbook Dim LDestino As Workbook Dim Destino As Worksheet Set LDestino = ActiveWorkbook Set Destino = ActiveSheet Set Lcopia = Workbooks.Open(Archivo) Sheets(“ReporteCifrasControl”).Range(“G2”& Sheets(1).Range(“G” & Rows.Count).End(xlUp).row).Copy Destino.Range(“O” & Destino.Range(“O” & Rows.Count).End(xlUp).row + 1).PasteSp…

BUENOS DIAS, TRATO DE HACER UNA CONSULTA PARA EXTRAER LOS DATOS DE ACCES CON UNAS CONDICIONES Y ME APARECE ERROR Dim Sql Sql = "SELECT Id, NOMBRE, PRECIO, IMAGEN FROM PRODUCTOS WHERE EMPLEADO =" & Label1.Caption & " AND SUSPENDIDO = 0 ORDER BY NOMBRE" Call Conecta 'Crea la conexion Set Rs = New ADODB.Recordset Rs.Open Sql, miConexion, adOpenKeyset, adLockOptimistic -------Aqui es donde me sale el error No coinciden los tipos de datos en la expresion de criterios

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…

Necesito crear una macro que copie el valor númerico de una celda de referencia incrementandolo en una unidad y que al mismo tiempo actualice la celda de referencia situandose para finalizar en la celda de origen. Ejemplo: si estoy situado el la celda (I8) necesito que copie el valor de la celda (I1) = 6 incrementandolo en una unidad. (I8) = 7. Actualizando el valor de la celda de referencia (I1) = 7 y finalizando su posicion en la celda de origen (I8)

Buenas amigos foristas Tengo una macro la cual toma los datos de una hoja y con eso se llena una base de datos de una aplicacion que tenemos, en la actualidad coloco For i = 4 To 8 session.findById("wnd[1]/usr/cmbRF02D-KTOKD").Key = objSheet.Cells(i, 35) session.findById("wnd[1]/usr/ctxtRF02D-BUKRS").Text = objSheet.Cells(i, 36) Next i Lo que deseo es que en la macro si existe informacion en la fila siguiente ejecuta el proceso sino pare Agrdezco su colaboracion Fernando Trujillo

AMIG@S, Agradeceré sus apoyos para solucionar con problemita en excel vba, les comento: Estoy tratando de automatizar una tarea, se trata registro de evaluaciones de check list de calidad en atención. He adjunto una replica del trabajo con los datos minimos por tema de capacidad. El formulario tiene un frame donde se ingresaran los datos del empleado mediante cajas de texto, tambien un multipages con 2 paginas (1 atributo por pagina), dentro de estas paginas existen 3 criterios de evaluación (label) y cada uno con 3 resultados (SI - NO - N.A.) estos últimos son optionbutton. En el archivo original tiene 4 multipage c/u con 4 a 5 paginas he avanzado gran parte del mini…

Hola. He escrito un Macro en un libro de Excel para que traiga información desde otro archivo de Excel, (ambos .xls), pero el código sólo trae 16.383 filas y las demás las borra. ¿Puede haber un máximo para este tipo de código?¿Por cuál lo puedo reemplazar para que no tenga este problema?. Transcribo el código que hace la conexión y trae los registros: 'crea la conexión Set Conn = New ADODB.Connection Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source= C:\Users\Proyecto\gestion.xls;" & _ "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1;""" 'crea el recordset Set rs = New ADODB.Recordset 'Selecciona lo…

hola buen dia. quisiera ayuda en este proyecto para guardar datos en rangos diferentes de celdas y que al guardar los coloque al inicio de la base datos y no al ultimo como lo hace ahora esta es la macro Sub GUARDAR_DATOS() Dim NombreHoja As String Dim HojaDestino As Range Dim NuevaFila As Integer Dim FilasFactura As Integer Dim i As Integer …

Hola grupo recurro a ustedes para la ayuda para completar un Macro Tengo este macro que me valida desde Excel si un dato ya existe en la base de datos de ACCESS. Set Rs = New ADODB.Recordset Sql = "SELECT Count(*) FROM a_revisiones WHERE [cedula]='" & .Range("J2") & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Datos = Rs.GetRows If Datos(0, 0) > 0 Then MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "Sistema" Else Nombre de base de datos en Access "a_revisiones", campos "cedula, nombre y estado" Me funciona bien cuando solo solo requiero ingresar un registro igual en cedula, cuando debo registrar más datos me…

Hola compañeros. Esta es mi primera consulta. Me presento, mi nombre es Jose. Necesito vuestra ayuda ya que estoy estancado en un proyecto y no se solucionarlo. Tengo un formulario, al que accede pulsando un botón colocado en la hoja 1, en el que hay un InkEdit/Textbox. La cuestión es que ese InkEdit/TextBox contiene bastante texto, motivo por el que le he añadido una barra de desplazamiento vertical. El problema es que, al pulsar el botón imprimir (que permite imprimir o guardar en pdf) tan solo se imprime la parte visible en la pantalla. Lo que no soy capaz de conseguir es imprimir todo el texto, tanto el que se ve en pantalla, como el que se ve al …

Buen día. Estoy buscando ayuda para el siguiente macro: Si en el rango B13:L24 (Son casillas combinadas) no se tiene nada de texto. ocultar el rango B11:L24

buenas estoy teniendo problemas con el codigo en los siguientes aspectos no hay problema en mostrar el nombre pero no logro hacerlo desde la la hoja 2 teniendo los datos en la hoja 1. a la hora de seleccionar el codigo luego la ubicacion y luego al intentar cambiar el codigo me salta error 13 me gustaria saber como se hace para que al presionar siguiente el codigo salte a la siguiente linea, es decir se selecciono el codigo 3 y al presionar siguiente debe salir el numero 4 no se si me doy a entender espero que si buscar con conbobox.rar

Macro para copiar ciertos datos a otra hoja Hola! Estoy intentando hacer un formato de ordenes de compra, en el cual se va registrando cada una de las órdenes y lo que quiero lograr es que también se registren los materiales comprados en cada orden. Mi archivo consta de 5 hojas, en la primera "Indice" es en la hoja que se va llevando el registro de las ordenes elaboradas, la segunda "OC" es la orden de compra, la tercera y la cuarta son bases de datos de proveedores y obras, para facilitar su manejo en la OC y la última es donde quiero que se vaya llevando el registro de los materiales. Se me ha dificultado debido a lo siguiente, puedo copiar los materiales en la hoja…

Hola , Adjunto un archivo sencillo( el original tiene miles de lineas). He buscado pero no entiendo algunas lineas de codigo , como para poder replicarlas en mi archivo. Son dos cosas las que necesito realizar. 1)ordenar alfabeticamente los nombres de los equipos 2) eliminar las filas que dicen "NO" en la columna de visita Desde ya muchas gracias por su ayuda! Saludos Codigo Torneo.xlsm

como puedo cambiarle la linea a este codigo que en vez de colorear me bordee la celda Sub Macro1() ' ' Macro1 Macro ' ' Sheets("hoja1").Select With ActiveWorkbook.Sheets("programa4cifras").Tab .color = 255 .TintAndShade = 0 End With Sheets("hoja2").Select With ActiveWorkbook.Sheets("hoja2").Tab .ThemeColor = xlThemeColorAccent6 .TintAndShade = -0.249977111117893 End With Sheets("hoja3").Select With ActiveWorkbook.Sheets("hoja3").Tab .ThemeColor = xlThemeColorAccent1 .TintAndShade = -0.249977435298762 End With Sheets("hoja4").Select With ActiveWorkbook.Sheets("hoja4").Tab …