IMOSTARE UNA CONDIZIONE



  • IMOSTARE UNA CONDIZIONE
    di RAF data: 18/10/2013 22:52:33

    Premesso che sono un neofita del VBA vorrei impostare una macro come segue
    se cella F10 = A vai alla macro acconto
    se cella F10 = S vai alla macro saldo
    altrimenti esci dalla macro



  • di patel data: 18/10/2013 23:00:18

    prova questa
     
    sub aa()
    if range("F10") = "A"  or range("F10") = "S"  then call saldo
    end sub






  • di Mister_x (utente non iscritto) data: 19/10/2013 00:23:23

    ciao

    forse intendevi questa soluzione con la variazione in F10

    da mettere nel foglio in questione

    ciao da Mister_x

     
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F10")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
      If Target = "A" Or Target = "a" Then
       Call acconto
      ElseIf Target = "S" Or Target = "s" Then
       Call saldo
      Else
       MsgBox "dato non valido in F10"
      End If
    Application.EnableEvents = True
    End Sub
    
    Sub acconto()
    '' Tuoi dati nella macro
    MsgBox "Acconto"
    End Sub
    
    Sub saldo()
    '' Tuoi dati nella macro
    MsgBox "saldo"
    End Sub
    






  • di patel data: 19/10/2013 09:43:06

    non avevo letto bene
     
    sub aa()
    if range("F10") = "A"  then 
      call saldo
    elseif range("F10") = "S"  then 
      call acconto
    end if
    end sub






  • di patel data: 19/10/2013 09:44:51

    su questo forum non si può proprio sbagliare
     
    sub aa()
    if range("F10") = "S"  then 
      call saldo
    elseif range("F10") = "A"  then 
      call acconto
    end if
    end sub





  • IMOSTARE UNA CONDIZIONE
    di Raf (utente non iscritto) data: 19/10/2013 10:19:35

    Ok grazie ho capito il concetto di If elseif

    Raf