Open Userform1 when double click a row with selected vendor information.

josros60

Well-known Member
Joined
Jun 27, 2010
Messages
779
Office Version
  1. 365
Hi,

how can I modify the the code below when double click open the Userform with information from A:K for that vendor selected right now is opening the form but it's blank.

code:

VBA Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("A3:K135")) Is Nothing Then
        UserForm1.Show
    End If

End Sub

Attching sample

Book2
ABCDEFG
1SAGEIDVENDORINVOICE_NUMBERPO_NUMBERAPPROVERGL_CODELINE_DESCRIPTION
2100215ABC COMM.17786-28380,28620, 30862HD602110-28-500-100 Fixed Data - Customer - Data Services: C - TCOM - ONTFixed Data-Customer-Data Services-17786-
3100109AFX COMMUNICATIONS80017MJT603202-28-500-100 LD - TF - Other : C - TCOM - ONLD - TOLL FREE OTHER SERVICES
4100176AIRSPRING162072451JUNE 2022HD603220-28-500-100 LD Toll Dal: C - TCOM - ONLD - TollDAL-JUNE 2022
5100384BEANFIELD METROCONNECT (a/c BF01052205)90952500NOV-2021BF01052205-MJT602130-28-500-100 Fixed Data - Network - Data Services : C - TCOM - ONLEGACY DARK FIBRE SERVICES_CIRCUIT # 00085WF101001
6100053Allstream Business Inc. C/O T4622254259-NOV 2021254259-NOV 2021254259-JS603220-28-500-100 LD - Toll DAL : C - TCOM - ONLD - Toll DAL : C - TCOM - BC - 254259-NOV 2021
7100053Allstream Business Inc. C/O T4622254259-NOV 2021254259-NOV 2021254259-JS323112-08-000-500 HST ITC: G - G - BCHST NS
8100053Allstream Business Inc. C/O T4622164982-NOV 2021164982-EK608110-28-500-100 Fixed Voice - Network - Access & IX : C - TCOM - ONFixed Voice - Network - Access & IX BC - 164982-NOV 2021
9100053Allstream Business Inc. C/O T4622164982-NOV 2021NOV-2021164982-EK608110-28-500-100 Fixed Voice - Network - Access & IX : C - TCOM - ONFixed Voice - Network - Access & IX BC - 164982-NOV 2021
10100053Allstream Business Inc. C/O T4622164982-NOV 2021NOV-2021164982-EK608110-28-500-100 Fixed Voice - Network - Access & IX : C - TCOM - ONPST
11100053Allstream Business Inc. C/O T4622164982-NOV 2021NOV-2021164982-EK323112-08-000-500 HST ITC: G - G - BCGST
12100053Allstream Business Inc. C/O T4622177886761139885-EK605150-28-500-100 Local - Resold - Commercial : C - TCOM - ONLocal - Resold - Commercial - BC-1284630-
13100053Allstream Business Inc. C/O T4622177886761139885-NOV 20211139885-EK605150-28-500-100 Local - Resold - Commercial : C - TCOM - ONPST
14100053Allstream Business Inc. C/O T4622177886761139885-NOV 20211139885-EK605150-28-500-100 Local - Resold - Commercial : C - TCOM - ONLocal - Resold - Commercial - BC-1139885-
15100053Allstream Business Inc. C/O T4622177886761139885-NOV 20211139885-EK605150-28-500-100 Local - Resold - Commercial : C - TCOM - ONLocal - Resold - Commercial - BC-1139885-EK
16100072ANI NETWORKS100226-10001HD603220-28-500-100 LD Toll DAL: C - TCOM ON LD Toll DAL: C - TCOM BC -FEB 26-MAR 06-2022
17100226ARIN100226JM601420-28-500-100 Internet - Other - General Internet Transit : C - TCOM - ONLEGACY ANNUAL MAINTENANCE
18100067AT & T DG (1548) SNET1866286NOV-20211548-HD605130-28-500-100 Local&VOIP - Other : C - TCOM - ONLocal&VOIP - Other - Services_SEP 2021
19100067AT & T DG (1548) SNET1866286NOV-20211548-HD605130-28-500-100 Local&VOIP - Other : C - TCOM - ONLocal&VOIP - Other - Services_SEP 2021
20100067AT & T DG (1548) SNET1866286NOV-20211548-HD605130-28-500-100 Local&VOIP - Other : C - TCOM - ONCREDIT-MIDPOINT FUSF BILLE ON:
21100067AT & T DG (1548) SNET1866286NOV-20211548-HD730011-28-200-100 Bank Charges Expense : C - FD - ONWIRE FEE
22100067AT & T DG (1548) SNET1866286NOV-20211548-MJT730015-28-200-100 Late Payment Fee : C - FD - ONFINANCE CHARGES
23100125AT&T (831-000-5480-119,264,269)CA1000124229831-000-5481-119-SEP 2022831-000-5480-119-HD605130-28-500-100 Local&VOIP - Other : C - TCOM - ONLocal&VOIP - Other - Services_831-000-5480-119-
24100125AT&T (831-000-5480-119,264,269)CA1000124230831-000-5481-264-SEP 2022831-000-5480-264-HD605130-28-500-100 Local&VOIP - Other : C - TCOM - ONLocal&VOIP - Other - Services_831-000-5480-264-
Sheet1


Thank you
 

Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.

Forum statistics

Threads
1,214,387
Messages
6,119,225
Members
448,877
Latest member
gb24

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top