Condividi:        

aggiunta di una colonna con nome file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

aggiunta di una colonna con nome file

Postdi luca62 » 14/01/16 09:01

Vorrei aggiungere una colonna ad foglio che viene compilato grazie ad un macro fattami da Anthony tempo fa.
In pratica ho la necessità ,quando vado a copiare le celle da un foglio (riepilogo ordini) all'altro (ordini)
di aggiungere una colonna (la M) con tutte le celle = al nome del file , e questo per tutte le celle piene.
allego la macro
Codice: Seleziona tutto
Sub DAARRIVARE()
    Set Ws1 = Sheets("RIEPILOGO ORDINI")
    Set Ws2 = Sheets("DA ARRIVARE")
   
    UC = Ws1.Cells(2, Columns.Count).End(xlToLeft).Column
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
   
    Ws2.Cells.Clear
    For CC = 1 To UC - 12 Step 11
    Ws1.Range(Ws1.Cells(3, CC), Ws1.Cells(150, CC + 10)).Copy Destination:=Ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    Next CC
 
   
    Ws1.Range("A1:E1").Copy Destination:=Ws2.Range("A1")
    Ws1.Range("F2:k2").Copy Destination:=Ws2.Range("F1")
   
 
   
    UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
    For RR2 = UR2 To 2 Step -1
    If Ws2.Range("C" & RR2).Value = 0 Or Ws2.Range("h" & RR2).Value = 0 Or Ws2.Range("K" & RR2).Value <> 0 Then Ws2.Rows(RR2).Delete
    Next RR2
    myMatch = Application.Match(CLng(Int(Now)), Range("K:K"))
If Not IsError(myMatch) Then
    Cells(myMatch, 1).Offset(1, 0).Resize(10000, 10).ClearContents
End If
       
 

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    End Sub
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Sponsor
 

Re: aggiunta di una colonna con nome file

Postdi wallace&gromit » 14/01/16 22:13

Se ho capito bene il codice che hai postato alla fine tieni solo righe piene, quindi dopo l'istruzione End if potresti mettere:
Codice: Seleziona tutto
UR3 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For pippo = 2 To UR3
Ws2.Range("M" & pippo) = ActiveWorkbook.Name
Next pippo
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: aggiunta di una colonna con nome file

Postdi luca62 » 15/01/16 06:59

tutto ok, ma se inveec del nome file attivo, voglio inserire solo il nome del file ,
ma senza l'estensione? Ossia in modo che mi appaia pippo nella cella invece di
pippo.xlsm?
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Re: aggiunta di una colonna con nome file

Postdi luca62 » 15/01/16 07:26

mi ero dimenticato una cosa:
tutto ok, ma se inveec del nome file attivo, voglio inserire solo il nome del file ,
ma senza l'estensione? Ossia in modo che mi appaia pippo nella cella invece di
pippo.xlsm?
inoltre come facci dire aa va conn di prendere stessa formattazione (bordi ,stile e altezza caratteri delle colonne da A a L?
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Re: aggiunta di una colonna con nome file

Postdi wallace&gromit » 15/01/16 08:38

Puoi modificare come segue, prima di next pippo:
Codice: Seleziona tutto
Nome = ActiveWorkbook.Name
punto = InStr(1, Nome, ".")
Nome = Left(Nome, punto - 1)
Ws2.Range("M" & pippo) = Nome

    Ws2.Range("A" & pippo).Select
    Selection.Copy
    Ws2.Range("M" & pippo).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: aggiunta di una colonna con nome file

Postdi luca62 » 15/01/16 18:48

funziona! grazie
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54


Torna a Applicazioni Office Windows


Topic correlati a "aggiunta di una colonna con nome file":


Chi c’è in linea

Visitano il forum: Nessuno e 41 ospiti