UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

ferreyro076


Buenos días a todos los foreros,

Estoy desarrollando una macro que en parte del código necesito que luego de guardar en la Data lo que esta en pantalla, sume un numero correlativo si cumple cierta condición, o sume otro correlativo si la condición es distinta.

Espero contar con su ayuda, ya que soy novato en el desarrollo de macros.
gracias por anticipado, saludos.


https://drive.google.com/file/d/1yicj70nNUlqv7w9Z39wppfNmGsw0gvQ7/view?usp=sharing

2RESUELTO Solucion de la consulta... el 20/08/18, 12:30 pm

ferreyro076


buenos dias, encontre la solucion a mi propia consulta planteada, y la comparto con Uds por si la llegaran a necesitar.
Saludos

La sintaxis es como sigue:
If condición Then
[Instrucciones a ejecutar]
[ Else
[Instrucciones a ejecutar]]
End If

En esta estructura “condición” representa el caso que debe cumplirse para que se ejecute la primera parte de la condición, mientras que “else” hace que todos los casos en los que no se haya cumplido ninguno de los casos previos se pueda ejecutar las instrucciones siguientes.

Para el ejemplo adjunto esta la solucion

'Aumentar correlativo

  If Sheets("Captura").Range("D10").Value = "CONVENCIONAL" Then
     valor = Sheets("Captura").Range("B2").Value
     valor = valor + 1
     Sheets("Captura").Range("B2").Value = valor
  Else
     valor1 = Sheets("Captura").Range("B3").Value
     valor1 = valor1 + 1
     Sheets("Captura").Range("B3").Value = valor1
  End If

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.