Macro y función SI
Estimados expertos:
Necesito de una macro que evalúe lo siguiente, si f12 en (hoja1) es mayor que f12 en (hoja2) entonces que f12 en hoja1 sea f12 de (hoja1)+1; pero si f12 en (hoja2) es mayor que f12 de (hoja1) entonces que f12 en hoja1 sea f12 de (hoja2)+1
Espero me puedan ayudar porque he buscado mucho y todavía no encuentro una respuesta, gracias de antemano, atentamente. Benja
Necesito de una macro que evalúe lo siguiente, si f12 en (hoja1) es mayor que f12 en (hoja2) entonces que f12 en hoja1 sea f12 de (hoja1)+1; pero si f12 en (hoja2) es mayor que f12 de (hoja1) entonces que f12 en hoja1 sea f12 de (hoja2)+1
Espero me puedan ayudar porque he buscado mucho y todavía no encuentro una respuesta, gracias de antemano, atentamente. Benja
1 Respuesta
Respuesta de zalhen
1
A ver si esto te sirve:
Sub Macro()
Sheets("Hoja2").Select
valor_2 = ActiveSheet.Range("f12")
Sheets("Hoja1").Select
valor_1 = ActiveSheet.Range("f12")
If valor_1 > valor_2 Then
valor_1 = valor_1 + 1
Else
valor_1 = valor_2 + 1
End If
ActiveSheet.Range("f12") = valor_1
End Sub
Sub Macro()
Sheets("Hoja2").Select
valor_2 = ActiveSheet.Range("f12")
Sheets("Hoja1").Select
valor_1 = ActiveSheet.Range("f12")
If valor_1 > valor_2 Then
valor_1 = valor_1 + 1
Else
valor_1 = valor_2 + 1
End If
ActiveSheet.Range("f12") = valor_1
End Sub
