Retroceder   Foro Ayuda Excel > Dudas y consultas sobre Excel > Macros y programación VBA
Registrarse Preguntas Frecuentes Lista de Foreros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
LinkBack Herramientas Desplegado
  #1  
Antiguo 20/06/08, 15:53:30
Principiante
 
Usuario desde: jun 2008
Versión de Excel: Excel 2007
Conectado desde: Argentina
Mensajes: 2
Predeterminado Ayuda Busqueda Por Columna

Necesito q luego de una busqueda (ya programada)vaya a otra hoja(ya programado) y me pegue lo buscado(ya esta programado) en una celda la cual debe ubicarla buscando en la columna uno un valor "X" en la columna 2 un valor "y" y en la tres un valor "z" y que pegue una celada mas abajo.
EJ:
"BARCO"
"TIIPO DE BARCO"
"MODELO"
PEGAR ACA
Que me busque donde esta barco desde ahi se mueva a la columna 2 y busque donde carga luego lo mismo para modelo y ahi una celda mas abajo pegar
Agradezco mucho la colaboracion!
muchas gracias
Guido

Aclaro por las dudas si no que 100% bien explicado el asunto seria realizarlo mediante un IF
Las viriables y la busqueda son las siguientes
Dim pstrcadena As String
Dim pCol
Dim pRowFrom
Dim pRowto
pstrcadena = InputBox("Ingrese el criterio de busqueda, Ejemplo *transporte_codigo tipo_modelo*")

Lo q necesito si es que alguno me puede ayudar seria mendiante un if (ej pstrcadena = transporte_codigo tipo_modelo) then
buscar en la hoja uno columna uno la celda que contenga "transporte"
moverse a la columna 2 buscar la celda q contenga "Codigo de tipo"
moverse a la columna 3 buscar la celda q contenga "modelo"
copiar una cleda mas abajo el conetnido

de nuevo muchas gracias! saludos!!!
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2  
Antiguo 21/06/08, 03:18:21
Moderator
 
Usuario desde: jun 2008
Versión de Excel: Excel 2003
Conectado desde: Colombia
Mensajes: 61
Contactar con Efasor a través de MSN
Predeterminado Prueba esto

No te entendí bien pero lo que me dices es que ingreso, por ejemplo:

pstrcadena= "Tipo1 Modelo2"

entonces con la funcion InStr(Cadena, Cadena, Int) buscas la posicion del separador y asi colocas en dos cadenas los criterios:

PosSepa = InStr(" ",pstrcadena,1)

pstrcadena1 = mid(pstrcadena,1,PosSepa)

pstrcadena2 = mid(pstrcadena,PosSepa,len(pstrcadena)-PosSepa)

luego

'// Dentro de un loop

If (celda(i,j).value = pstrcadena1) then

'// Otro loop

if celda(i,j).value = pstrcadena2 then

celda(i+1,j).select

rango.Insert xlShiftDown, ObjetoOrigendeLaCopia


-------------------------------------------------------------


Aplicando eso debrias poder llegar a una solucion que te satisfaga, si quieres cuela un ejemplito de libro para poder mirar lo que tienes y asi poder ayudarte mejor. Supongo que programas bien por eso te lo pongo tan esquematico.

Cualquier pregunta con gusto te responderé.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3  
Antiguo 24/06/08, 02:25:54
Principiante
 
Usuario desde: jun 2008
Versión de Excel: Excel 2007
Conectado desde: Argentina
Mensajes: 2
Predeterminado

Gracias!!!!!
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT +2. Ahora son las 00:53:09.


© Ayuda Excel

Search Engine Friendly URLs by vBSEO 3.1.0 ©2007, Crawlability, Inc.

1 2 3 4 5 6 7