Userform2'de düğmeye tıklayınca Userform1 güncellensin

[bistroboy]

uSERFORM1 üzerinde "Faaliyet Gir" diye bir düğme var.ona tıklayınca Userform1 açık halde iken üstünde Userform2 açılıyor.


Userform2'de bir commandbutton var. ona tıklayınca
Userform1'in Activate olayının çalışarak güncellenmesini istiyorum.

Userform2'deki düğmenin kodu:

Private Sub CommandButton1_Click()
Msgbox"verileriniz "Kayıt Edildi"
Unload Userform1: Userform1.show ' Activate Olayı çalıştı burada AMA

bu sefer Userform2 kayıp oluyor.[/B]

Userform2 kaybolmadan altındaki Userform1 güzümüzün önünde nasıl activate ile güncellenir?

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Private Sub CommandButton1_Click()
MsgBox "verileriniz Kayıt Edildi"
With UserForm1
.StartUpPosition = 0
.Top = 75
.Left = 55
.Show
End With
End Sub

 

[bistroboy]

Commandbutton1'e tıklayınca Userform4 teki textbox1 'deki veri seçilen tarih aralığına comment açıklama olarak ekleniyor.


Dim hcr As Range 'bir HÜCREyi temsil etmesi için yaratılmıştır
Dim cmd As Control 'Bir COMMANDBUTTON nesnesini temsil etmesi için yaratılmıştır
Dim com As Comment 'Hücredeki bir AÇIKLAMAyı temsil etmesi için yaatılmıştır

Dim i As Integer
On Error Resume Next
For Each hcr In alt
i = i + 1
Set cmd = UserForm1.Controls("Commandbutton" & i)
Set com = hcr.Comment
cmd.Caption = hcr.Text


BEN cmd.caption'un güncellenmesini istiyorum.

 

[bistroboy]

tamam.sizin kodun sonunda
Unload Userform1
Userform1.show koyarak güncelletim.cok teşekkürler