Child Copy Customization ()
For I = 2 tosheet 1. Cell (65536, 1). End (XLUP). Row' cycle table 1
If sheet 1. Cell (i,2 2) = sheet2. Text box 1. TextThen' looks for rows that meet the filter criteria.
Worksheet 2. Cell (worksheet 2. Cell (65536, 1). End (XLUP). Row+ 1, 1) = sheet 1。 Cells (I, 1)' put qualified customers in this line.
If only one bit is filtered, you can use "Exit For" to jump out of the loop, but there should be multiple data tables.
If ... it will be over.
Next, I
End joint
-
Private subcommand button 1_Click ()
"Call CopyCustom" This is just a call button.
End joint
If you want to do it another way, you can ask me again. I just called out the client's name as you asked.