Condividi:        

MACRO EXCEL 2007

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

MACRO EXCEL 2007

Postdi rozzo » 07/08/15 13:07

buongiorno, vorrei sapere una info:

Mi hanno assegnato un lavoro, ma non so proprio da dove iniziare:

Allora:
Dovrei scrivere delle macro in Excel per fare in modo che quando ricevo un file in Excel, applicando delle macro mi ordini le colonne come voglio io, sapete aiutarmi? :?: :?: :?:
rozzo
Newbie
 
Post: 9
Iscritto il: 07/08/15 12:58

Sponsor
 

Re: MACRO EXCEL 2007

Postdi alfrimpa » 07/08/15 13:22

Ciao Rozzo

Ma tu l'ordinamento manuale lo sai fare?

Se si, puoi farlo manualmente e registrando il tutto con il Registratore di macro avrai il codice.

Certo non sarà perfetto ma è giusto per iniziare.

E poi dovresti dare qualche informazione in più: che tipo di ordinamento devi fare, su quali colonne etc. Se alleghi un file di esempio con il risultato voluto sarà più semplice aiutarti (anche se in questo periodo considerando le ferie non la vedo facilissima).

P.S. Domanda retorica: ma chi ti ha affidato il lavoro non era a conoscenza del fatto che tu non sapevi da dove iniziare?
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: MACRO EXCEL 2007

Postdi rozzo » 07/08/15 13:30

no, non ne era a conoscenza...

non puoi darmi un codice macro da inserire?
Se vuoi....


In pratica ti spiego meglio...

Ho delle caselle:

A1 FORNITORE
B1 ARTICOLO
C1 DATA CONSEGNA
D1 ULTIMA BOLLA
E1 DATA ULTIMA BOLLA
F1 CONTRATTO

tutto questo è quello che mi manda il fornitore
In pratica io devo mettere in ordine tutte queste caselle automaticamente come voglio io.
Però c'è un problema...

La macro che ho gia in mano mi salva il file in csv e io lo vorrei in file .txt

Eccola:

Sub ARGO()
'

'

'
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Cut
Columns("I:I").Select
ActiveSheet.Paste
Columns("C:C").Select
Selection.Cut
Columns("J:J").Select
ActiveSheet.Paste
Range("D1").Select
Selection.Copy
Range("C1").Select
ActiveSheet.Paste
Columns("C:C").ColumnWidth = 16.14
Columns("C:C").ColumnWidth = 19.43
Range("C2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(RC[1],""AAAAMMGG"")"
Range("C2").Select
Selection.Copy
Range("C3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("C:C").Select
Selection.Copy
Columns("K:K").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.ColumnWidth = 8.57
Columns("K:K").EntireColumn.AutoFit
Columns("E:E").Select
Application.CutCopyMode = False
Selection.Cut
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Columns("L:L").Select
ActiveSheet.Paste
Columns("F:F").Select
Selection.Cut
Columns("M:M").Select
ActiveSheet.Paste
Columns("G:G").Select
Selection.Cut
ActiveWindow.SmallScroll ToRight:=2
Columns("N:N").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("H1").Select
Selection.Copy
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("G:G").EntireColumn.AutoFit
Range("G2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXT(RC[1],""AAAAMMGG"")"
Range("G2").Select
Selection.Copy
Range("G3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("G:G").Select
Selection.Copy
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.SmallScroll ToRight:=2
Columns("O:O").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("O:O").EntireColumn.AutoFit
Selection.Replace What:="47120101", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("P1").Select
ActiveWindow.SmallScroll ToRight:=4
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 1
End With
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = "RIFERIMENTO"
With ActiveCell.Characters(Start:=1, Length:=11).Font
.Name = "Arial Unicode MS"
.FontStyle = "Normale"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("P2").Select
Columns("P:P").ColumnWidth = 16.71
Range("P1").Select
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("A:H").Select
Range("H1").Activate
Selection.Delete Shift:=xlToLeft
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Columns("H:H").Select
Selection.Replace What:="", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("I1").Select
ActiveCell.FormulaR1C1 = "DATA_PROGR."
Range("I2").Select
Columns("I:I").EntireColumn.AutoFit
ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",TEXT(R1C11,""AAAAMMGG""))"
Range("I2").Select
Selection.Copy
Range("I3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("I:I").Select
Selection.Copy
Columns("J:J").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("J1").Select
Columns("I:I").EntireColumn.AutoFit
Selection.ClearContents
ActiveWorkbook.Save
End Sub



Aiutami :aaah :aaah :aaah :aaah :aaah :aaah :aaah :aaah
rozzo
Newbie
 
Post: 9
Iscritto il: 07/08/15 12:58

Re: MACRO EXCEL 2007

Postdi alfrimpa » 07/08/15 13:50

Ciao Rozzo

Io da stasera e per tre settimane sono in ferie per cui anche volendo non posso aiutarti.

Comunque lascia perdere la macro.

Allega con filedropper o dropbox il tuo file (con dati fittizi) con la situazione di partenza e mostra il risultato (scritto anche manualmente) cui vuoi pervenire perchè io non ho qual è l'ordinamento che devi fare.

Che io sappia (ma potrei sbagliare) csv e txt sono la stessa cosa e comunque excel consente anche il salvataggio in txt.

Allegamil file, cerca di essere più chiaro in quello che vuoi e vedrai che qualcuno ti aiuterà.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: MACRO EXCEL 2007

Postdi alfrimpa » 07/08/15 14:48

Mi sbagliavo: mi pare che Excel non salvi in txt

In alternativa si potrebbe copiare il foglio sul Notepad e salvare in txt da lì.

Ma ripeto la tua richiesta non è per nulla chiara.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: MACRO EXCEL 2007

Postdi rozzo » 07/08/15 15:01

Se mi mandi la tua email in privato posso mandarti gli allegati e spiegarti meglio la situazione
rozzo
Newbie
 
Post: 9
Iscritto il: 07/08/15 12:58

Re: MACRO EXCEL 2007

Postdi alfrimpa » 07/08/15 15:08

Il Forum è un luogo pubblico di condivisione quindi non è corretto rivolgersi ad un singolo utente.

Ti è così difficile allegare un file e spiegare per bene cosa vuoi ottenere in modo che chi voglia rispondere lo possa fare sulla base della tua spiegazione?

Ti ripeto io ora sono in ferie per 3/4 settimane e quindi non avrò il pc a disposizione per cui, anche volendo, non potrei fare nulla.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: MACRO EXCEL 2007

Postdi rozzo » 07/08/15 18:28

Tranquillo ho fatto tutto....
Ringrazio di cuore la guida di office che in 2 minuti è riuscita a spiegarmi tutto....
rozzo
Newbie
 
Post: 9
Iscritto il: 07/08/15 12:58

Re: MACRO EXCEL 2007

Postdi alfrimpa » 07/08/15 18:43

A beneficio del forum sarebbe utile che tu spiegassi come hai risolto così se altri si trovano nella tua stessa situazione possano usufruirne.

Questo sempre per lo spirito di condivisione di tutti i forum cui facevo riferimento prima.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli


Torna a Applicazioni Office Windows


Topic correlati a "MACRO EXCEL 2007":


Chi c’è in linea

Visitano il forum: Nessuno e 100 ospiti