Di edit dikit aja codenya, ubah prosedur cari dari private menjadi public supaya bisa di call dari userform6, ubah kode di userform4:
Private Sub CommandButton1_Click()
With Sheet15
Set DtCari = Sheet15
Set CariDt = DtCari.Range("A2:G10000")
Set rgAdvFilter = DtCari.Range("I2:I3")
dst ---------------------------------------------------
End Sub
di ubah jadi begini:
Private Sub CommandButton1_Click()
Cari
End Sub
Sub Cari()
With Sheet15
Set DtCari = Sheet15
Set CariDt = DtCari.Range("A2:G10000")
Set rgAdvFilter = DtCari.Range("I2:I3")
dst ---------------------------------------------------
End Sub
Kemudian pada userform6 nya :
Workbooks("cth case.xlsb").Save
Unload Me
userform4.TextBox1.Value = TB5.Value
userform4.Cari
userform4.Show