Ekranı 3 e bölmek...

[machool]

Arkadaşlar excelde ekranı görünüm/pencere/böl yolu ile 2 ye bölebiliyoruz.Peki birbirinden bağımsız hareket edebilen 3 parçaya ayırabilir miyiz ?

 

[mustafaine1]

2 yatay, 2 dikey olarak bagimsiz olabilir..

 

[halit3]

Bu kodlar işinize yarara herhalde

Sub Yatay()
pencere = InputBox("Kaç adet pencere basamaklanacak ", "Pencere", "2")
If pencere = "" Then
Exit Sub
End If
sat = (pencere * 1)
For i = sat To 2 Step -1
r = r + 1
On Error Resume Next
Sheets(r).Select
ActiveWindow.NewWindow
Next
Sheets(sat).Select
Windows.Arrange ArrangeStyle:=xlHorizontal ' yatay
End Sub

Sub Dikey()
pencere = InputBox("Kaç adet pencere basamaklanacak Kendisinden Hariç", "Pencere", "2")
If pencere = "" Then
Exit Sub
End If
sat = (pencere * 1)
For i = sat To 2 Step -1
r = r + 1
On Error Resume Next
Sheets(r).Select
ActiveWindow.NewWindow
Next
Sheets(sat).Select
Windows.Arrange ArrangeStyle:=xlVertical ' dikey
End Sub

Sub Dikey1()
'For i = ActiveWorkbook.Sheets.Count To 2 Step -1
Sheets(ActiveWorkbook.Sheets.Count).Select
For i = ActiveWorkbook.Sheets.Count To 2 Step -1
'For i = 2 To ActiveWorkbook.Sheets.Count
r = r + 1
On Error Resume Next
Sheets(r).Select
ActiveWindow.NewWindow
Next
Sheets(ActiveWorkbook.Sheets.Count).Select
Windows.Arrange ArrangeStyle:=xlVertical ' dikey
End Sub

Sub Yatay1()
'Sheets(ActiveWorkbook.Sheets.Count).Select
For i = ActiveWorkbook.Sheets.Count To 2 Step -1
r = r + 1
On Error Resume Next
Sheets(r).Select
ActiveWindow.NewWindow
Next
Sheets(ActiveWorkbook.Sheets.Count).Select
Windows.Arrange ArrangeStyle:=xlHorizontal ' yatay
End Sub

 

[mustafaine1]

Sanirim istenen split olarak bolmek ama umarim kodlar ise yarar..