Not being able to find the range path..need help!!!!! [Closed]

Report
Posts
1
Registration date
Wednesday February 3, 2016
Status
Member
Last seen
February 3, 2016
-
Sub INSERT_PIC()
Application.ScreenUpdating = False
On Error Resume Next
' Macro3 Macro
' Macro recorded 22/05/2002 by SVK
'

Worksheets("Picture").Select

lrow = Worksheets("Details").Range("F65536").End(xlUp).Row

'For t = 6 To 6618 march 16
t = 1
For i = 2 To lrow

i = i

design = Worksheets("Details").Range("F" & i).Value
kt = Worksheets("Details").Range("G" & i).Value & " / " & Worksheets("Details").Range("H" & i).Value
gwt = Worksheets("Details").Range("I" & i).Value
Net = Worksheets("Details").Range("J" & i).Value
dwt = Worksheets("Details").Range("K" & i).Value
cwt = Worksheets("Details").Range("L" & i).Value
Field1 = Worksheets("Details").Range("M" & i).Value
Field2 = Worksheets("Details").Range("N" & i).Value


Range("A" & t).Select
pic1 = Range("D1") & design & ".jpg"
ActiveSheet.Pictures.Insert(pic1).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 155.75
Selection.ShapeRange.Width = 155.75
Selection.ShapeRange.Top = ActiveSheet.Range("A" & t).Top + 5
Selection.ShapeRange.Left = ActiveSheet.Range("A" & t).Left + 5
' Selection.ShapeRange.IncrementLeft 6.25
'Selection.ShapeRange.IncrementTop 6.25

ActiveCell.Select

ActiveCell.Offset(1, 0).Value = design
ActiveCell.Offset(2, 0).Value = "Gross wt :" & Format(gwt, "0.00")
ActiveCell.Offset(3, 0).Value = "Dia wt :" & Format(dwt, "0.00")
ActiveCell.Offset(4, 0).Value = "Dia wt :" & Format(cwt, "0.00")
' stop value
'suresh
ActiveCell.Offset(1, 1).Value = kt
ActiveCell.Offset(2, 1).Value = "Net wt :" & Format(Net, "0.00")
ActiveCell.Offset(3, 1).Value = Field1
ActiveCell.Offset(4, 1).Value = Field2