Posts by DarrenSmith1981

Yes thanks all is fine now

I`ve found a row then trying to find a cell below the row but can`t seem to make it work?

Private Sub Fill_Details_to_JobRecord_Click()


TurnOff
Dim SrcOpen As Workbook
Dim JCM As Worksheet
Dim TGSR As Worksheet
Dim FilePath As String
Dim Filename As String
Dim StartCell As Range
Dim rng As Range
Dim iRow As Integer
Dim i As Long


Dim JobNo As String




Set JCM = ThisWorkbook.Worksheets("Job Card Master")




FilePath = "\\tgs-srv01\share\ShopFloor\PRODUCTION\JOB BOOK\"
Filename = "JOB RECORD SHEET1.xlsm"


Set SrcOpen = Workbooks.Open(FilePath & Filename)
Set TGSR = SrcOpen.Worksheets("TGS JOB RECORD")


With JCM


iRow = .Range("S13:S" & .Rows.Count).Find("SELLING PRICE", LookIn:=xlValues, lookat:=xlWhole).Row
iRow = iRow + 4


End With


JobNo = JCM.Range("G2").Value


With TGSR


i = .Range("A13:A" & .Rows.Count).Find(JobNo, LookIn:=xlValues, lookat:=xlWhole).Row


.Cells(i, 22) = JCM.Range("T1", JCM.Cells(iRow, 20)).Value
.Cells(i, 23) = JCM.Range("T1", JCM.Cells.Offset(iRow + 11, 22)).Value
.Cells(i, 22) = JCM.Range("T1", JCM.Cells.Offset(iRow + 13, 22)).Value
'                    .Cells(i, 23) = JCM.Cells(iRow.Offset(11, 22)).Value
'                    .Cells(i, 24) = JCM.Cells(iRow.Offset(13, 22)).Value
'                    .Cells(i, 25) = JCM.Cells(iRow.Offset(15, 22)).Value
'                    .Cells(i, 26) = JCM.Cells(iRow.Offset(2, 20)).Value
'                    .Cells(i, 27) = JCM.Cells(iRow.Offset(11, 24)).Value
'                    .Cells(i, 28) = JCM.Cells(iRow.Offset(13, 24)).Value
'                    .Cells(i, 29) = JCM.Cells(iRow.Offset(15, 24)).Value


End With




SrcOpen.Close
TurnOn
End Sub

What error do you find with this because it`s always worked for me?

I still get an error with

1. Jobcard_Parts.Show

I cannot find a Frame that is called Jobcard_Parts, but you wouldn't use Show with a Frame.

If you make the form higher you will see I`ve placed it below the other frames.

What would you use if not show, again this is of a video?

The top code was done after watching a video then I copied the way he did it.

This code below opens a frame in the user form to save having 2 user forms.

1. Private Sub Parts_List_Click()
4. If Me.Parts_List.Value = True Then
6. Me.Parts_List.Caption = "Close Parts Form"
8. Jobcard_Parts.Show

Here you go

Automated Cardworker.xlsm

Sorry, it still won't work.

Can`t find any more errors??

Sorted should have said Parts_List

Parts_FormParts_Form

Why is this wrong below always worked for me??

1. With Me.Toolpod_Width
2. 'Me.Toolpod_Width.Clear ''/// this is wrong!
3. .Clear

Here you go

Automated Cardworker.xlsm

I`ve added the code directly to the Listbox code now.

The idea is to copy a range based on the selection of the Listbox. Then copy and paste to the destination sheet.

For some reason, the code does not seem to copy the data from the source sheet?? But the rest I`ve debugged

This code below says Invalid List Property??

If Me.Quote_Details.List(x, 1) = ("Boxer") & "" & Me.Quote_Details.List(x, 4) = ("L2") & "" & Me.Quote_Details.List(x, 2) = ("Single") Then

Very sorry but don`t understand the last reply please could you change the code then send it to me?

What I am trying to do is below.

Trying to find a value in source sheet data column then copy a range to dest sheet data & paste the range to destination worksheet offset 1 column over.

It`s found by the multiple column choices made on the Listbox.

I've added it to the form as you said.

How can you make the below code work taking various combined values of ComboBox?

Seems that except for that it`s working?

For x = 0 To Me.Quote_Details.ListCount - 1
If Me.Quote_Details.Selected(x) Then
If Me.Quote_Details.List(x, 1) = ("Boxer") & "" & Me.Quote_Details.List(i, 4) = ("L2") & "" & Me.Quote_Details.List(i, 2) = ("Single") Then
RngSource("A72:O78").Copy Destination:=Addme
End If
End If
Next x

Its quote detail Combobox on the upper level of the form.

I am dimming it because is on a Module Called "Electric_Wires"

The Combobox is on the 4th line then set on line 10

This line says QDetials Variable not Defined but as far as i can see it is

If QDetails_Details.List(i, 1) = ("Boxer") & "" & QDetails_Details.List(i, 4) = ("L2") & "" & QDetails_Details.List(i, 2) = ("Single") Then

Hi

This is a combobox

Please can somebody help Today

Here you go

Automated Cardworker.xlsm