Assim talvez: Sub CopiaRange() Dim sh As Shape Application.ScreenUpdating = False 'Copia range desejada Sheets(1).Range...

Boa noite!! Favor postar seu arquivo modelo compactado!! Att

Boa noite!! Favor postar seu arquivo modelo compactado!! Att

Boa noite!! Tente adaptar Private Sub ListBox1_Change() Dim intIndex As Integer Dim intCount As Integer With ListBox1 For i...

wfranca Também não entendi! []s

. Alguém dá uma luz?? .

Luis, da maneira que propus, não foi apenas a modificação do array. Assim mesmo que estiver na sheet 2 ou tres irá carregar sem erro os dados da shee...

Boa tarde!! Eu fico feliz em ajuda, favor clicar na mãozinha!!! Att

Boa tarde!! Veja anexo. Att

Boa tarde!! Tente Private Sub botaopesquisarrr_Click() If CX3.Text = "" Then MsgBox "Digite o ativo!", vbExcla...

Boa tarde!! Use a pesquisa do fórum ou poste seu arquivo modelo compactado!!! Att

Boa tarde!! Eu não consigo testar sem seu modelo!! Private Sub botaopesquisarrr_Click() If IsNumeric(CX3.Text) Then MsgBox "Dig...

Boat arde!! No serviço eu não consigo ver seu arquivo, pois não tenho acesso a site de hospedagem. Mas o que é isso CX3? Uma variável ? célula? At...

Boa tarde!! Private Sub CommandButton1_Click() MsgBox Chr(34) & "Ale" & Chr(34) MsgBox """Ale""" End ...

Boa tarde!! Eu não entendi, eu consigo inserir em uma célula "ale" sem problemas Att