Userform' un sayfa içinde açılış pozisyonu

[tamer42]

Merhabalar,
Excel sayfasında userform' un açılacağı konumu belirlemek için; aşağıdaki linkte yer alan kodu buldum.

yalnız userform açılınca; form'un altında sağında ve sağında şerit şeklinde beyaz boşluklar oluşuyor, bu boşlukları nasıl kaldırabiliriz?

https://stackoverflow.com/questions/24700052/position-userform-differently-for-each-activecell-clicked

yardımlarınız için şimdiden teşekkürler,
iyi akşamlar.

 

[Korhan Ayhan]

Eski konular..

Arama Sonuçları

 

[tamer42]

Eski konular..

Arama Sonuçları

Korhan hocam teşekkürler,
burada userform pozisyonu ile ilgili sıkıntı bulunmuyor, userform' un kenarındaki boşlukları çözemedim.
neden userformu genişletiyor?

iyi çalışmalar.

 

[Korhan Ayhan]

Paylaştığım linkte eski benzer konular bulunuyor. Bu başlıklarda bazı kodlar paylaşılmış. Belki bu kodları kullanarak-deneyerek sorunu aşabilirsiniz düşüncesiyle paylaşımda bulundum.

 

[kykbt]

Arkadaşlar Merhaba
Ekteki çalışma kitabını açtığımda, aktif sayfadaki hücre seçilmiyor, yani aktif olmuyor.
Aktif sayfayı tıklamam gerekiyor yoksa, Userform aktif kalıyor bir türlü çözemedim.

Farklı bir makroya gidip gelmekte çözüm olmadı..
Yardımlarınıza ihtiyacım var.

Private Sub Workbook_Open()
Application.EnableEvents = False
ActiveSheet.Range("a6").Select

UserForm1.Show
'ActiveCell.Activate
Application.EnableEvents = True
durum = Empty
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.SmallScroll Toleft:=2
ActiveWindow.WindowState = xlMaximized
'Call Activewindow_yap
ActiveSheet.Range("a6").Select

End Sub

 

[cems]

Dosyanızda Şu anda kodda, ActiveSheet.Range("A6").Select ve ActiveWindow.SmallScroll komutları çalıştırılmadan önce form açılıyor. Form açıldığında Excel, kullanıcı etkileşimini formda bekler, bu da aktif sayfada işlem yapılmasını engeller.

Bunun yerine bir modul ekleyerek içine

Sub auto_open()
UserForm1.Show
End Sub

Sizin kodlardan userform acılısını cıkardım

Private Sub Workbook_Open()
    Application.EnableEvents = False

    ' Formun tam olarak açılmasına izin ver
    DoEvents
 
    ' Hücreyi seçiyoruz
    ActiveSheet.Range("A6").Select
 
    Application.EnableEvents = True
    durum = Empty
 
    ' Pencereyi sağa ve sola kaydırma işlemi
    ActiveWindow.SmallScroll ToRight:=2
    ActiveWindow.SmallScroll ToLeft:=2
 
    ' Pencereyi tam ekran yapma
    ActiveWindow.WindowState = xlMaximized
End Sub

Sub Activewindow_yap()
'
Dim acc
'UserForm1.Show
'Unload UserForm1
acc = ActiveWindow.Caption
ActiveWindow.Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlMaximized

End Sub

Denememe gore userform acıkken a6 secilmis ve geziliyor oldu ve userform acık oldugu halde sayfada gezimi engellemedi. Ben 2010 surumde denedim siz kendi surumunuz ile kontrol edin.

• DoEvents: Bu komut, Excel'in formu yüklemesine ve kullanıcı etkileşimini başlatmasına izin verir. Bu şekilde, form tamamen açıldıktan sonra aktif hücreyi seçebilirsiniz.
• UserForm1.Show: Formu gösterdikten sonra, kullanıcı etkileşimi formda olacağı için önce formu gösterip, ardından hücreyi seçmek gerekir.

Sanırım bu sekilde isinizi gorur

 

[muygun]

Merhaba;
Userform açıkken aktif sayfada işlem yapabilmek için;

UserForm1.Show 0

açılış kodunun sonuna sıfır ekleyin.

İyi çalışmalar.

 

[kykbt]

Hıocam Merhaba

Dediklerinizi denedim. Excel 2007 bendeki olmadı.
Yapmak istediğim sadece form aktiften kurtulmak.
Hücreyi Çalışma sayfasının aktif hale gelmesi için seçiyorum.

Ancak olmuyor, user form aktif kalıyor.

Private Sub Workbook_Open()
UserForm1.Show
ActiveSheet.Range("A6").Select
End Sub

Başka bir çözüm yolu bulmalıyım.

 

[kykbt]

Merhaba;
Userform açıkken aktif sayfada işlem yapabilmek için;

UserForm1.Show 0

açılış kodunun sonuna sıfır ekleyin.

İyi çalışmalar.

denedim değişmiyor..
İlla ekranı tıklamak gerekiyor. userform,dan çıkmak için..

 

[volki_112]

denedim değişmiyor..
İlla ekranı tıklamak gerekiyor. userform,dan çıkmak için..

siz ne istyiorsunuz tam olarak.

 

[necati]

siz ne istyiorsunuz tam olarak.

Sanırım kitap açılınca fare ile tıklamadan hücreye direkt olarak birşeyler yazabilmek veya ok tuşlarıyla hareket edebilmek gibi bir şey isteniyor.

Merhaba kykbt şöyle dener misiniz

Private Sub Workbook_Open()
Application.EnableEvents = False
ActiveSheet.Range("a6").Select

UserForm1.Show 0

'ActiveCell.Activate
Application.EnableEvents = True
durum = Empty
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.SmallScroll Toleft:=2
ActiveWindow.WindowState = xlMaximized
'Call Activewindow_yap
AppActivate Application.Caption

ActiveSheet.Range("a6").Select

End Sub

 

[kykbt]

siz ne istyiorsunuz tam olarak.

Hocam çok teşekkür ederim ilgine, Necati hocam işi çözdü..

 

[kykbt]

Sanırım kitap açılınca fare ile tıklamadan hücreye direkt olarak birşeyler yazabilmek veya ok tuşlarıyla hareket edebilmek gibi bir şey isteniyor.

Merhaba kykbt şöyle dener misiniz

Private Sub Workbook_Open()
Application.EnableEvents = False
ActiveSheet.Range("a6").Select

UserForm1.Show 0

'ActiveCell.Activate
Application.EnableEvents = True
durum = Empty
ActiveWindow.SmallScroll ToRight:=2
ActiveWindow.SmallScroll Toleft:=2
ActiveWindow.WindowState = xlMaximized
'Call Activewindow_yap
AppActivate Application.Caption

ActiveSheet.Range("a6").Select

End Sub

Private Sub Workbook_Open()

UserForm1.Show 0
AppActivate Application.Caption

End Sub

Ah be hocam "leb demeden leblebiyi anlamak" bu olsa gerek.
Çok teşekkür ederim .

AppActivate Application.Caption

Nelere kadirmiş..

 

[necati]

Rica ederim kolay gelsin.