Visual Basic - Insertar checkbox según valor celda

Life is soft - evento anual de software empresarial
 
Vista:

Insertar checkbox según valor celda

Publicado por Daniela (2 intervenciones) el 14/02/2018 21:12:56
Buenas, queria un poco de ayuda.
Tengo un excel donde la columna A tiene datos tanto de texto como de numeros... me explico:
A1= texto
A2=numero
A3=numero
A4=texto
A5=numero
...
Necesito que en la columna "H" se inserte un checkbox solo si la columna A contiene numeros. esa columna tiene formato general.
A la vez que ese checkbox aparezca automaticamente al agregar mas datos (los copian y pegan en el excel) asi que trato que el checkbok aparezca con macros

Dejo la "idea" que tengo, la cual obviamente no funciona pero me gustaria que por favor alguien me guie

1
2
3
4
5
6
7
8
9
10
11
12
Sub insertar_casillas()
 
    Dim i As Integer
 
    For i = 1 To Sheets("Datos1").Range("I" & Rows.Count).End(xlUp).Row
        If IsNumeric(Cells(i, 1)) Then
            Cells(i, 10) = CheckBox     ------> aqui tengo la duda del codigo
 
        End If
    Next i
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Insertar checkbox según valor celda

Publicado por Daniela (2 intervenciones) el 14/02/2018 21:18:31
Disculpen, el codigo tiene cambiada la columna y celda, iria asi:

1
2
3
For i = 1 To Sheets("Datos1").Range("H" & Rows.Count).End(xlUp).Row
If IsNumeric(Cells(i, 1)) Then
Cells(i, 8) = CheckBox ------> aqui tengo la duda del codigo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar