-
Content Count
38 -
Joined
-
Last visited
-
Days Won
1
Reputation Activity
-
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
-
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