¿Cómo copiar el valor de un textbox a una hoja de excel con un criterio de coincidencia?
Publicado por victor hugo perez leyte (1 intervención) el 22/06/2018 17:05:05
Quisiera solicitar su apoyo con el siguiente tema,
Estoy desarrollando un formulario en donde capturo la clave de un proyecto y esta clave se guarda en una hoja de excel. En un segundo formulario uso un combobox para buscar cualquier proyecto (dado de alta en el primer formulario) y capturo su costo y éste se deberá copiar en la misma hoja donde originalmente se copió la clave. Lo que quiero hacer es que el costo se copie en el proyecto correspondiente de acuerdo con la clave seleccionada, es decir, que si en el combobox selecciono el proyecto 7, en la hoja de excel se copie el costo en el renglón en donde se ubica el proyecto 7. Lo he intentado con este código, pero no me da ningún error pero tampoco me da el resultado. Ojalá puedan ayudarme:
CST = TextBox25.Value ------- En esta variable guardo el costo del proyecto
'If Worksheets("BD").Cells(1, 1) = ComboBox1.Value Then ----- Aquí quiero buscar la coincidencia de la clave del proyecto en la hoja de excel
'Worksheets("BD").Cells(Rows.coun, 11).Value = CST
'End If
Estoy desarrollando un formulario en donde capturo la clave de un proyecto y esta clave se guarda en una hoja de excel. En un segundo formulario uso un combobox para buscar cualquier proyecto (dado de alta en el primer formulario) y capturo su costo y éste se deberá copiar en la misma hoja donde originalmente se copió la clave. Lo que quiero hacer es que el costo se copie en el proyecto correspondiente de acuerdo con la clave seleccionada, es decir, que si en el combobox selecciono el proyecto 7, en la hoja de excel se copie el costo en el renglón en donde se ubica el proyecto 7. Lo he intentado con este código, pero no me da ningún error pero tampoco me da el resultado. Ojalá puedan ayudarme:
CST = TextBox25.Value ------- En esta variable guardo el costo del proyecto
'If Worksheets("BD").Cells(1, 1) = ComboBox1.Value Then ----- Aquí quiero buscar la coincidencia de la clave del proyecto en la hoja de excel
'Worksheets("BD").Cells(Rows.coun, 11).Value = CST
'End If
Valora esta pregunta
0