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...

Experimente: 1. menu Desenvolvedor / Modo de Design 2. clique com o direito sobre a CheckBox / Exibir código 3. no editor de VBA irá aparecer o códig...

Esse código ajudou, O código executa o que você pediu antes mas caso eu escolha colar mais de um valor na coluna B... sugestão - nos próximos tópi...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(, -1).Value = IIf(Target.Value <&g...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) Dim op As Range, ws As Worksheet If Target.Count > 1 Then Exit Sub If Ta...