Domanda:

vorrei chiederle un controllo del codice seguente, lo scopo del codice è il salvataggio del file in una directory specifica e se la directory esiste, salvare il file con il nome specifico.
in attesa

Sub salvaFile()
 On Error GoTo mess
 Dim p As Worksheet
 Dim Directory As String
 Dim NomeFile As String
 Dim ctrl As Boolean
 Dim x As Integer
 ctrl = True
 x = 1
Set p = Worksheets("R22-3")
Directory = p.Cells(23, 20).Value
 NomeFile = p.Cells(24, 20).Value
Do While ctrl = True
 ctrl = Len(Dir(Directory & NomeFile))
 x = x + 1
 Loop
ChDir Directory
 ActiveWorkbook.SaveAs Filename:=NomeFile, FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
mess:
 msgbox "Errore - Riprovare"
End Sub

Risposta:

Nel codice bisogna apportare 2 modifiche:

1) sostituire ‘Filename:=NomeFile’ con ‘Filename:=Directory & NomeFile’, se ha scritto la directory con ‘\’ alla fine, o in caso contrario con ‘Filename:=Directory & “\” & NomeFile’

2) scrivere Exit Sub prima di mess: altrimenti il messaggio di errore appare anche in assenza di errori

Riccardo Vincenti

Domanda:

Salve, volevo sapere se in qualche modo era possibile creare un foglio excel per questo lavoro: Fare una 3 colonne rispettivamente: “titolo film” “produttore” e “attori” e una volta scritti film produttori e attori , una volta ordinato (per esempio) in base ad un particolare attore gli titolo e produttore seguono l’ordinamento dell’attore di quel film. Spero di essermi spiegato bene, grazie della risposta.

Risposta:

nel file allegato trovate la macro per cercare una parola in un testo e restituire le informazioni collegate. Filtra Attore

Riccardo Vincenti

Domanda:

Complimenti per il sito…molto interessante
Avrei bisogno di visualizzare un diagramma ad albero (tipo quello che si visualizza con esplora risorse di windows) all\’apertura di excel oppure word, per poterci collegare dei file sia di excel, word, pdf, ecc. in modo di avere una visione generale della struttura del progetto, con possibilità di apertura dei singoli file. Spero di essermi spiegato bene. Saluti

Public Sub SelezionaFileDaAprire()

Dim fDialog As Office.FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim selezione As Variant
Dim PercorsoStandard As String

  PercorsoStandard = "C:\"    'inserisci il percorso che desideri aprire di default

With fDialog
    .AllowMultiSelect = False
    .Title = "Seleziona il file da aprire"
    .InitialFileName = PercorsoStandard

    If .Show = -1 Then
        For Each selezione In .SelectedItems
            FileDaAprire = selezione
            ActiveWorkbook.FollowHyperlink Address:=FileDaAprire
        Next
    Else
        MsgBox "Caricamento annullato!", vbInformation  'quanto premi ‘cancella’ la macro si stoppa
        Exit Sub
    End If
End With
Set selezione = Nothing
Set fDialog = Nothing
End Sub

Domanda:

Scopiazzando sul web sono riuscito a creare la seguente macro che
vorrei modificare:
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = \”ELENCO GIOCATORI\”
.Cells(1, 2) = \”IMPORTO Assegnato\”
.Cells(1, 1).Name = \”Sommario\”
End With

For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range(\”A1\”).Name = \”Start\” & wSheet.Index
.Hyperlinks.Add Anchor:=.Range(\”A1\”), Address:=\”\”, SubAddress:= _
\”Sommario\”, TextToDisplay:=\”Torna al Sommario\”

End With
Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:=\”\”, _
SubAddress:=\”Start\” & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub

questa crea un sommario automatico dei fogli di lavoro
presenti in una cartella excel.
Mi occorrerebbe inserire nella colonna B il totale del foglio di
lavoro relativo.
Potreste aiutarmi cortesemente?
vi ringrazio anticipatamente ….

——-

Risposta:

negli sheet 2,3,4 ho inserito in posizioni diverse a titolo didattico, una colonna dove puoi inserire gli importi che verranno sommati e mostrati nello sheet ‘Sommario’. Ho parametrizzato infatti il codice per permetterti di collocare la colonna dove prefierisci. La macro viene lanciata automaticamente al verificarsi dell’evento Workbook_Open e può essere eseguita anche premendo il bottone ‘Aggiorna’.

In allegato trovi il file con i commenti inseriti direttamente nel modulo VBA.

Importo Assegnato

Riccardo Vincenti