Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Boa tarde, Marcelo!
Qualquer proposta sempre tem um contexto.
Estes "Ranges" são linhas somente?
No caso cuide somente que o limite superior de sua aplicação esteja delimitada na igualdade para o corte.
Se quer fazer isso por uma rotina de VBA precisa criar a regra para que ele percorra e preencha os campos.
Pode gerar esta macro e testar:
Sub AjusteLinhas()
Dim Linha As Integer
Linha = 0
Application.Goto Reference:="R10000C1"
Do While Linha <= 2000
If Linha < 1000 Then
ActiveCell.Offset(R & Linha, 0) = 1
Else
ActiveCell.Offset(R & Linha, 0) = 2
End If
Linha = Linha + 1
Loop
MsgBox "TAREFA TERMINADA"
End Sub
Pode mandar formatar o campo também se ele não estiver já totalmente formatado.
Se precisar de resolver outras dúvidas disponha.
WhatsApp 13 99724 5471 José Ricardo
96
horas
de aula
28
tarefas
resolvidas
94
horas
de aula
29
tarefas
resolvidas
Envie sua primeira dúvida gratuitamente aqui no Tira-dúvidas Profes. Nossos professores particulares estão aqui para te ajudar.
Aulas
Buscar
Tarefas
Pedir
Turmas
Procurar
Profes Já
Pedir
Cursos
Encontrar
Tira-dúvidas
Enviar dúvida
