DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Selamlar,
Arkadaşlar Sayfa1 de A1 hücresindeki bilgiyi otomatik olarak Userform üzerindeki Label1 e aktarmak istiyorum. Nasıl yapabilirim?
Saygılar
Private Sub UserForm_Activate()
Label1 = Range("A1").Value
End Sub
Kodu Denermisiniz.
Kod:Private Sub UserForm_Activate() Label1 = Range("A1").Value End Sub
Selamlar,
Sayfa belirtmek gerekirse kod üzerinde nasıl değişiklik yapmalıyım.
Çünkü istediğim sayfanın A1 hücresini getirmek istiyorum.
Saygılar
Private Sub UserForm_Activate()
Sheets("Sayfa3").Select
Label1 = Range("A1").Value
End Sub
altarnatif olsun..
Kod:Private Sub UserForm_Activate() Label1.Caption = Sheets("Sayfa1").Range("A1").Value End Sub