Abraham Valencia

Abraham Valencia

Experto en ofimatica, desarrollador de aplicaciones en VB y VB
 123K puntos  Perú @avalenciape desde - visto

Respuestas

Respuesta en a

Archivo pesado de excel

Pues Excel NO tiene algo así como lo que mencionas en Access. Un "sobrepeso" del Excel, puede deberse a un exceso de formatos y/u objetos (sin dejar de lado corrupciones y/o similares): - Cantidad de tablas y/o gráficos dinámicos - Cantidas de...

Imperdir Impresion

Intenta usar el evento BeforPrint del libro, el que esta en el modulo "ThisWorkBook" (nombre por defecto) Abraham
Respuesta en a

Claves a hojas múltiples de excel

Sub XXX() Dim hoja As Worksheet For Each hoja In Worksheets hoja.Protect "clave" Next hoja End Sub Para quitarla protección, solo cambia Protect por Unprotect Abraham
Respuesta en a

Moverme por un libro realizando un acción

En el modulo de la hoja: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Worksheets("Hoja2").Activate End If End Sub Abraham
Respuesta en a

Formula dia.lab y dias.lab

Te falta activar el complemento "Herramientas para análisis" :) Abraham
Respuesta en a

Copiar un libro sin las macros

Pues si es posible, pero requiere algunas cosas no tan "comunes" de VBA: Enlace Abraham
Respuesta en a

Autofiltro en excel

Por aquí: Solución Abraham
Respuesta en a

Bucle for con controles de formulario?

Dim textboxcontrol As Control For Each textboxcontrol In Me.Controls If TypeOf textboxcontrol Is msforms.TextBox Then textboxcontrol.Enabled = True End If Next textboxcontrol Abraham
Respuesta en a

Barra de Menú

Pues suponiendo que te refieres a un userform de VBA, aquí un ejemplo: Ejemplo Abraham
Respuesta en a

Evento change en un rango de celdas.

En el modulo de la hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("A1:A10"), Target) Is Nothing Then MsgBox "Cambio en el rango A1:A10" End If End Sub Abraham

Suscríbete RSS