Blog Archive
-
▼
2004
(73)
-
▼
outubro
(12)
- Mover de uma célula para outra (s) com a tecla TAB...
- Apagar registos iguais numa coluna
- Limitar a visibilidade de uma ou várias folhas
- Variar a opção por defeito nas "message boxes"
- Chamar um form através de duplo clique numa célula
- Sequência de números
- Funções de Data
- Repetição de números
- Utilizar o símbolo do Euro no Excel97
- Copiar de Colunas para Linhas
- Demasiados formatos
- 1: Excel - O problema do aparecimento de: "#/DIV0!"
-
▼
outubro
(12)
About Me
Com tecnologia do Blogger.
Seguidores
Estatisticas
2004-10-30
9:23 da tarde | 
Publicada por
JRod - PORTUGAL
Assumindo que os valores repetidos que queremos apagar na coluna A têm como referência o conteúdo da célula B1 (por ex. 100), pode criar-se uma macro ( atribuida a um botão de comando) que percorra o número de células da coluna A que pretendemos (por ex. da A1 à A100) e apague o conteúdo daquelas que possuam o valor 100:
Private Sub CommandButton1_Click()
Dim myRng As Range
Dim cell As Range
Dim inf As String
Set myRng = Range("A1:A100")
For Each cell in MyRng
If cell.Value = Range("B1") Then
cell.Value = ""
End If
Next
End Sub
Private Sub CommandButton1_Click()
Dim myRng As Range
Dim cell As Range
Dim inf As String
Set myRng = Range("A1:A100")
For Each cell in MyRng
If cell.Value = Range("B1") Then
cell.Value = ""
End If
Next
End Sub
