Beginner to VBA

[gdmeckes]

Hello,

I've been creating Macros for Excel for the past couple of months, and I have an error in one of them that I need to fix, which has brought me to the VBA code world. Where is the best place/site to try to begin learning to write and edit macros in VBA?

 

[Michael M]

OK, the LR line needs to move up to the top...

Sub PayloadDetailInsertColumnstoRound()
Dim lr As Long
lr = Cells(Rows.Count, "F").End(xlUp).Row
Columns("B:B").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.NumberFormat = "General"
Range("B1").Value = "Loads"
Range("B2:B" & lr).Value = "1"
Columns("E:E").NumberFormat = "0"
Columns("G:G").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("J:J").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("L:L").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("N:N").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("P:P").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("S:S").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F1").Copy Range("G1")
Range("I1").Copy Range("J1")
Range("K1").Copy Range("L1")
Range("M1").Copy Range("N1")
Range("O1").Copy Range("P1")
Range("R1").Copy Range("S1")
Range("G1").Value = "Travel Empty Time Round"
Range("J1").Value = "Stopped Empty Time Round"
Range("L1").Value = "Load Time Round"
Range("N1").Value = "Stopped Loaded Time Round"
Range("P1").Value = "Loaded Travel Time Round"
Range("S1").Value = "Cycle Time Round"
Range("G2:G" & lr).Formula = "=ROUND(F2*(86400/30),0)/(86400/30)"
Range("G2:G" & lr).NumberFormat = "mm:ss"
Range("G2").Copy Range("J2:J" & lr)
Range("J2").Copy Range("L2:L" & lr)
Range("L2").Copy Range("N2:N" & lr)
Range("N2").Copy Range("P2:P" & lr)
Range("P2").Copy Range("S2:S" & lr)
Range("S2:S" & lr).NumberFormat = "h:mm:ss"
End Sub

 

[James255]

Hi dear,

You can learn VBA from here Excel VBA - Information, Tutorials, Examples & Resources | Chandoo.org - Learn Microsoft Excel Online