Remplazo mediante un texbox
Olaaa
Espero me puedas ayudar
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
Espero me puedas ayudar
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 de ivnxls
1
Incluye esto en tu código:
fecha1 = InputBox("Fecha a sustituir?", "ORIGEN", Now())
If fecha1 = Empty Then Exit Sub 'mejorar con revisión validez fecha
fecha2 = InputBox("Fecha nueva?", "DESTINO", Now())
If fecha2 = Empty Then Exit Sub 'mejorar con revisión fecha
Le preguntarás al usuario por las fechas a sustituir y la nueva, y
Selection.Replace What:="[BALANCE " &format(fecha1,"ddmmyy"), Replacement:="[BALANCE " &format(fecha2,"ddmmyy"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Cambiará la una por la otra
fecha1 = InputBox("Fecha a sustituir?", "ORIGEN", Now())
If fecha1 = Empty Then Exit Sub 'mejorar con revisión validez fecha
fecha2 = InputBox("Fecha nueva?", "DESTINO", Now())
If fecha2 = Empty Then Exit Sub 'mejorar con revisión fecha
Le preguntarás al usuario por las fechas a sustituir y la nueva, y
Selection.Replace What:="[BALANCE " &format(fecha1,"ddmmyy"), Replacement:="[BALANCE " &format(fecha2,"ddmmyy"), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Cambiará la una por la otra
HOLA
Muchas gracias por tu respuesta
Estuvo genial
Me fue de mucha ayuda
Excelente respuesta
Gracias
cualquier otra cosa ... te pregunto
Gracias
Muchas gracias por tu respuesta
Estuvo genial
Me fue de mucha ayuda
Excelente respuesta
Gracias
cualquier otra cosa ... te pregunto
Gracias
