Guadalupe
25-05-2006, 01:54:58
Hola, ya se como hacerle ala pregunta que les puse ayer, jajajaj pero mi problema es que no se como plantearlo.
se que existe lo de Concatenación de Cadenas.
lo que quiero hacer es leer una celda de excel (ejem. "A1") y de acuerdo con lo que diga(ejem. "Grande"), poner un resultado en otra celda en el mismo libro.hoja (ejem. "33")
osea que si en mi celda A1 dice Grande, que me ponga en la celda B1, 33.
esta es una parte de mi codigo, porfavor ayudenme, me estoy ahogando en un vaso de agua lose, pero no se como se hace..(solo se que tengo que estar leyendo celda por celda.)
Dim v_fila As Integer 'Mi variable para que lea la celda
v_fila = 1 'Variable = 1, para que valla recorriendo la celda
Do
oHoja2.Range("A" & v_fila) = oHoja2.Range("22").Value ' Aqui oHoja2 es mi hoja, pero me sale error. no me lee nada, ni me pone resultado, y ni si siquiera se com plantear diciendo que el la celda B2 me ponga el resultado:confused:
Loop
se que existe lo de Concatenación de Cadenas.
lo que quiero hacer es leer una celda de excel (ejem. "A1") y de acuerdo con lo que diga(ejem. "Grande"), poner un resultado en otra celda en el mismo libro.hoja (ejem. "33")
osea que si en mi celda A1 dice Grande, que me ponga en la celda B1, 33.
esta es una parte de mi codigo, porfavor ayudenme, me estoy ahogando en un vaso de agua lose, pero no se como se hace..(solo se que tengo que estar leyendo celda por celda.)
Dim v_fila As Integer 'Mi variable para que lea la celda
v_fila = 1 'Variable = 1, para que valla recorriendo la celda
Do
oHoja2.Range("A" & v_fila) = oHoja2.Range("22").Value ' Aqui oHoja2 es mi hoja, pero me sale error. no me lee nada, ni me pone resultado, y ni si siquiera se com plantear diciendo que el la celda B2 me ponga el resultado:confused:
Loop