de uma forma mais detalhada, segue minha contribuição If ws.Name <> wsheet.Name Then

If sht.Name <> "Plan1" Then

Só uma dúvida, porque quando eu executo dentro do visual basic utilizando F8 não fica como matricial, e utilizando o play dá um erro? Ao executar a p...

Só um detalhe, a fórmula não fica como uma matricial. Sim, insere a fórmula como matricial. Veja o arquivo anexado (é cópia do seu), está com o códi...

Sub ExemploV2() Range("E5").Select Selection.Value = _ "=SUM(('[Controle de peças VW.xlsm]Plan1'!R3C1:...

... porém ainda faltou uma parte ... Não faltou parte alguma, respondi o que você pediu antes. ...como consigo pegar esse valor da combobox e coloca...

Outra solução: Sub InsereNúmeros() Dim Ar As Range For Each Ar In Columns("B").SpecialCells(xlConstants).Areas Cells(Ar...

Experimente: Sub CarregaCombo() Sheets("Plan1").ComboBox1.ListFillRange = "" Sheets("Plan1").ComboBox1...

... é mais uma questão para aprendizado mesmo porque sou novo em VBA. sugestão - desde já não utilize Select nos seus códigos

Se você quer lançar um código na coluna 'A' da "Plan1" e buscar na "Plan2" as informações correspondentes ao código lançado, utili...

... MsgBox "Não Existe Peido em Execução" ... dica - se a situação descrita acima se alterar e provocar riscos ~~~> SAMU-192 e ...

Sub VerificaCaracter() Dim x As Long x = InStr([A1], ";") MsgBox x End Sub Se 'A1' contiver uva; banana; manga o código acima ...

Experimente: Private Sub CheckBox1_Click() If CheckBox1 Then Range("F9").Value = Now Range("F10").Value = #3:00...

Experimente: Sub Macro4V2() Dim plan As String, ws As Worksheet plan = InputBox("Digite o nome da planilha") For Each ws In Worksheet...

Experimente: Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "A2:E30000" End Sub Private Sub Worksheet_Change(ByVal Ta...