Jump to content
Fórum Script Brasil
  • 0

Limpar celulas de acordo com a seleção


Question

Qlá a todos, me chamo Rodrigo, e preciso de ajuda de um especialista em macro...

Tenho uma célula onde  seleciono mês, ao selecionar mês 1 o script deve limpar as células  de O12:$O$23, se selecionar mês 2, deve limpar da O13:$O$23 e sucessivamente até o mês 12.

 

 

'Limpa
    Sheets("Adjusted").Select
    Range("O16:O23").Select
    Selection.ClearContents
    Range("P12:P23").Select
    Selection.ClearContents
    Range("S21").Select
    
    

 

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Estimado, fiz duas funções para ficar mais organizado, numa primeira função pego o nome do mês e transformo na ordem dele e na outra função uso a ordem do mês para fazer o clear contents que você precisa

 

Private Sub LimparCelulas(ByVal mes As String)

Range("O" & 11 + ordemMes(mes) & ":O23").ClearContents
    
End Sub


Private Function ordemMes(ByVal mes As String) As Integer


Select Case LCase(mes)
    Case "janeiro"
        ordemMes = 1

    Case "fevereiro"
        ordemMes = 2
    Case "março"
        ordemMes = 3
    Case "abril"
        ordemMes = 4
    Case "maio"
        ordemMes = 5
    Case "junho"
        ordemMes = 6
    Case "julho"
        ordemMes = 7
    Case "agosto"
        ordemMes = 8
    Case "setembro"
        ordemMes = 9
    Case "outubro"
        ordemMes = 10
    Case "novembro"
        ordemMes = 11
    Case "dezembro"
        ordemMes = 12
End Select

End Function

se gostou, te convido a se inscrever meu canal do youtube, tenho uns videos de vba

cursodeexcelgratis.com.br/canal

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149264
    • Total Posts
      645605
×
×
  • Create New...