Notifications
Clear all

MACRO QUE SE JÁ PREENCHIDA A CELULA NÃO ALTERAR CELULA

3 Posts
2 Usuários
0 Reactions
811 Visualizações
(@denisw)
Posts: 64
Trusted Member
Topic starter
 

Sub ENTREGAS_Botão2_Clique()
For i = 3 To 200
If ("L" & i) <> "" Then
Range("A1").Value = Range("H" & i)
Range("M" & i) = Range("B1")
End If
Next
End Sub
Essa macro preenche dados nas celulas da coluna M porem
Preciso que ; se dentro da coluna M já houver alguma linha preenchida não alterar o valor da célula , tentei o while mas não deu certo.

desde já agradeço a ajuda!!

 
Postado : 05/05/2014 10:55 am
Basole
(@basole)
Posts: 487
Reputable Member
 

tente isso:

Sub ENTREGAS_Botão2_Clique()
    For i = 3 To 200
        If Range("M" & i) = "" Then
            If ("L" & i) <> "" Then
                Range("A1").Value = Range("H" & i)
                Range("M" & i) = Range("B1")
            End If
        End If
    Next
End Sub

Click em se a resposta foi util!

 
Postado : 05/05/2014 11:33 am
(@denisw)
Posts: 64
Trusted Member
Topic starter
 

funcionou!! vlw

 
Postado : 05/05/2014 3:01 pm