beantownmt
New Member
- Joined
- Aug 29, 2011
- Messages
- 11
Hi All
I have a sheet that is set up for Manual Data entry with a trigger point as well as a Macro to import data large series of Data.
The formulas I'm using.
Import Data Macro
Application.EnableEvents = False
r = rngCell.Row
'u = Sheets("JeffsTransp").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("JeffsTransp").Rows(u & ":" & u).Insert Shift:=xlDown
Sheets("JeffsTransp").Range("B" & u) = Sheets("Sheet1").Range("C" & r)
Sheets("JeffsTransp").Range("C" & u) = Sheets("Sheet1").Range("D" & r)
Sheets("JeffsTransp").Range("D" & u) = Sheets("Sheet1").Range("B" & r)
Sheets("JeffsTransp").Range("F" & u) = Sheets("Sheet1").Range("L" & r)
Sheets("JeffsTransp").Range("G" & u) = Sheets("Sheet1").Range("E" & r)
Sheets("JeffsTransp").Range("H" & u) = Sheets("Sheet1").Range("F" & r)
Sheets("JeffsTransp").Range("I" & u) = Sheets("Sheet1").Range("G" & r)
Sheets("JeffsTransp").Range("K" & u) = Sheets("Sheet1").Range("H" & r)
Sheets("JeffsTransp").Range("L" & u) = Sheets("Sheet1").Range("I" & r)
Sheets("JeffsTransp").Range("M" & u) = Sheets("Sheet1").Range("J" & r)
Sheets("JeffsTransp").Range("N" & u) = Sheets("Sheet1").Range("O" & r)
Sheets("JeffsTransp").Range("T" & u) = Sheets("Sheet1").Range("M" & r)
Application.EnableEvents = True
Calculation Formula that hits the Trigger Point Only problem is I cant get it to work with Above Formula, This will only calculate the first row (15)
Private Sub DoThings()
With Range("S15")
'.Formula = Range("E6") + Range("E7")
'.Formula = Range("A4") + Range ("A15)
.Formula = Range("L16") * Range("N16")
.Formula = Range("L16") + Range("O16")
.Formula = Range("L16") + Range("M16") * Range("R16")
.Formula = Range("S16") * Range("T16")
.Formula = Range("Q16") - Range("S16") - Range("U16") + Range("P16")
End With
End Sub
Is there a better way to accomplish the Cell calcualtions after the import is done.?
Any help will be greatly appreciated.
I have a sheet that is set up for Manual Data entry with a trigger point as well as a Macro to import data large series of Data.
The formulas I'm using.
Import Data Macro
Application.EnableEvents = False
r = rngCell.Row
'u = Sheets("JeffsTransp").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("JeffsTransp").Rows(u & ":" & u).Insert Shift:=xlDown
Sheets("JeffsTransp").Range("B" & u) = Sheets("Sheet1").Range("C" & r)
Sheets("JeffsTransp").Range("C" & u) = Sheets("Sheet1").Range("D" & r)
Sheets("JeffsTransp").Range("D" & u) = Sheets("Sheet1").Range("B" & r)
Sheets("JeffsTransp").Range("F" & u) = Sheets("Sheet1").Range("L" & r)
Sheets("JeffsTransp").Range("G" & u) = Sheets("Sheet1").Range("E" & r)
Sheets("JeffsTransp").Range("H" & u) = Sheets("Sheet1").Range("F" & r)
Sheets("JeffsTransp").Range("I" & u) = Sheets("Sheet1").Range("G" & r)
Sheets("JeffsTransp").Range("K" & u) = Sheets("Sheet1").Range("H" & r)
Sheets("JeffsTransp").Range("L" & u) = Sheets("Sheet1").Range("I" & r)
Sheets("JeffsTransp").Range("M" & u) = Sheets("Sheet1").Range("J" & r)
Sheets("JeffsTransp").Range("N" & u) = Sheets("Sheet1").Range("O" & r)
Sheets("JeffsTransp").Range("T" & u) = Sheets("Sheet1").Range("M" & r)
Application.EnableEvents = True
Calculation Formula that hits the Trigger Point Only problem is I cant get it to work with Above Formula, This will only calculate the first row (15)
Private Sub DoThings()
With Range("S15")
'.Formula = Range("E6") + Range("E7")
'.Formula = Range("A4") + Range ("A15)
.Formula = Range("L16") * Range("N16")
.Formula = Range("L16") + Range("O16")
.Formula = Range("L16") + Range("M16") * Range("R16")
.Formula = Range("S16") * Range("T16")
.Formula = Range("Q16") - Range("S16") - Range("U16") + Range("P16")
End With
End Sub
Is there a better way to accomplish the Cell calcualtions after the import is done.?
Any help will be greatly appreciated.