napisał: Trebor postów: 1209
umieszczony: 22 czerwca 2012 19:38
|
|
Powinna pomóc jedna niewielka zmiana:
Set ws = ActiveSheet |
|
napisał: Celine postów: 1
umieszczony: 22 czerwca 2012 12:41
|
|
witam
po kliknięciu w dowolna komórkę z zkresu A15:A27 otwiera się Uform.
wprowadzamy dane do Form i po zatwierdzeniu commB dane są wprowadzane do tabeli.
jak zrobić, żeby wprowadzane dane trafiały do arkusza, z którego był wywołany UserForm ?
czy do każdego arkusza zrobić osobny userform ? tylko że tych arkuszy bedzie ok 40
pozdrawiam
Celinka
Option Explicit
Private Sub dodaj_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("aa")
If Trim(Me.nick.Value) = "" Then
Me.nick.SetFocus
MsgBox "Dodaj gracza"
Exit Sub
End If
ws.Cells(Selection.Row, 1).Value = Me.nick.Value
ws.Cells(Selection.Row, 2).Value = Me.imię.Value
ws.Cells(Selection.Row, 3).Value = Me.wiek.Value
ws.Cells(Selection.Row, 4).Value = Me.miasto.Value
Me.nick.Value = ""
Me.imię.Value = ""
Me.wiek.Value = ""
Me.miasto.Value = ""
Me.nick.SetFocus
Unload Me
End Sub |
|
wstecz 1 dalej wszystkich stron: 1
|