User1 deki butonla User2 deki labeli çalıştırma

[morphey]

Merhaba;

User2 deki butonuma basınca yine user2 nin içindeki label görevini yapıyor ancak

User 2 nin içindeki kodu yani bunu

 Private Sub CommandButton1_Click()
  Dim i As Integer
        For i = 1 To Range("BI65536").End(3).Row
            If Cells(i, "BI") <> "" Then
               Label1 = Cells(i, "BI")
            End If
        Next i
    i = Empty
     End Sub

Userform1 deki butona ekleyip userform2.show diyorum olmuyor.
Üstatlar bi zahmet....

Yardımcı olacak herkese şimdiden teşekkürler.

 

[Murat OSMA]

Label1'in başına UserForm2. ilave edip bir deneyin.

 

[morphey]

 Dim i As Integer
        For i = 1 To Range("BI65536").End(3).Row
            If Cells(i, "BI") <> "" Then
               UserForm2.Label1 = Cells(i, "BI")
            End If
        Next i
    i = Empty

şeklinde UserForm1'e ekledim ama gene olmadı Yardımlarınız için yinede çok teşekkür ederim Murat Hocam; Biraz daha deneme yanılma yapyımm artık . Şu bilgisizlik ne kötü yavf

 

[Murat OSMA]

Bakın bakalım olmuş mu ?

 

[morphey]

Hocam çalışıyor ama bi gariplik var ben dosyayı ekleyimde ...

 

[morphey]

Hocam dosyayı ekledim.
Hemen kısaca özetliyim.

"Dznl" isimli bir user form var
Ben ilk açılan userformda veriyi kaydet diyince "Dznl" isimli userform açılıyor
Ordan Düzenlencekler butonuna Tıklıyorum ve hemen altındaki Label bana isteğim veriyi gösteriyor.
İşte ben bu işi ilk User formda kaydet diyince olsun istiyorum. Yani Bu "Düzenlecenekler" isimli butonu kaldırmak istiyorum. Bu kadar

İlginiz için ayrıca minnettar olduğumu belirtmek istiyorum.
Tekrar teşekkürler.