Bom dia,
Já li todos (eu acho) perguntas sobre o tema, mas não consegui adaptar ao meu código.
Eu tenho uma planilha com a aba "CARTÃO", e gostaria de fazer um relatório no final.
Acontece que quando vou "formatar o relatório", preciso mesclar, adicionar grades, mudar fontes, etc. Para isso, estou pretendendo usar a função RANGE das células em questão.
Ocorre que quando eu chama a função RANGE das Células da Planilha que tenho interesse, aparece:
"Erro em tempo de execução '1004'. A método Select da Função Range falhou."
Estou colando uma parte do código para análise
Private Sub CommandButton1_Click()
Dim OperadorCart(1 To 1000) As String
Dim DataCart(1 To 1000) As Date
Dim ValorCart(1 To 1000) As Double
Dim TipoCart(1 To 1000) As String
Dim NParcCart(1 To 1000) As Integer
Dim RefCart(1 To 1000) As String
'Leitura de todos os dados
' CARTÃO
cont_cart = 0
For i = 1 To 1000
If Sheets("CARTÃO").Cells(i + 1, 3) = "" Then
i = 10000
Else
OperadorCart(i) = Sheets("CARTÃO").Cells(i + 1, 1)
DataCart(i) = Sheets("CARTÃO").Cells(i + 1, 2)
ValorCart(i) = Sheets("CARTÃO").Cells(i + 1, 3)
TipoCart(i) = Sheets("CARTÃO").Cells(i + 1, 4)
NParcCart(i) = Sheets("CARTÃO").Cells(i + 1, 5)
RefCart(i) = Sheets("CARTÃO").Cells(i + 1, 6)
cont_cart = cont_cart + 1
End If
Next i
'Escrever Relatório
'Cabeçalho Dinheiro
Sheets("RELATÓRIO DIÁRIO").Select
Range(Cells(3, 1), Cells(3, 10)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
O erro aparece nesta parte final, quando eu chamo:
Range(Cells(3, 1), Cells(3, 10)).Select
Alguém pode me ajudar por favor?
Obrigado!
