Risultati da 1 a 3 di 3

Discussione: macro che parte da altri fogli



  1. #1
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61

    macro che parte da altri fogli

    ciao a tutti,
    ho questa macro presente in un file


    Sub Macro26()
    ' Scelta rapida da tastiera: CTRL+g
    If Left(ActiveSheet.Name, 6) = "Foglio" Then
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    Else
    Dim lem, Style, Title, Help, Ctxt, Response, MyString
    Style = vbOKOnly + vbInformation + vbApplicationModal
    Help = "DEMO.HLP"
    Ctxt = 1000
    lem = lem & "Sheet not eraseble " & vbLf & vbLf
    Response = MsgBox(lem, Style, Help, Ctxt)
    End If
    Worksheets("Begin").Activate
    Range("A1").Select
    End Sub
    solo che ho visto che quel Ctrl+G (che utilizzo per il grassetto) mi parte anche quando sono in altri file.
    Come posso far in modo che se ho aperto il primo file questo Ctrl+G sia per cancellare il foglio mentre (sempre con aperto il primo file) se sono in altri file quel Ctrl+G mi dia grassetto o cmq non mi faccia cancellare i fogli?
    Grazie anche per dei consigli.
    ciao
    ale

  2. #2
    L'avatar di Pagero
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano
    Età
    36
    Messaggi
    18
    Versione Office
    Excel 2013
    Likes ricevuti
    6
    Likes dati
    1
    Soluzione:

    Sub Macro26()
    ' Scelta rapida da tastiera: CTRL+g
    'Se il file attivo è "PrimoFile.xlsm" allora...
    If ActiveWorkbook.Name = "PrimoFile.xlsm" Then


    If Left(ActiveSheet.Name, 6) = "Foglio" Then
    Application.DisplayAlerts = False
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
    Else
    Dim lem, Style, Title, Help, Ctxt, Response, MyString
    Style = vbOKOnly + vbInformation + vbApplicationModal
    Help = "DEMO.HLP"
    Ctxt = 1000
    lem = lem & "Sheet not eraseble " & vbLf & vbLf
    Response = MsgBox(lem, Style, Help, Ctxt)
    End If
    Worksheets("Begin").Activate
    Range("A1").Select
    'Altrimenti
    Else
    'Se non è già in grassetto allora -> grassetto
    If Selection.Font.Bold = False Then
    Selection.Font.Bold = True
    Else
    'Altrimenti togli il grassetto
    Selection.Font.Bold = False
    End If


    End If
    End Sub

  3. #3
    L'avatar di Alessandro
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Roma
    Età
    45
    Messaggi
    851
    Versione Office
    2010 64 bit
    Likes ricevuti
    113
    Likes dati
    61
    ciao pegero,
    grazie della risposta.
    il punto è capire anche perchè parte ugualmente quella macro?
    In teoria, essendo stata memorizzata in quella cartella, perchè parte ugualmente?
    La vorrei provare in altri pc...magari parte solo sulla mia macchina?
    Come ho modo ci provo...per il momento cmq grazie ancora.
    ciao
    ale

Discussioni Simili

  1. Creazione Packing List - Dati Presenti su Altri Fogli ma nella Stessa Cartella
    Di Bauhaus nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/03/17, 00:12
  2. Creazione Packing List - Dati Presenti su Altri Fogli ma nella Stessa Cartella
    Di Bauhaus nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 06/03/17, 00:12
  3. loop su più fogli parte 2
    Di REMIGIO nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 25/01/17, 23:51
  4. Problema formula progressiva collegata ad altri fogli
    Di ale87 nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 19/05/16, 15:14
  5. Replicare pulsanti macro in altri fogli
    Di Mausa nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 19/10/15, 15:41

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
  •