Jump to content

silver_axe007

Members
  • Content Count

    38
  • Joined

  • Last visited

  • Days Won

    1

Reputation Activity

  1. Like
    silver_axe007 got a reaction from Jose BN in Duda y desesperación por Macro al modificar varias celdas y pegar imagen por dicha modificación   
    Espero te ayude lo coversado 
    Adjun to correccion
    If (azi >= 0 And azi <= 20) Then rumbo = "nn" SavePicture FM_Flechas.fnn.Picture, "imagen.jpg" ElseIf (azi >= 21 And azi <= 69) Then SavePicture FM_Flechas.fne.Picture, "imagen.jpg" ElseIf (azi >= 70 And azi <= 110) Then SavePicture FM_Flechas.fee.Picture, "imagen.jpg" ElseIf (azi >= 111 And azi <= 159) Then SavePicture FM_Flechas.fse.Picture, "imagen.jpg" ElseIf (azi >= 160 And azi <= 200) Then SavePicture FM_Flechas.fss.Picture, "imagen.jpg" ElseIf (azi >= 201 And azi <= 249) Then SavePicture FM_Flechas.fso.Picture, "imagen.jpg" ElseIf (azi >= 250 And azi <= 290) Then SavePicture FM_Flechas.foo.Picture, "imagen.jpg" ElseIf (azi >= 291 And azi <= 339) Then SavePicture FM_Flechas.fno.Picture, "imagen.jpg" ElseIf (azi >= 340 And azi <= 360) Then SavePicture FM_Flechas.fnn.Picture, "imagen.jpg" Else MsgBox "Azimut fuera de parámetros aceptables" End If  
  2. Like
    silver_axe007 got a reaction from Jose BN in Duda y desesperación por Macro al modificar varias celdas y pegar imagen por dicha modificación   
    Espero te ayude lo coversado 
    Adjun to correccion
    If (azi >= 0 And azi <= 20) Then rumbo = "nn" SavePicture FM_Flechas.fnn.Picture, "imagen.jpg" ElseIf (azi >= 21 And azi <= 69) Then SavePicture FM_Flechas.fne.Picture, "imagen.jpg" ElseIf (azi >= 70 And azi <= 110) Then SavePicture FM_Flechas.fee.Picture, "imagen.jpg" ElseIf (azi >= 111 And azi <= 159) Then SavePicture FM_Flechas.fse.Picture, "imagen.jpg" ElseIf (azi >= 160 And azi <= 200) Then SavePicture FM_Flechas.fss.Picture, "imagen.jpg" ElseIf (azi >= 201 And azi <= 249) Then SavePicture FM_Flechas.fso.Picture, "imagen.jpg" ElseIf (azi >= 250 And azi <= 290) Then SavePicture FM_Flechas.foo.Picture, "imagen.jpg" ElseIf (azi >= 291 And azi <= 339) Then SavePicture FM_Flechas.fno.Picture, "imagen.jpg" ElseIf (azi >= 340 And azi <= 360) Then SavePicture FM_Flechas.fnn.Picture, "imagen.jpg" Else MsgBox "Azimut fuera de parámetros aceptables" End If  
×
×
  • Create New...

Important Information

Privacy Policy