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
0