Tam ekran

[1903emre34@gmail.com]

Merhaba,

Ekteki dosya açıldığı zaman tam ekran yapmak istedim ama olmadı, forumda ki kodlara baktım uyguladığım zaman ,diğer excel dosyaları tam ekran oluyor.

 

[Asri]

Merhaba,

Ekteki dosya açıldığı zaman tam ekran yapmak istedim ama olmadı, forumda ki kodlara baktım uyguladığım zaman ,diğer excel dosyaları tam ekran oluyor.

Private Sub UserForm_Initialize() bölümünü aşağıdaki şekilde değiştirip deneyiniz.

Private Sub UserForm_Initialize()
Set s2 = Sayfa2
b = s2.[F65536].End(3).Row
For a = 6 To s2.[F65536].End(3).Row
If IsNumeric(Left(s2.Cells(a, "B"), 1)) = False Then s2.Cells(a, "B").ClearContents
If s2.Cells(a, "B") <> "" Then
If UBound(Split(s2.Cells(a, "F").Value, ":")) = 0 Then
If UBound(Split(s2.Cells(a, "F").Value, "(")) <> 0 Then
ListBox2.AddItem Split(s2.Cells(a, "F").Value, "(")(0)
Else
ListBox2.AddItem s2.Cells(a, "F").Value
End If
Else
ListBox2.AddItem Split(s2.Cells(a, "F").Value, ":")(0)
End If
End If
Next

[COLOR=Red]    Application.WindowState = xlMaximized
    Me.Top = Application.Top
    Me.Left = Application.Left
    Me.Width = Application.Width
    Me.Height = Application.Height[/COLOR]
    
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, sorunsuz çalışıyor.