Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: userform  (Okunma sayısı 11505 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
userform
« : 19 Şubat 2011, 23:23:15 »
Bir excel dosyası açınca yanlızca userform acılsın ve onun üzerindeki butonlarla diğer excel dosyalarına ulaşmak istiyorum.Bu amaçla yaptığım  bir excel dosyasını acınca userform açılıyor.Userformdaki Seans yazan butona basınca c 'den bir excel sayfasını açmasını istiyorum.Aslında Seans yazan butona basınca sayfa açılıyor ama görünmüyor. Bunu daha sonra başka bir excel dosyasını açınca anlıyorum.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: userform
« Yanıtla #1 : 20 Şubat 2011, 18:52:44 »
Merhaba, Thisworkbook' daki kodlardan aşağıdaki satırı silerek deneyiniz.

Kod: [Seç]
Application.Visible = False

Kodun Son Hali:
Kod: [Seç]
Private Sub Workbook_open()
UserForm1.Show
End Sub


Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: userform
« Yanıtla #2 : 20 Şubat 2011, 23:30:58 »
Hüseyin Bey aşağıdaki kodları buldum.Bu kodlar istediğim gibi ancak küçük bir problem kalıyor. Exceli açınca sadece userform açılmıyor. Altında excel dosyasıda gözüküyor.Benim istediğim Deneme adındaki excel kitanın acınca sadece userform açılsın ve onun üzerindeki seans butonunada basınca masa üstündeki a adındaki excel dosyası acılsın.
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
'MsgBox "Window De-aktif"
UserForm1.Hide
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
'MsgBox "Window aktif"
UserForm1.Show
End Sub


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: userform
« Yanıtla #3 : 21 Şubat 2011, 00:00:12 »
Aşağıdakı kodları deneyiniz.

Eski kullandığınız kod, ThisWorkbook' a yapıştırın.
Kod: [Seç]
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Userformun kod bölümüne yapıştırın.
Kod: [Seç]
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="C:\Documents and Settings\maho\Desktop\a.xlsx"
Application.Visible = True
End Sub

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: userform
« Yanıtla #4 : 21 Şubat 2011, 00:32:51 »
Seans butonuna basınca a ve deneme sayfası beraber açılıyor. Sadece a açılma imkanı varmıdır.

Çevrimdışı nco_90000

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Tarık T
  • Doğum Yılınız: 1972
  • İl / İlçe: Denizli
Ynt: userform
« Yanıtla #5 : 13 Kasım 2012, 11:12:05 »
Peki hocam istediğim bir excel sayfasını açtırdım ama ben bu excel sayfasında alttaki istediğim bir sheet i nasıl açtıracağım.yardımcı olursanız sevinirim.

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: userform
« Yanıtla #6 : 15 Kasım 2012, 09:56:56 »
Dosya açan kodun altına şu satırı ekleyin;
Kod: [Seç]
Worksheets("SayfaAdı").select
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)