Editar uma linha na folha Via VBA

[Coizo]

Boas,

a minha questão é a seguinte:

tenho uma folha com registo de clientes e gostaria de saber como editar os valores de uma linha especifica previamente escolhida estou quase lá mas isto está a substituir toda a coluna com o tal texto escolhido ou seja:

nome morada telemovel

luis rua tal 965897454854

joana rua tal 9648654485

e gostava de substituir dó a morada do luis e não da joana mas o meu codigo substitui todas as "rua tal".

[jpcarvalho1992]

Podes inserir aqui o trecho do código referente a este problema?

[Coizo]

Ora bem isto bem explicadinho será eu estou a ir buscar os dados a uma listbox préviamente preenchida a partir da folha excel que por sua vez ao selecionar um cliente abre outro userform com caixas de textos já preenchidas com esses dados e o que eu queria depois era mesmo ao fazer alteraçoes que elas mudassem apenas naquele cliente e não em todas as células que que encontre esse valor.

Private Sub CommandButton1_Click()
Dim sprompt, sprompt1, sprompt2, sprompt3, sprompt4, sprompt5, sprompt6, sprompt7 As String
Dim OldText, OldText1, OldText2, OldText3, OldText4, OldText5, OldText6, OldText7 As String
Dim NewText, NewText1, NewText2, NewText3, NewText4, NewText5, NewText6, NewText7 As String




sprompt = listaform.ListBox1.Column(0, listaform.ListBox1.ListIndex)
sprompt1 = listaform.ListBox1.Column(1, listaform.ListBox1.ListIndex)
sprompt2 = listaform.ListBox1.Column(2, listaform.ListBox1.ListIndex)
sprompt3 = listaform.ListBox1.Column(3, listaform.ListBox1.ListIndex)
sprompt4 = listaform.ListBox1.Column(4, listaform.ListBox1.ListIndex)
sprompt5 = listaform.ListBox1.Column(5, listaform.ListBox1.ListIndex)
sprompt6 = listaform.ListBox1.Column(6, listaform.ListBox1.ListIndex)
sprompt7 = listaform.ListBox1.Column(7, listaform.ListBox1.ListIndex)

OldText = sprompt
OldText1 = sprompt1
OldText2 = sprompt2
OldText3 = sprompt3
OldText4 = sprompt4
OldText5 = sprompt5
OldText6 = sprompt6
OldText7 = sprompt7

NewText = editnomebox
NewText1 = editmoradabox
NewText2 = editbibox
NewText3 = editcontbox
NewText4 = edittelefbox
NewText5 = edittelembox
NewText6 = editemailbox
NewText7 = editassbox








Worksheets("clientes").Columns("a").Replace _
What:=OldText, Replacement:=NewText, _
SearchOrder:=xlByColumns, MatchCase:=True


Worksheets("clientes").Columns("b").Replace _
What:=OldText1, Replacement:=NewText1, _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("clientes").Columns("c").Replace _
What:=OldText2, Replacement:=NewText2, _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("clientes").Columns("d").Replace _
What:=OldText3, Replacement:=NewText3, _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("clientes").Columns("e").Replace _
What:=OldText4, Replacement:=NewText4, _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("clientes").Columns("f").Replace _
What:=OldText5, Replacement:=NewText5, _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("clientes").Columns("g").Replace _
What:=OldText6, Replacement:=NewText6, _
SearchOrder:=xlByColumns, MatchCase:=True

Worksheets("clientes").Columns("h").Replace _
What:=OldText7, Replacement:=NewText7, _
SearchOrder:=xlByColumns, MatchCase:=True

End Sub

[Coizo]

Aguém tem ideias??

[Coizo]

ok já descobri obrigado na mesma

qualquer coisa como

For Each cl In Range("A2:A5")

If cl.Value = oldtext And cl.Offset(0, 2) = nr Then

cl.Value = newtext

End If

Next cl