parmijo

En excel 2007 debes ir a la ficha programador -insertar - control de formulario - casilla de verificación Lo insertas en la hoja y luego lo seleccionar y con el botón derecho del mouse, seleccionar formato control - ficha control - Vincular con celda...

Supongo que hay otra solución pero se me ocurre mandar una combinación de teclas con el método Senkey SendKeys {%F11} Eso simula que presionas dichas teclas.

Suponiendo que ambas listas no tiene la extensión F110320000032884.PDF Prueba lo siguiente Sub Renombrar() Dim miruta As String Dim minombre As String Dim contador As Integer ' Considerando que los archivos de las facturas estan en la carpeta prueba...

Considerando que las fechas están el la col A y los numéricos en col B Valor maximo =indice(a:a;coincidir(max(b:b);b:b;0)) Valor Minimo=indice(a:a;coincidir(min(b:b);b:b;0)) Y le das formato de fecha

Quítale el espacio en blanco para que no asuma que ese espacio es texto =SI(A1>0;""; A1) Me avisas

Selecciona primero la opción DIVIDIR y acomoda las divisiones Lugo seleccionas la opción inmovilizar paneles

Seria algo así como si(y(a1>=1;a1<=3);"valor_cumple";"valor _otra_celda")

Se me ocurre definir una hoja con los usuarios y el nivel de acceso Usuario pass nivel Ppppa1 Y segun el nivel (capturado en una variable global) restringir el acceso ejemplo if nivel=1 then CommandButton1.enabled=true else...

Tienes la fórmula día(), mes(), año() lo otro es usar la funcion =TEXTO(fecha;"ddmmyy") con el formato que mas te convenga "ddmm" o "ddyy" o "ddmmyyyy" etc..

Haber supniendo que los datos están así ABc 1sinosi 2si sino 3no sino La formula seria =SI(MAYUSC(A2)="SI";"Esta Habilitada, ";"No esta habilitada, ")&" " & SI(MAYUSC(B2)="SI";"tiene Agua potable,";"tiene Agua potable,")&" " &...

Lo que se me ocurre es esto Range("a1").Value = "'" & TextBox1 Agregar un ' antes del valor del caja de texto, eso si, tienes que tener en cuenta que guardaras los datos como texto no como numero

Verifica esta macro Sub borrar() FilaA = Range("A65536").End(xlUp).Row For x = 1 To FilaA If Cells(x, 1).Font.Bold = False Then Cells(x, 1) = Empty End If Next x Sub borrar() FilaA = Range("A65536").End(xlUp).Row For x = 1 To FilaA If Cells(x,...

Se me ocurre algo así Sub comparar() FilaA = Range("A65536").End(xlUp).Row FilaB = Range("k65536").End(xlUp).Row For x = 1 To FilaA For y = 1 To FilaB If Format(Cells(x, 1).Value, "ddmmyyyy") = Format(Cells(y, 11).Value, "ddmmyyyy") Then Cells(x,...

Bueno la opción 1 es colocar in control de páginas múltiples en el cual puedas realizar opciones, si lo que quieres es realmente hacer un menu en el formulario es un poco complicado pero no imposible hace un tiempo baje un código de la web que tengo...

Podrías probar con este código que me toco realizar en un trabajo al ejecutarla puedes manejar la cantidad de copias que quieras Sub foliar() Dim x2 As String Dim x1 As String Dim x As String Dim res As String x1 = InputBox("Ingrese la celda para...

Si te fijas dentro de las celdas en valor numérico se mantiene o sea con el formato de celdas lo que cambias es como se muestra en N° ejemplo El 234 según formato de celda se muestra así 234 =234 /08/p o 234=234 /09/p Sin embargo el valor de la celda...