Alterar tamanho da fonte

2024 - VBA & Macros

Post Recente por Fernando Fernandes 9 anos atrás

5 Posts

3 Usuários

0 Reactions

1,033 Visualizações

RSS

ser_ourico

(@ser_ourico)

Posts: 13

Active Member

Topic starter

Pessoal, bom dia!
Não estou conseguindo resolver o erro deste código. Dá pau na linha que tem a função Range, para alterar o tamanho da fonte.

Range("F6:I9").Select
ActiveWorkbook.Worksheets("Resultado_Diario").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Resultado_Diario").Sort.SortFields.Add Key:=Range("G7:G9"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Resultado_Diario").Sort
.SetRange Range("F6:I9")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("F7:I7").Font.Size = 14
Range("F8:I8").Font.Size = 12
Range("F9:I9").Font.Size = 11

Obrigado pela ajuda.

Postado : 02/10/2015 7:21 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Disponibilize o codigo com o arquivo assim fica mais facil ajuda-lo

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 02/10/2015 7:46 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

Seria melhor postar seu arquivo modelo com o código completo!!
Ou leia..
http://www.functionx.com/vbaexcel/cells/Lesson2.htm

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/10/2015 7:47 am

ser_ourico

(@ser_ourico)

Posts: 13

Active Member

Topic starter

Segue o arquivo.
Só estou utilizando a macro Classificar.
A outra ainda vou fazer, onde quero copiar as linhas do resultado diario sequencialmente na planilha "."

Resultado Diário_DESENVOLVENDO.xlsm

Postado : 02/10/2015 8:56 am