Búsqueda de datos con macros
Señores: Tengo en la hoja N° 2 la colunma "G" en la cual aparecen en forma aleatoria la frase "SP"; para obtener dicha frase los datos estan ordenados de la siguinte manera A1=Valor Inicial, A2=2, B1=1, B2=A2*B1, C1=2, C2=A2*C1, D1=3, D2=A2*D1, E1=4, E2=A2*E1, F2=7, G2= formula Si(E2>F2;"SP";""); necesito hacer una macro que busque en la columna "G" todas los coincidencias con la frase "SP" y copie dentro de su fila la diferencia entre los valores de E y F en la casilla A; es decir asumiendo que la casilla G2 tiene la frase "SP", la macro debe copiar en la casilla A2 la diferencia entre el valor de (E2-F2).
{"Lat":-17.30868788677,"Lng":-54.84375}
1 respuesta
Respuesta de Eduard Caballero
1
Acá tienes
Private Sub CommandButton1_Click()
Dim valor1 As Integer
Dim valor2 As Integer
Range("g2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = "SP" Then
valor1 = ActiveCell.Offset(0, -2)
valor2 = ActiveCell.Offset(0, -1)
ActiveCell.Offset(0, -6) = valor1 - valor2
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Private Sub CommandButton1_Click()
Dim valor1 As Integer
Dim valor2 As Integer
Range("g2").Select
Do While Not IsEmpty(ActiveCell)
If ActiveCell = "SP" Then
valor1 = ActiveCell.Offset(0, -2)
valor2 = ActiveCell.Offset(0, -1)
ActiveCell.Offset(0, -6) = valor1 - valor2
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Gracias por el aporte me resulto perefecto, solo me quedo una duda, en caso que valor1 y valor2 no sean datos numéricos, más bien sean fechas, como debo declarar dichas variables para evitar que me arroje error al correr las macros.
Si son fechas puedes tratarlas como date.
Que bueno que te funciono.
Recuerda puntuar la respuesta.
Que bueno que te funciono.
Recuerda puntuar la respuesta.
