çalışılan satırın büyümesi

[karahan61]

Merhabalar;

Arkadaşlar ücret puantajı hazırlandığında kontrol ederken bazen bir alt veya üst satıra istemeden geçerek yanlış işlem yapıyorum. Çalıştığım satırın büyümesini büyürken satır içinde bulunanlarında dolayısıyla büyümesini ve değişiklik yapmaya imkan vermesini istiyorum. Bir başka satıra geçince o satır büyürken bir önce büyüyen satır eski haline gelsin
Uzman arkadaşlar için çok kolay olduğunu düşünerek yardım ve önerilerini esirgemeyen herkese teşekkür ederim.

 

[cyberwolf1980]

soru sanırım anlasılmadı...
neyı nereye buyuteceksınız ve ne ıcın nasıl bunu kullanacaksınız ?

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Application.ScreenUpdating = False
    
    With Cells
        .RowHeight = 12.75
        .Font.Size = 10
    End With
    
    With Range("A" & Target.Row & ":Y" & Target.Row)
        .RowHeight = 30
        .Font.Size = 18
    End With
    Application.ScreenUpdating = True
    
End Sub

 

[karahan61]

Necdet Bey
Çok teşekkürler.. Ancak 10. satırdan (dahil) sonraki satırlar için kod çalışırsa tam istediğim gibi olacak.

 

[Necdet]

Necdet Bey
Çok teşekkürler..

Rica ederim.

Aslında kodları Worksheet_SelectionChange olayına değil de Worksheet_BeforeDoubleClick olayına yani çift tıklamaya bağlamak daha mantıklı.

Çünkü her yeni hücre seçiminde kodlar çalışıyor.

 

[karahan61]

Necdet Bey
ilginiz için teşekkürler..bu yazdığınız kodu kullanacağım Ancak 10. satırdan (dahil) sonraki satırlar için kod çalışırsa tam istediğim gibi olacak. çift tıklamada olabilir siz nasıl uygun görürseniz.
ayrıca sayfa koruması yapıldığında kod hata vermesin

 

[Necdet]

Merhaba,

10. satırdan sonra çalışan kod aşağıdadır. Önceki koddan farkını kırmızı ile işaretleyeceğim. Exceli yormamak için kodları Çift Tıklama olayına bağladım

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    [B][COLOR=red]If Target.Row < 11 Then Exit Sub
[/COLOR][/B]    
    Application.ScreenUpdating = False
    
    With Cells
        .RowHeight = 12.75
        .Font.Size = 10
    End With
    
    With Range("A" & Target.Row & ":Y" & Target.Row)
        .RowHeight = 30
        .Font.Size = 18
    End With
    
    Application.ScreenUpdating = True
    
End Sub

 

[karahan61]

çalışan satırların büyümesi

Necdet Hocam emeğiniz için teşekkürler hakkınızı helal edin. çalışmama uyguladım 2 sorun çıktı
1. 10.satırdan sonra çalışıyor ancak önceki satır ve sununları daraltıyor .onları ETKİLEMESİN.

2. Çift tıklamada satır büyüyor ancak tıklanılan hücredeki formüller de büyüyor sedece satırın içindeki mevcut bilgiler BÜYÜSÜN zaman ayırırsanız sevininirim. Sağlıklı günler dilerim.

 

[Necdet]

Merhaba,

Hangi sütunlarda formül olduğunu bilmediğim için aklıma bir çözüm gelmedi ama siz formüllü hücreye değil formülsüz ya da ilgili satırda boş bir hücreye tıklayabilirsiniz.

11. satırdan önceki değerlerin değişmemesini düzelttim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If Target.Row < 11 Then Exit Sub
    Dim SonSat As Long
    
    SonSat = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Application.ScreenUpdating = False
    
    With Range("A11:Y" & SonSat)
        .RowHeight = 12.75
        .Font.Size = 10
    End With
    
    With Range("A" & Target.Row & ":Y" & Target.Row)
        .RowHeight = 30
        .Font.Size = 18
    End With
    
    Application.ScreenUpdating = True
    
End Sub

 

[karahan61]

çalışılan satırların büyümesi

Hocam tam istediğim gibi.. affınıza sığınarak son birşey isteyecem. çift tıklanan satır büyüyor başka satıra geçince eski durumuna dönmüyor yani büyümüş şekliyle kalıyor bunuda düzeltirseniz sevinirim.

 

[eminuslu]

Necdet bey hücreye tek tıklama ile büyüme nasıl olacak koda ne eklenmesi gerekir selamlar

 

[Necdet]

Hocam tam istediğim gibi.. affınıza sığınarak son birşey isteyecem. çift tıklanan satır büyüyor başka satıra geçince eski durumuna dönmüyor yani büyümüş şekliyle kalıyor bunuda düzeltirseniz sevinirim.

Başka satırda işlem yapacağınızda tekrar o satıra çift tıklamanız gerekiyordu.

Necdet bey hücreye tek tıklama ile büyüme nasıl olacak koda ne eklenmesi gerekir selamlar

Aşağıdaki kodlar ilgili satırda herhangi bir hücre seçildiğinde satırı büyütür.

Çift tıklamaya gerek kalmaz. Xl biraz zorlanacak ama denedim çok yük getirmiyor. Her hücreye geçişte ekran hareketi görülüyor, bu da çok fazla rahatsız etmez sanırım, deneyiniz.

Kodlar yine sayfanın kod bölümünde olmalı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Target.Row < 11 Then Exit Sub
    Dim SonSat As Long
    
    SonSat = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Application.ScreenUpdating = False
    
    With Range("A11:Y" & SonSat)
        .RowHeight = 12.75
        .Font.Size = 10
    End With
    
    With Range("A" & Target.Row & ":Y" & Target.Row)
        .RowHeight = 30
        .Font.Size = 18
    End With
    
    Application.ScreenUpdating = True
    
End Sub

 

[karahan61]

Hocam,öncelikle hayırlı günler. Bu çalışmada çok güzel ancak satırdan çıkınca yada boş bir hücreye tıklayınca (ilk 9 satırda yada başka bir hücrede) eski durumuna gelirse tam istediğim gibi olacak . Saygılar