Remplazo mediante un texbox
Olaaa
Private Sub CommandButton1_Click()
Columns("J:J").Select
Selection.Replace What:="[BALANCE 040309", Replacement:="[BALANCE 040309", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End Sub
Mira esta es una macro que realize para remplazar
lo que deseo
es en un form poner nada más la fecha en un texbox
por ejemplo ahí en este código hay dos balances
el primero es para conocer cuales son los datos origen
y en ultimo para remplazarlos
entonces
en el ultimo balance quiero poner un text box
para que elusuario ponga nada más la fecha ejemplo "06/03/09
claro la palabra balance tiene que ir para que el usuario ponga nada más la fecha
y que la fecha que ponga en eltextbox se vea reflejada en el remplazo...
De todas maneras te paso las hojas
Gracias
Private Sub CommandButton1_Click()
Columns("J:J").Select
Selection.Replace What:="[BALANCE 040309", Replacement:="[BALANCE 040309", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
End Sub
Mira esta es una macro que realize para remplazar
lo que deseo
es en un form poner nada más la fecha en un texbox
por ejemplo ahí en este código hay dos balances
el primero es para conocer cuales son los datos origen
y en ultimo para remplazarlos
entonces
en el ultimo balance quiero poner un text box
para que elusuario ponga nada más la fecha ejemplo "06/03/09
claro la palabra balance tiene que ir para que el usuario ponga nada más la fecha
y que la fecha que ponga en eltextbox se vea reflejada en el remplazo...
De todas maneras te paso las hojas
Gracias
1 Respuesta
Respuesta
1
NO llego a entender del todo lo que querés, pero si lo interpreto bien podrías poner algo del estilo
Selection.Replace What:="[BALANCE 040309", Replacement:="[BALANCE " & TextBox1.Text & , _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Selection.Replace What:="[BALANCE 040309", Replacement:="[BALANCE " & TextBox1.Text & , _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Puse el código que me enviaste pero no me hace la validación del texbox
Selection.Replace What:="[BALANCE 040309", Replacement:="[BALANCE " & TextBox1.Text & , _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Lo que deseo
Es que el usuario en elsegundo balance ponga la fecha por la cual quiere cambiar el primer balance y busque la fecha y se ponga como el primer balanace ponga la fecha en lugar del texbox y así me arroje elresultado
espero me puedas ayudar
gracias
Selection.Replace What:="[BALANCE 040309", Replacement:="[BALANCE " & TextBox1.Text & , _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Lo que deseo
Es que el usuario en elsegundo balance ponga la fecha por la cual quiere cambiar el primer balance y busque la fecha y se ponga como el primer balanace ponga la fecha en lugar del texbox y así me arroje elresultado
espero me puedas ayudar
gracias
No entiendo cuando dices la validación del textbox; lo anterior directamente debería reemplazar 040309 por lo que diga Textbox1. Justamente la validacíon deberiás hacerla antes de hacer este reemplazo...