Fecha y hora actual: Martes 15 Oct 2019 11:45
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Crear un nueva funcion en Excel 2013

Responder al Tema

Índice del Foro > Excel > Crear un nueva funcion en Excel 2013

Autor Mensaje
tefranma



Registrado: 01 Dic 2015
Mensajes: 1

Mensaje Publicado: Martes 01 Dic 2015 13:26

Título del mensaje: Crear un nueva funcion en Excel 2013

Responder citando

Hola, buenos días:
Tengo un problemilla con Excel 2013.
Quiero hacer una funcion nueva.
Tengo un rango de datos de 10 celdas que contienen una letra concreta m o t o está vacía.
Cada celda está coloreada con un color amarillo o azul
Quiero una función que me cuente las celdas que hay, por ejemplo, amarillas que están vacías o que contienen una m o una t
Gracias

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Ljosalfar



Registrado: 11 Dic 2015
Mensajes: 3

Mensaje Publicado: Miércoles 16 Dic 2015 17:42

Título del mensaje: Crear un nueva funcion en Excel 2013

Responder citando

Buenas!, como tampoco defines bien lo que buscas exactamente, te hice un ejemplo que cuenta cuantas celdas de color tienes, y cuantas rellenas o vacias.

Código:
Sub ContarCeldas()
Dim Color As Long
    Coloramarillo = ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A1").Interior.Color 'siendo esta celda una celda vacia con el color de fonde de tu amarillo
    ColorAzul = ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A2").Interior.Color 'siendo esta celda una celda vacia con el color de fonde de tu azul
Dim CeldasAmarillas, CeldasAzules, CeldasConT, CeldasConM, CeldasVacias As Integer

For x = 3 To 12 ' es un for que recorre las 10 celdas de un  rango como citaste
 
If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Interior.Color = Coloramarillo Then

    CeldasAmarillas = CeldasAmarillas + 1
    If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Value = "t" Then
    CeldasConT = CeldasConT + 1
    End If
    If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Value = "m" Then
    CeldasConM = CeldasConM + 1
    End If
    If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Value = "" Then
    CeldasVacias = CeldasVacias + 1
    End If

End If

If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Interior.Color = ColorAzul Then

    CeldasAzules = CeldasAzules + 1
    If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Value = "t" Then
    CeldasConT = CeldasConT + 1
    End If
    If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Value = "m" Then
    CeldasConM = CeldasConM + 1
    End If
    If ThisWorkbook.Sheets("el nombre de tu pestaña").Range("A" & x & "").Value = "" Then
    CeldasVacias = CeldasVacias + 1
    End If

End If


Next x

End Sub



Como no especificas si quieres esos valores para otro procedimiento o funcion, tan solo los guarde en variables, posteriormente puedes hacer modificaciones para plasmar esos valores en otras celdas o para mandarlos a un procedimiento o funcion.

Espero que el ejemplo te sirva de ayuda!

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Ayuda, necesito guardar la funcion inversa en u...

carloscacr Programación en general 0 Viernes 04 Oct 2019 05:21 Ver último mensaje
El foro no contiene ningún mensaje nuevo

AYUDA CON BUCLES ABIERTOS Y CERRADOS PARA VISUA...

Fabricio Esteban P Visual Basic y VBA 0 Miércoles 08 May 2019 05:21 Ver último mensaje
El foro no contiene ningún mensaje nuevo

FUNCION SQL

Marta06 SQL - Lenguaje SQL 0 Domingo 21 Abr 2019 12:26 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,