Inicio > Microsoft Excel > karl82 > Cambiar letra y sacar bordes

Cambiar letra y sacar bordes

Experto:
Usuario:
valecinco
Fecha: 18/07/2008
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
16/07/2008
valecinco, usuario preguntando en Microsoft Excel
Usuario
Hola tengo un archivo en excel que tiene 11 hojas de calculo, lo que necesito es que selecciones todas las hojas de calculo y en la columna A me cambie la la letra de arial 12 a arial 10, esa columna va desde la fila 5 hasta la 7000 y luego necesito que me saque los bordes , es decir "sin borde" la columna A, B, C, D tambien de la fila 5 hasta la 7000
gracias
16/07/2008
valecinco, experto respondiendo en Microsoft Excel
Experto
.
16/07/2008
valecinco, experto respondiendo en Microsoft Excel
Experto
Hola aqui te doy el siguiente codigo, la unica condicion es que tus Hojas se llamen Hoja1, Hoja2 y asi sucesivamente hasta la hoja11. Pega el codigo en un modulo.
Sub Macro1()
For x = 1 To 11
Sheets("Hoja" + CStr(x)).Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Next
Sheets("Hoja1").Select
End Sub
Espero te haya sido de utilidad, saludos.
17/07/2008
valecinco, usuario preguntando en Microsoft Excel
Usuario
hola Karl gracias por contestarme, mi duda es la siguiente, todas las hojas de calculo tiene un nombre por eso no puedo ponerle el nombre hoja 1 hoja 2 etc, que podria hacer entonces, por ejemplo te doy 3 ejemplos, una se llama magurno, la otra Saenz, la otra Mingo y asi sucesivamente, saludos
17/07/2008
valecinco, experto respondiendo en Microsoft Excel
Experto
Hola, si tus hojas tienen otro nombre simplemente en el codigo donde veas hoja1 cambialo a Magumo y la hoja2 la cambias por Saenz, ojo que estoy hablando de las hojas no de los libros eh. Saludos amigo.
18/07/2008
valecinco, usuario preguntando en Microsoft Excel
Usuario
Hola Karl, tarate de hacer lo me dijiste te mando como lo copie a ver si podes darte cuenta lo que esta mal, me dice que hay un error de compilacion, te lo mando a ver si me podes ayudar y asi me funciona, gracias nuevamente
For x = 1 To 11
Sheets("MAINER", "DE LA ROSA", "LUCHO", "LA ROSA", "ALEM", "SAENZ", "MP", "MIRIAM", _ "MEIER", "LOPEZ", "MABEL", "EL FERRE" + CStr(x)).Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Next
Sheets("Hoja1").Select
End Sub
18/07/2008
valecinco, experto respondiendo en Microsoft Excel
Experto
Ahh bueno entonces copia el siguiente codigo estoy seguro que esta vez no habra problemas. Saludos y no olvides cerrar la pregunta.
Sub Macro1()
Sheets("MAINER").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("DE LA ROSA").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("LUCHO").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("LA ROSA").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("ALEM").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("SAENZ").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("MP").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("MIRIAM").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("MEIER").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("LOPEZ").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("MABEL").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A5").Select
Sheets("EL FERRE").Select
Range("A5:A7000").Select
With Selection.Font
.Name = "Arial"
.Size = 10
.Italic = False
End With
Range("A5:D5").Select
Range("A5:D7000").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("MAINER").Select
Application.DisplayAlerts = False
End Sub
18/07/2008
valecinco, usuario preguntando en Microsoft Excel
Usuario
Fumciono perfecto, muchas gracias!!!!
Compártelo
Más opciones
Enlaces patrocinados
Respuestas relacionadas
Inicio | Publicidad | Condiciones de uso | Declaración de privacidad | Blog
© 1999 - 2008 Todoexpertos.com. Todos los derechos reservados. Desarrollado por Avanzis.