Pesquisa resultou em 1085 ocorrências

Voltar à pesquisa avançada

Re: PROTEGER PLANILHA SEM BLOQUEAR MACRO

Creio que o vídeo a seguir atenda à sua necessinade:

https://www.youtube.com/watch?v=4MlXkndAPAQ
por klarc28
Dom Jun 23, 2019 11:27 pm
 
Fórum: VBA & Macros
Tópico: PROTEGER PLANILHA SEM BLOQUEAR MACRO
Respostas: 2
Exibições: 112

Re: Apagar linhas acima célula ativa  [Resolvido]

Código: Selecionar todos
Sub EXCLUIR()

If ActiveCell.Column = 1 Then

If ActiveCell.Row > 8 Then

Range("A" & ActiveCell.Row - 1 & ":A" & ActiveCell.Row - 8).EntireRow.Delete
End If
End If

End Sub
por klarc28
Dom Jun 23, 2019 9:55 am
 
Fórum: VBA & Macros
Tópico: Apagar linhas acima célula ativa
Respostas: 4
Exibições: 214

Re: Apagar linhas acima célula ativa  [Resolvido]

Código: Selecionar todos
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Column = 1 Then

If Target.Row > 8 Then

Range("A" & Target.Row - 1 & ":A" & Target.Row - 8).EntireRow.Delete
End If
End If

End Sub
por klarc28
Dom Jun 23, 2019 9:17 am
 
Fórum: VBA & Macros
Tópico: Apagar linhas acima célula ativa
Respostas: 4
Exibições: 214

Re: Erro de compilacao: O objeto e obrigatorio  [Resolvido]

Talvez você queira colocar o valor em uma e o endereço da célula em outra. Aí ficaria assim: Dim c With ThisWorkBook.Sheets("Plan2") .Activate With .Range("A:Z") Set c = .Find(TextBox1.Value) If Not c Is Nothing Then MsgBox "Valor encontrado em : " & c.Address , vbI...
por klarc28
Sáb Jun 22, 2019 7:20 pm
 
Fórum: VBA & Macros
Tópico: Erro de compilacao: O objeto e obrigatorio
Respostas: 9
Exibições: 377

Re: Erro de compilacao: O objeto e obrigatorio  [Resolvido]

O c e a activecell são a mesma coisa. Esse código serve apenas para selecionar a célula que contém o valor que está na textbox1. Não está claro o que você deseja fazer. Sei que você já disse que quer jogar esse valor encontrado para outra textbox, mas por que alguém faria isso, se esse valor já está...
por klarc28
Sáb Jun 22, 2019 6:42 pm
 
Fórum: VBA & Macros
Tópico: Erro de compilacao: O objeto e obrigatorio
Respostas: 9
Exibições: 377

Re: Era para acabar no End Sub, mas leva para End IF  [Resolvido]

Envie o código inteiro
por klarc28
Sáb Jun 22, 2019 6:32 pm
 
Fórum: VBA & Macros
Tópico: Era para acabar no End Sub, mas leva para End IF
Respostas: 3
Exibições: 173

Re: Atualizar gráfico automático (DADOS + CORES)

Sub UnhideRowsColumns() Columns.EntireColumn.Hidden = False Rows.EntireRow.Hidden = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Set planilha = ThisWorkbook.ActiveSheet For Each Célula In planilha.UsedRange.Range("D25:G25,K25:N25...
por klarc28
Sáb Jun 22, 2019 8:29 am
 
Fórum: VBA & Macros
Tópico: Atualizar gráfico automático (DADOS + CORES)
Respostas: 5
Exibições: 194

Re: Encontrar e ativar célula com maior valor.  [Resolvido]

Sub retornaMaiorValor() With ThisWorkbook.Sheets(1) Dim maiorValor As Double Dim rangeConsulta As Range Set rangeConsulta = Range("I4:AT32") maiorValor = CDbl(WorksheetFunction.Max(rangeConsulta)) With rangeConsulta Dim vBusca Set vBusca = .Find(maiorValor) If Not vBusca Is Nothing Then R...
por klarc28
Sex Jun 21, 2019 8:55 am
 
Fórum: VBA & Macros
Tópico: Encontrar e ativar célula com maior valor.
Respostas: 23
Exibições: 779

Re: Encontrar e ativar célula com maior valor.  [Resolvido]

Testei e funcionou perfeitamente, mesmo com células em branco:

https://drive.google.com/file/d/1rEY30i9SwVonFgSEW19ZabbJrEt-aBqs/view?usp=sharing
por klarc28
Qui Jun 20, 2019 9:28 pm
 
Fórum: VBA & Macros
Tópico: Encontrar e ativar célula com maior valor.
Respostas: 23
Exibições: 779

Re: Atualizar gráfico automático (DADOS + CORES)

Sub UnhideRowsColumns() Columns.EntireColumn.Hidden = False Rows.EntireRow.Hidden = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Set planilha = ThisWorkbook.ActiveSheet For Each Célula In planilha.UsedRange.Range("D25:G25,K25:N25...
por klarc28
Qui Jun 20, 2019 8:53 pm
 
Fórum: VBA & Macros
Tópico: Atualizar gráfico automático (DADOS + CORES)
Respostas: 5
Exibições: 194
Próximo

Voltar à pesquisa avançada