agente013

santiagomf respondió: Para que una función te devuelva un valor 'tendrás que asignárselo'. En ningún punto pones cual será el valor de 'contar_llenas11'. Pon la siguiente línea delante del "End Function": contar_llenas11 = i Con eso te funcionará.

mrtool respondió: Menu Data=> Validation y selecciona 'Whole number' indica el rango que admites y con eso deberia funcionar.

230283 respondió: Bueno dejame decirte que no es necesario utilizar macros ni código en visual basic. Si tienes una Tabla como mencionas seria muy bueno convertirlo o hacerlo en forma de Lista (Menu Datos / Lista / Crear lista) De esta forma servirá como una base de...

sbernaldi respondió: Puedes usar la función val() : aux = Sheets("DATA"). Cells(10, 2). Value 'esta celda contiene 12345- xxxxxxxxxxxxxx aux1 = val(Mid(aux, 1, 5)) 'solo tomo 12345 Cells(1, 1). Value = aux1 'coloco en esta cel. Para verificar Cells(1, 2). Value =...

vikmar respondió: En este ejemplo se cambian unos datos en todas las hojas, pero se hace por medio de un ciclo para hacerlo una por una. Sub test() Dim sh As Worksheet, conta As Long conta = 1 'to thisworkbook.Sheets Windows.Application.ScreenUpdating = False ' Esto...

caranbis respondió: Si se puede, para la celda A2, sería: If Cells(2, 1).Font.ColorIndex = 1 Then '(1 = negro) End If

Elsa Matilde respondió: La propiedad que debés cambiar es Caption. Te dejo el ejemplo para el evento click del checkbox1 (en tu caso se llama tien1_cb) Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Frame2.Visible = True Frame2.Enabled = True Frame2.Caption =...

karl82 respondió: Me gustaría ayudarte, pero no te comprendo bien.

Elsa Matilde respondió: Entrá al Editor, seleccioná con doble clic el objeto HOJA que corresponda y allí escribí esta rutina: Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "A1:N26" End Sub Con este evento se ejecuta cuando abrís esa hoja. Otra opción sería...