Dzieki serdeczne. Dziala!!!!

Jeśli chodzi tylko o zastąpienie przyciskami kopiowania i wklejania to moźe tak:

Private Sub CommandButton1_Click()
SendKeys "^{c}"
End Sub

Private Sub CommandButton2_Click()
SendKeys "^{v}"
End Sub

Private Sub UserForm_Initialize()
CommandButton1.TakeFocusOnClick = False
CommandButton2.TakeFocusOnClick = False
End Sub

i wiem dlaczego....
textboxy sa pogrupowane i leza na frame`ach.Jesli nie ma frame`a to dziala.Ok. A jak jest frame to activecontrol dotyczy wtedy frame`a(podejrzalem) a nie textboxa...niestety....i nie kopiuje sie nic...
Wielkie dzieki za zainteresowanie!!!/smalski

U mnie działa
Zerknij do pliku

no niestety bez rezultatow...

spróbuj tego

Dim a As Variant

Private Sub CommandButton1_Click()
a = ActiveControl
End Sub

Private Sub CommandButton2_Click()
ActiveControl = a
End Sub


Private Sub UserForm_Initialize()
CommandButton1.TakeFocusOnClick = False
CommandButton2.TakeFocusOnClick = False
End Sub

Dzieki!!
Niezly pomysl!!!
Tak naprawde to TextBox`ow mam 40 i troche bede mial pisania...A moze takie teoretyczne rozwiazania(ktore nie wiem, jak wprowadzic w praktyke):
1. Jedna procedura wyjscia z textboxa z parametrem,ktory wskazuje na ostatnio uzywany textbox i wpisanie zawartosci do zmiennej...tak przynajmniej mozna w delphi...
2. Przypisac do zmiennej wartosc z aktywnego textbox`a....cos w stylu active.textbox...jednak nie ma nic takiego... :(

Przyznam,ze musi byc to prostrze bo jak uzywam na formie do kopiowania(w czasie dzialania programu) ctrl+c a do wklejania ctrl+v to wszystko dziala pieknie. Jednak pisze program dla tych co nie pamietaja skrotow klawiaturowych a przy korzystaniu z formy nie ma dostepu do w/w przyciskow kopiuj/wklej excela na panelu sterowania. Zarejestrowac makra i podejrzec co sie dzieje na formie tez sie nie da, wiec musze te przyciski zrobic sam... tylko jak :?: :?: :?: :?:
Dzieki za zainteresowanie/smalski