Hoja en blanco, simular Menù

[polboy_mx]

Antes de nada, saludos a Greg el primer paso que habia tratado en el foro (useform para captura) a base de leer y probar lo logre!!! ahora deseo continuar con otro mas... dar inicio a la captura con una hoja en blanco (emular un menu) y varios "botones" para realizar varios eventos distintos, y uno importante: ocultar las hojas donde estan los datos de captura para evitar que los borren por error los usuarios, mostrar el useform, un reporte impreso, etc....aunque me queda aun un pequeño detalle por resolver... no he podido hacer que al poner el "ID" o clave del cliente este "asocie" en un "tb" el nombre del mismo... aqui mi codigo...

Private Sub btn_prodxklienteCancel_Click()
Unload Me
End Sub

Private Sub btn_prodxklienteOK_Click()
Dim LastRow As Long

LastRow = Worksheets("pxk").Range("A65536").End(xlUp).Row + 1
Cells(LastRow, 1).Value = tb_idkliente.Value
' aqui es donde deseo que al poner el id se asocie con el cb_kliente
Cells(LastRow, 2).Value = cb_kliente.Value
Cells(LastRow, 3).Value = cb_artikulos.Value
Cells(LastRow, 4).Value = tb_cantidad.Value
Cells(LastRow, 5).Value = tb_dolar.Value
Cells(LastRow, 6).Value = tb_pesos.Value
Cells(LastRow, 7).Value = Calendar1.Value
Cells(LastRow, 8).Value = tb_factura.Value
Unload Me
End Sub

Private Sub tb_dolar_Change()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Use los botones OK o Cancelar para cerrar la Captura", vbCritical
Cancel = True
End If
End Sub


saludos...