Visual Basic para Aplicaciones - Rango dinamico en macro??

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de miguel

Rango dinamico en macro??

Publicado por miguel (14 intervenciones) el 11/12/2017 19:09:22
Hola a todos tengo un macro que colorea las celdas repetidas y funciona genial el problema es que tengo que cambiar el rango desde la interfaz de VBA y me gustaria que fuera desde una interfaz donde pusiera yo el rango pero soy muy novato en VBA, me orientan?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CopiarCelda()
 
 Dim Rango1 As Range
 Dim celda1 As Range
 
 Set Rango1 = Range("B1", "B100")
 
 For Each celda1 In Rango1
 
 
 If WorksheetFunction.CountIf(Rango1, celda1.Value) > 1 Then
 celda1.Borders.ColorIndex = 3
 
 
 End If
 
Next celda1
 
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

Rango dinamico en macro??

Publicado por JuanC juanc2942@gmail.com (550 intervenciones) el 11/12/2017 19:53:11
algo así...

1
2
3
4
5
Dim rng As Range
Set rng = Application.InputBox("Por favor seleccione rango:", , , , , , , Type:=8)
If Not rng Is Nothing Then
   ...
End If
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
Revisar política de publicidad