Notifications
Clear all
2024 - Format. Condicional - Datas & Horas
3
Posts
2
Usuários
0
Reactions
1,098
Visualizações
Topic starter
Estou fazendo um projeto para minha pizzaria e estou com 2 problemas um deles é esse código...
Quero fazer uma busca na planilha ("clientes") e achada a busca vai até a coluna ("G") na mesma linha da busca e alterar o valor para o mesmo valor da planilha ("vendas") na celula ("AG6").
Se alguém puder me ajudar ficarei muito agradecido!
Desde já obrigado a todos.
Public Sub muda_pontos()
Dim Inter As Range
Dim number As Variant
Sheets("VENDA").Select
Range("AG6").Select
number = Selection.Value
With Sheets("CLIENTES").Range("A1:A5000")
Set c = .Find(What:=TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = number
'Set c = .FindNext(Cells(c, "G")).Value
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Postado : 17/03/2015 10:25 am
Boa tarde!!
Poste seu arquivo modelo compactado!!
Peça por gentileza aos moderadores que mova seu tópico para um local correto!!!!!!
viewforum.php?f=10
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 17/03/2015 11:29 am
Experimente
Public Sub muda_pontos()
Dim Inter As Range
Dim number As Variant
number = Sheets("VENDA").Range("AG6").Value
With Sheets("CLIENTES").Range("A1:A5000")
Set c = .Find(What:=TextBox1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
.Cells(c.Row, "G") = number
'Set c = .FindNext(Cells(c, "G")).Value
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 17/03/2015 11:34 am