UMAKEMESIK
Active Member
- Joined
- Oct 3, 2005
- Messages
- 378
I use this code from one worksheet to open another worksheet and
transfer data from selected cells
I would like to submit the form again
but this time search Protective Packaging order log.xlsm
and look for ( in some sort of search, this is what I don't have figured out)
Instead of setting that last row
can I start a search?
and possibly do something like this
I don't know the syntax so I made this up.
thanks in advance
transfer data from selected cells
Code:
Workbooks.Open Filename:="R:\General\COVER SHEET_Protective\Protective Packaging Order Log.xlsm", Password:="PP", WriteResPassword:="PP"
Set LastRow = Sheets("ORDER LOG").Cells(Rows.Count, 1).End(xlUp)
With LastRow
.Offset(1, 0) = ws.[G3]
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1), _
Address:="R:\General\COVER SHEET_Protective\" & Range("B2") & "\" & Range("C3") & "\" & Range("G3") & " - Order.xlsm"
.Offset(1).Font.Size = 14
.Offset(1, 1) = ws.[B2]
.Offset(1, 2) = ws.[C3]
.Offset(1, 3) = ws.[G7]
.Offset(1, 4) = ws.[c7]
.Offset(1, 5) = ws.[G5]
.Offset(1, 6) = ws.[D10]
.Offset(1, 7) = ws.[D11]
.Offset(1, 8) = ws.[D12]
End With
I would like to submit the form again
but this time search Protective Packaging order log.xlsm
and look for ( in some sort of search, this is what I don't have figured out)
Code:
.Offset(1, 0) = ws.[G3]
Instead of setting that last row
can I start a search?
Code:
Set LastRow = Sheets("SR LOG").Cells(Rows.Count, 1).End(xlUp)
With LastRow
and possibly do something like this
I don't know the syntax so I made this up.
Code:
.Offset(1, 7) = ws.[F32]
.Offset(1, 8) = ws.[AB16]
If Range("AB18").Value <> "" Then Next
Else
.Offset(1, 9) = ws.[AB18]
If Range("p28").Value <> "" Then Next
Else
.Offset(1, 10) = ws.[P28]
thanks in advance