Excel Forum

Code: Select all

Private Sub Cboproject_Change()
Dim Rw As Range
If Me.Cboproject.ListIndex < 0 Then Exit Sub
 With MyRange.Cells(1).Offset(Cboproject.ListIndex)
    txtCompony.Value = .Offset(, 0).Value
    txtAddress.Value = .Offset(, 1).Value
    txtTelephone.Value = .Offset(, 2).Value
    txtEmail.Value = .Offset(, 3).Value
    txtWebsite.Value = .Offset(, 4).Value
    End With
For Each Rw In Range(Cboproject.RowSource)
        If Cboproject.Value = Rw Then
            txtProducer.Value = Rw.Next.Next.Next.Next
         
         End If
         Next Rw
End Sub
Private Sub cmbSave_Click()
 Dim lo As Range
    Set lo = Range(ActiveSheet.ListObjects(cboTables.Value))
     If Me.Cboproject.ListIndex < 0 Then Exit Sub
     With lo.Cells(1).Offset(Cboproject.ListIndex)
     .Offset(, 0).Value = txtCompony
    .Offset(, 1).Value = txtAddress
    .Offset(, 2).Value = txtTelephone
    .Offset(, 3).Value = txtEmail
    .Offset(, 4).Value = txtWebsite
    End With
End Sub