Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Necesito de una ayuda Please!!!!

08/08/2006 - 19:31 por Ruben | Informe spam
Ayuda Hacer una pregunta
Hola a todos, me pueden ayudar..

Necesito un codigo en el cual me permita hacer lo siguiente

Tengo en una hoja desde la linea 2 hasta la 50000 o mas, en la cual
deseo hacer una busqueda por la columna D y es de que cada vez que me
encuentre la palabra Fijos me multiplique lo que hay en la columna A
con la Columna G de la misma fila y el resultado lo ponga en la columna
P de la misma fila, cuando ya no encuentre mas datos en la busqueda me
displaye un mensaje que diga "se encontraron tantos numeros de
registros de el total de registros que busco), es decir, si la hoja
tiene 50000 y se encontro 3000 el mensaje seria " Se encontraron 3000
Registros de 50000 existentes") pero si no encuentra ningun registro,
es decir, no existe en la columna D la palabra "Fijos" que displaye un
mensaje indicando "No hay registros existente".
Muchas gracias y disculpe la molestia.
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Abraham
08/08/2006 - 20:36 | Informe spam
si en D esta la palabra fijo, multiplica A*G de la misma fila y coloca
el resultado en P. eso si, siempre y cuando no existan celdas vacias en
P, a la primera celda vacia, la macro da por teminado su trabajo. Creo
recordar en tu anterior msj que habia FIJOS, y otras cosas. Terminando
arroja un msj con la cantidad de registros encontrados.

Abraham

Sub completar()

Dim celdafijo As String
Dim multiplicando As Integer, multiplicador As Integer, contador As
Integer
Dim volver As String

Range("d1").Select
contador = 0
Do While ActiveCell.Value <> Empty

celdafijo = ActiveCell.Value
volver = ActiveCell.Address
If celdafijo = "fijo" Then
ActiveCell.Offset(0, -3).Select
multiplicando = ActiveCell.Value
ActiveCell.Offset(0, 6).Select
multiplicador = ActiveCell.Value
ActiveCell.Offset(0, 9).Select
ActiveCell.Value = multiplicando * multiplicador
Range(volver).Select
contador = contador + 1
End If

ActiveCell.Offset(1, 0).Select

Loop

MsgBox prompt:="Hubo " & contador & " registros", Buttons:=vbOKOnly,
Title:="CONTEO FINALIZADO"

End Sub

Preguntas similares

 

Busqueda sugerida :