Ciao a tutti,
avrei un problemino con la macro qui sotto..
vorrei aprire un file, formattarlo come piace a me e poi sommare a due colonne due variabili, copiare il risultato sulle colonne di origine, e salvare il file…
il problema è che vorrei utilizzare inputbox per immettere le due variabili, ma sembra che excel non le riconosca come numeri, infatti il risultato della somma è un errore..
ho cercato la soluzione, ma devo ammettere che non ci ho capito molto..
grazie a tutti in anticipo!
MACRO:
Sub Macro1()
'
' Macro1 Macro
'
' Scelta rapida da tastiera: CTRL+Q
'
Dim e As Variant
Dim n As Variant
Dim lastrow As Long
e = Application.InputBox("Inserisci Shift Easting")
n = Application.InputBox("Inserisci Shift Northing")
last row = Cell(Rows.Count, 1).End(xlUp).Row
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
Range("F1").Select
ActiveCell.Formula = "=SUM(RC[-3]+ e)"
Range("G1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-3]+ n)"
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F" & lastrow&)
Range("G1").Select
Selection.AutoFill Destination:=Range("G1:G" & lastrow&)
Range("F1:G" & lastrow&).Select
Selection.Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("F:G").Select
Application.CutCopyMode = False
Selection.ClearContents
NOMEFILE$ = ActiveWorkbook.FullName '& ".csv"
lun = Len(ActiveWorkbook.FullName)
NOME = Left(NOMEFILE, (lun - 3))
NOMEFILE$ = NOME & "csv"
ActiveWorkbook.SaveAs Filename:= _
NOMEFILE _
, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
End Sub
ESEMPIO FILE
13/06/2013,22:39:22,9479335.03,4435234.31,49657.223
13/06/2013,22:39:22,9479335.03,4435234.31,49657.245
13/06/2013,22:39:22,9479335.03,4435234.31,49657.245
13/06/2013,22:39:23,9479335.03,4435234.31,49657.245
13/06/2013,22:39:23,9479335.03,4435234.31,49657.223
13/06/2013,22:39:23,9479335.03,4435234.31,49657.245
13/06/2013,22:39:23,9479335.03,4435234.31,49657.223
13/06/2013,22:39:23,9479335.03,4435234.31,49657.245
13/06/2013,22:39:23,9479335.03,4435234.31,49657.223
13/06/2013,22:39:23,9479335.03,4435234.31,49657.245
13/06/2013,22:39:23,9479335.03,4435234.31,49657.245
13/06/2013,22:39:23,9479335.03,4435234.31,49657.223
13/06/2013,22:39:23,9479335.03,4435234.31,49657.223