You are here:Home-Domande su Excel VBA e MACRO-IMPOSSIBILE INVIARE TOPIC-Rispondi a: IMPOSSIBILE INVIARE TOPIC
Rispondi a: IMPOSSIBILE INVIARE TOPIC2020-06-29T17:06:24+02:00

Home Forum Domande su Excel VBA e MACRO IMPOSSIBILE INVIARE TOPIC Rispondi a: IMPOSSIBILE INVIARE TOPIC

Avatarpaolots
Partecipante
    Post totali: 14

    Dopo altro invio nel Forum domande ex e VBA trovo: TOPIC 235/Post 2302/ 1 minuto fa Paolots.

    Però non trovo traccia del messaggio inviato, ed ho lo stesso dubbio dell’antivirus.

    Per verifica riprovo a mandare il testo senza i link ai files. Ho seguito tuo consiglio del copia/incolla dal blocco note.

    Mi dispiace di questi inconvenienti, e mi affido alla tua pazienza.

     

    Per risolvere questo problema non saprei altro che fare se non cimentarmi in una serie infinita di IF-THEN.
    Se mi date un aiuto!!
    In allegato il file di input,  e le tabelle di output con risultato post elaborazione.
    Spero di aver esposto chiaramente e un grazie a tutti ed un saluto.
    Paolo
    File di input è “DATINP”;
    Sono file di output  due tabelle (TAB1 e TAB2);
    L’elaborazione consiste nella lettura sequenziale del file “DATINP”. Ogni record concorre alla creazione dei file “TAB1” e “TAB2”:
    1)        CREAZIONE “ TAB1”
    a) Leggo  record  del file “DATINP”;
    – Se valore “TIPO” uguale “AX”  si posiziona in riga 2 di “TAB1”
    – Se valore  “TIPO” uguale “OX” si posiziona in riga 3 di “TAB1”
    – Se valore  “TIPO” uguale “EX”  si posiziona in riga 4 di “TAB1”
    – Se valore ”TIPO” uguale “DX”  si posiziona in riga  5 di “TAB1”

    b) Se “MESE” di “DATINP” uguale “1” si posiziona in colonna “M1” di “TAB1” e incrementa valore di 1 in  M1, poi  si posiziona in“ MTOT” e lo incrementa di 1, e passa al punto 2 per la creazione di “TAB2”.
    Adotta stesso criterio per gli altri mesi.( se mese 2 incrementa M2, e “MTOT” e così di seguito).
    2)  CREAZIONE “TAB2
    c) -Se valore “TIPO” (“DATINP”) uguale  “AX” e “CODICE” uguale “DM” posiziona in riga 2 di “TAB2”;
    -Se      “          “                               “        “AX” e        “               “     “OC”              “          “  3  “      “      ;
    -SE     “          “                               “        “AX” e        “               “      “RE”              “         “   4  “      “      ;
    -Se      “         “                                “        “AX”e        “               “      “DV”              “         “   5  “      “      .
    Continua al punto  g).

    d) -Se valore “TIPO” (“DATINP”) uguale  “OX” e “CODICE” uguale “DM” posiziona in riga 6 di “TAB2”;
    -Se      “          “                               “        “OX” e        “               “     “OC”              “          “  7  “      “      ;
    -SE     “          “                               “        “OX” e        “               “      “RE”              “         “   8  “      “      ;
    -Se      “         “                                “        “OX” e        “               “      “DV”              “         “  9  “      “     .
    Continua al punto g).

    e) -Se valore “TIPO” (“DATINP”) uguale  “EX” e “CODICE” uguale “DM” posiziona  riga  10 di “TAB2”;
    -Se      “          “                               “        “EX” e        “               “     “OC”              “       “    11  “      “      ;
    -SE     “          “                               “        “EX” e        “               “      “RE”              “       “    12 “      “      ;
    -Se      “         “                                “        “EX ”e        “               “      “DV”              “       “   13  “      “     .
    Continua al punto g).

    f) -Se valore “TIPO” (“DATINP”) uguale  “DX” e “CODICE” uguale “DM” posiziona riga  14 di “TAB2”;
    -Se      “          “                               “        “DX” e        “               “     “OC”              “       “  15  “      “      ;
    -SE     “          “                               “        “DX” e        “               “      “RE”              “       “  16  “      “      ;
    -Se      “         “                                “        “DX”e        “               “      “DV”              “       “  17 “      “      .

    g) Analogamente al precedente sub b) del punto 1 analizzando il “MESE” di “DATINP” si procede con il posizionamento in “Mx” e “MTOT” di “TAB2” incrementando di 1 il valore di entrambi.

    3)        Si rientra al punto 1 per la lettura di “DATINP”.