desde form modificar datos en sheet

23/08/2008 - 01:25 por Mauricio | Informe spam

tengo mi hoja de datos (sheet1) la cuál puede tener desde 5 a 250 filas
llenas de
informacionme gustaria desde un boton que tengo en un formulario
modificar todos los valores que tengo en las columnas B,C,D ...claro está en
mi formulario tengo unos textbox y cuadros combinados como origen de la
información que quiero sea la que reemplace la que está en la hoja de datos
(sheet1)..para ello tengo lo sgte. en un boton que esta en mi formulario
(esto para una columna pues apenas lo estoy probando)

Private Sub CommandButton6_Click()
Worksheets("Sheet1").Range("b2:B250").Value = ComboBox2.Value
Selection.FillDown
End Sub
esto me funciona sin embargo cuando tengo menos de 250 filas siempre la
columna B se llena hasta la fila 250 con la información del combobox2..COMO
CAPTURO SOLO EL RANGO DE FILAS QUE QUIERO REEMPLAZAR SI TENGO LA COLUMNA A
COMO BASE PARA MODIFICAR LA B

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Modificar textbox(Form "HIJO") desde un Menú (Form "PADRE")

Leer las respuestas

#1 Héctor Miguel

23/08/2008 - 01:50 | Informe spam

hola, Mauricio !

... (esto para una columna pues apenas lo estoy probando)
Private Sub CommandButton6_Click()
Worksheets("Sheet1").Range("b2:B250").Value = ComboBox2.Value
Selection.FillDown
End Sub
... cuando tengo menos... filas siempre... se llena hasta la fila 250 con la informacion del combobox2
.COMO CAPTURO SOLO EL RANGO DE FILAS QUE QUIERO REEMPLAZAR
SI TENGO LA COLUMNA A COMO BASE PARA MODIFICAR LA B

(p.e.)

Private Sub CommandButton6_Click()
With Worksheets("Sheet1")
.Range("b2:b" & .Range("a2").End(xlDown).Row).Value = ComboBox2
End With
End Sub

saludos,
hector.

Responder a este mensaje

#2 Mauricio

23/08/2008 - 02:08 | Informe spam

Sin Palabras...funcionó a la perfección

Muchas Gracias
Mao

"Héctor Miguel" wrote:

hola, Mauricio !

> ... (esto para una columna pues apenas lo estoy probando)
> Private Sub CommandButton6_Click()
> Worksheets("Sheet1").Range("b2:B250").Value = ComboBox2.Value
> Selection.FillDown
> End Sub
> ... cuando tengo menos... filas siempre... se llena hasta la fila 250 con la informacion del combobox2
>.COMO CAPTURO SOLO EL RANGO DE FILAS QUE QUIERO REEMPLAZAR
> SI TENGO LA COLUMNA A COMO BASE PARA MODIFICAR LA B

(p.e.)

Private Sub CommandButton6_Click()
With Worksheets("Sheet1")
.Range("b2:b" & .Range("a2").End(xlDown).Row).Value = ComboBox2
End With
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida