leone

leone

Programacion ASP,PHP,VB6 - JavaScript,jQuery, SQL, PLSQL - Base de datos Oracle, MySql, SQLServer, Todo sobre Microsoft Excel, Electrónica
 23,6K puntos  Venezuela @leone desde - visto

Preguntas esperando respuesta

Actividad pública reciente

Ha respondido en

Necesito un macro para excel

Verifica la siguiente Macro de ejemplo que te hará lo que estas buscando. Sub GuardarArchivo() 'EXTRAE DE LA CELDA A1 EL NOMBRE DEL ARCHIVO NombreArchivo = Range("A1").Value 'cambialo por la celda que se desee 'GUARDA EL ARCHIVO EN C:\ ChDir "C:\"...
Ha preguntado en el tema en

Luz de testigo Fiat Code (Siena HLX 1.8 8v)

Hola expertos, Tengo un Fiat siena HLX 1.8 8v, al intentar encenderlo se enciende la luz de testigo del FiatCODE(carro con un candado) tengo que volver a pasar el suiche para que el testigo se apague y el carro encienda. Esta operacion tengo que...
Sin respuestas
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha respondido en

Ayuda con Fórmula

Debes usar la función SI y la función O, así: =SI(A1=0;0;SI(O(A1=1;A1=4;A1=7;A1=10);1;SI(O(A1=2;A1=5;A1=8;A1=11);2;SI(O(A1=3;A1=6;A1=9;A1=12);3;"NO ENCONTRADO")))) Coloca esta fórmula en la celda B1 y prueba los resultados
Ha respondido en

Traspaso de 0 en TextBox sin números

Puedes Solucionarlo colocando la función Val al momento de enviar el valor del textbox, así: Val(TextBox1. Value)
Ha respondido en

Mensaje de Advertencia

Me parece bien donde colcocaste para realizar la validación, prueba introduciendo el siguiente código en tu macro If Cells(1, 1).Value = "" Or Cells(1, 2).Value = "" Then MsgBox "Faltan Algnos Datos para realizar la Impresion", vbExclamation, "Faltan...
Ha respondido en

Buscar hojas que terminen en 'ac'

Puedes Validar el nombre de la hoja de la siguiente forma: If Right(Sheets(1).Name, 2) = "ac" Then 'Tus Calculos End If
Ha respondido en

Reiniciar macro automáticamente luego de deshabilitarl

Debes Cambiar el código de manera que valides la ejecución del código que ejecutas cada 5 segundos así: Private Sub Workbook_Open() Dim ComienzoSeg As Single Dim FinSeg As Single Dim R As Double R = 0 TIEMPO_ESP_MAX = 5 'ESTABLECES EL TIEMPO DE...
Ha respondido en

Validación formulario vs bbdd

Los pasos 3 y 4 lo puedes solucionar mediante lo siguiente: Paso3. tsql = "SELECT count(1) as CANTIDAD from tabla where usuario = '" & vnombre & "' and password = '" & vpassword & "'" rs.Open tsql, conn, 1, 1 USR_V=rs.FIELDS("CANTIDAD").VALUE...
Ha respondido en

Repetir macro periódicamente en excel

Te envío un código para ejecutar la acción que necesitas cada n segundos según lo establezcas. Ve al Editor de Visual Basic de Excel. (Menu->Herramientas->Macro->Editor de Visual Basic) ó simplemente oprime Alt + F11. Doble click en el Objeto...
Ha respondido en

Hacer funciones que tengan parámetros no obligados

Para colocar los parámetros opcinales debes colocar la palabra Optional, así: Function numero(Optional x As Range, Optional y As Range, Optional z As Range) End Function
Ha respondido en

Seleccionar columna

Colocalo el Case como "$AB", es decir solo los tres primeros caracteres.
Ha respondido en

Dividir procedimiento demasiado largo

No entiendo la pregunta de dividir el código. Esto es un evento que se ejecuta cada vez que en la hoja se cambia el valor de las celdas. Este evento no puede ser invocado con Call. Chequea y me avisas.
Ha respondido en

Macro con Enter

Prueba con el siguiente código, debes pegarlo en el editor de Visual basic de excel de la hoja1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Column = 1 And Cells(ActiveCell.Row - 1, 1).Value <> "" Then...
Ha respondido en

¿Cómo puedo hacer un bucle de CheckBox en Excel?

Asigna una sola macro al botón, solo debes validar el estado del checkbox. Sub Macro_Checbox1() ActiveSheet.Shapes("Check Box 1").Select Select Case Selection.Value Case xlOn Range("A1").Interior.Color = RGB(50, 50, 50) Case xlOff...

Mejores respuestas proporcionadas

1
1

Experiencia

Programacion ASP,PHP,VB6 - JavaScript,jQuery, SQL, PLSQL - Base de datos Oracle, MySql, SQLServer, Todo sobre Microsoft Excel, Electrónica.