Notifications
Clear all

Buscar critério em linha diferente

3 Posts
2 Usuários
0 Reactions
899 Visualizações
(@luizhcosta)
Posts: 420
Honorable Member
Topic starter
 

Boa tarde,

Preciso de uma ajuda simples. Abaixo o código do colega Mauro Coutinho que, busca nos títulos da colunas pelo caracterer "*", em seguida bloqueia as colunas que contém o caracter. Mas a busca está sendo realizada na primeira linha da planilha. Acontece que preciso que a busca seja feita na linha 9, onde estão os títulos agora.

Obrigado!

Sub BloqueiaColsCriterio()
Dim lgTtColunas As Long
Dim iCol As Long
Dim myCol As String

    ActiveSheet.Unprotect ("SuaSenha")
    
    Cells.Locked = False
    
    'Conta as colunas preenchidas
    lgTtColunas = Cells(1, Columns.Count).End(xlToLeft).Column
    
    For iCol = 1 To lgTtColunas
        
        'Condição
        'If Cells(1, iCol).Value = "VALOR ATUAL" Then
         If InStr(1, Cells(1, iCol), "*") Then  
         myCol = GetColumnLetter(iCol)
         
         Range(myCol & "2:" & myCol & "400").Locked = True
        
        End If
        
    Next iCol

    ActiveSheet.Protect ("SuaSenha")

End Sub

Function GetColumnLetter(colNum As Long) As String
    Dim vArr
    vArr = Split(Cells(1, colNum).Address(True, False), "$")
    GetColumnLetter = vArr(0)
End Function
 
Postado : 11/05/2015 11:52 am
(@gtsalikis)
Posts: 2373
Noble Member
 

isso é simples, rs

Em todos os lugares onte tem
:
Cells(1,

Esse número 1 é o que identifica a primeira linha, troque pela linha 9
Cells(9,

E vai estar tudo certo.

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 11/05/2015 12:04 pm
(@luizhcosta)
Posts: 420
Honorable Member
Topic starter
 

Foi isso que eu fiz, mas ao executar o código aperece um erro "400"

 
Postado : 11/05/2015 12:25 pm