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 16: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
    718
    Versione Office
    2010 - Win10
    Likes ricevuti
    76
    Likes dati
    30

    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
  •