Risultati da 1 a 3 di 3

Discussione: Macro VBA con Case



  1. #1
    L'avatar di fulvio88
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Bolzano
    Messaggi
    3
    Versione Office
    excel 2011
    Likes ricevuti
    0
    Likes dati
    0

    Macro VBA con Case

    Buon giorno a tutti Voi
    Da poco tempo sto provando ad utilizzare le macro. Vorrei se qualcuno di Voi mi pu˛ dare una mano a risolvermi il problema.
    Ho un macro che funziona comandata da un pulsante, questa macro produce un file.txt della colonna interessata.
    Mi spiego meglio, sto creando un foglio con dei men¨ dinamici, in base alle persone calcola la quantitÓ, poi con un tasto mi stampa il men¨.
    Fino a qua tutto bene. Ora mi Ŕ venuto l'idea (guardando un video di ForumExcel) di creare una tendina con tutti i vari nomi ed un solo tasto, per evitare tanti rasti quanti i men¨. Cercando su internet ho potuto capire che usando IF appesantisce il programma, la soluzione migliore Ŕ utilizzare Case. Se qualcuno riesce a darmi una dritta, ringrazio anticpatamente.

    Questa sotto funziona con il comando di un pulsante.

    Codice: 
    Private Sub Bolognese_Click()
    Dim FF As Long
    FF = FreeFile
    Open "C:\" & Range("B16").Value & ".txt" For Output As #FF
    For R = 1 To 222
    Print #FF, Sheets("menu").Cells(R, 1).Value
    Next R
    Close #FF
    MsgBox "Creato File per router Imola EFM con 1 porta eth DHCP e Nat in C:\ " & Range("B16"), 64, "Messaggio Macro CreaFile"
    End Sub
    Questa sotto Ŕ quella che ho provato a fare ma non mi funziona.

    Codice: 
    Private Sub produci_listato_Click()
    Dim FF As Long
    Select Case Range("C44").Value
    Case Is = "Parmigiana"
    FF = FreeFile
    Open "C:\" & Range("B16").Value & ".txt" For Output As #FF
    For R = 1 To 222
    Print #FF, Sheets("menu").Cells(R, 6).Value
    Next R
    Close #FF
    Case Is = "Bolognese"
    FF = FreeFile
    Open "C:\" & Range("B16").Value & ".txt" For Output As #FF
    For R = 1 To 222
    Print #FF, Sheets("menu").Cells(R, 1).Value
    Next R
    Close #FF
    End Select
    End Sub
    Ultima modifica fatta da:cromagno; 28/04/16 alle 17:55 Motivo: Inserito codice tra i tag CODE...

  2. #2
    L'avatar di fulvio88
    Clicca e Apri
    Data Registrazione
    Apr 2016
    LocalitÓ
    Bolzano
    Messaggi
    3
    Versione Office
    excel 2011
    Likes ricevuti
    0
    Likes dati
    0

    Re: Macro VBA con Case

    Ok ora funziona tutto:279:

  3. #3
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17

    Re: Macro VBA con Case

    te la fai e te la mangi....
    almeno spiega come hai risolto

    e metti RISOLTO a questo 3D

Tag per Questa Discussione

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
  •