Risultati da 1 a 2 di 2

Discussione: stampare il risultato su un file testo



  1. #1
    L'avatar di solenero
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Aprilia
    Età
    38
    Messaggi
    44
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    3

    stampare il risultato su un file testo

    Ciao a tutti.
    Volevo chiedervi un consiglio su come risolvere una situazione.

    -Spiego cosa fa la macro:
    Genera 6 numeri casuali, diversi tra loro, usando un range da 1 a 90, formando una sestina.
    la sestina generata viene confrontata con altre sestine già riportate nel foglio 2
    Se c'è esito positivo rispetto al controllo, i sei numeri vengono riportati nel foglio 1 nelle prime sei celle.
    Le celle vengono anche colorate a dare conferma del risultato.
    A conferma del risultato, viene anche generato un messaggio pop up.

    -Spiego cosa voglia faccia ulteriormente:
    Vorrei che azionando la macro, prima di iniziare la generazione mi chiedesse il numero delle sestine che vorrei generare.
    Ipotizzando di volerne 3, quando trova la prima sestina, mi trascrive e mi salva il risultato su un file txt* (i numeri devono essere separati da uno spazio). Quando trova la seconda sestina, mi trascrive e mi salva il risultato nello stesso file txt* nella seconda riga.
    Quando trova la terza sestina, mi trascrive e mi salva il risultato nello stesso file txt* alla terza riga.
    Ad ogni risultato trovato il file txt* viene salvato.

    Il file txt* può essere sia già stabilito, sia di nuova generazione (in questo caso come risulta più semplice e comodo per il codice).

    Pensate si possa fare?
    Grazie in anticipo. Buona serata. :)

    Codice: 
    Sub NumCas()
    Inizio:
    Worksheets("Foglio1").Range("A1:F1").Clear
    For NC = 1 To 6
    Ripeti:
    Cas = Int(Rnd(90) * 90) + 1
    If Evaluate("=COUNTIF(Foglio1!A1:F1," & Cas & ")") = 1 Then GoTo Ripeti
    Worksheets("Foglio1").Cells(1, NC).Value = Cas
    Next NC
    UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
    For RR2 = 1 To UR2
    If Evaluate("=SUM(COUNTIF(Foglio1!A1:F1,Foglio2!A" & RR2 & ":F" & RR2 & "))") > 2 Then GoTo Inizio
    Next RR2
    Worksheets("Foglio1").Select
    Worksheets("Foglio1").Range("A1:F1").Interior.ColorIndex = 43
    MsgBox "Elaborazione completata"
    End Sub
    Ultima modifica fatta da:cromagno; 15/05/16 alle 00:56 Motivo: Inserito codice tra i tag CODE...
    Invia MPPM 

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4024
    Versione Office
    2013
    Likes ricevuti
    1229
    Likes dati
    923

    Re: stampare il risultato su un file testo

    Ciao,
    prima di continuare, ti consiglio di leggere sia il Regolamento, sia la sezione Annunci dallo staff.

    I codici vanno messi tra i tag CODE (questa volta li metto io):
    http://www.forumexcel.it/forum/2-ann...tra-i-tag-code

    e soprattutto hai postato la tua domanda anche qui:
    http://www.excelvba.it/Forum/thread.php?f=1&t=10588

    Il cross-posting non è consentito.

    Regola nr.3 "Crossposting" la stessa domanda vietata su più forum
    Non è consentito postare lo stesso messaggio o parti di esso in più aree del forum o su altri forum di excel, salvo casi di particolare interesse che dovranno comunque essere autorizzati da un Admin
    Messaggi crossposting verranno chiusi e quando possibile riuniti.
    Se ripetuti potranno portare all'allontanamento dell'utente.
    Questa discussione verrà chiusa.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

Discussioni Simili

  1. [Risolto] Stampare da un file excel fogli di lavoro presenti su un altro file excel
    Di Lorex nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 09/12/16, 20:21
  2. [Risolto] Confronta testo in due celle e scrivi il risultato in una terza cella
    Di dade92 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 15/10/16, 12:46
  3. Accedere ad un file di testo (txt) con INDIRETTO, è possibile?
    Di stefano72 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 18/09/16, 11:25
  4. Leggere file di testo di 130 Mb privo di CR ma con LF
    Di patel nel forum Domande su Excel VBA e MACRO
    Risposte: 22
    Ultimo Messaggio: 02/09/16, 21:46
  5. Stampare su PDF in un unico file
    Di giancarlo64 nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 25/07/16, 12:08

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •