satırları buyutup kucultme

[lityum]

İyi günler arkadaşlar benim sorum şu olacak, bir denetim firmasında çalışıyorum ve muhasebe ile ilgili olarak excele mizan vb. gibi veriler girmemiz gerekiyor. Biz bu verileri girerken bazen gözlerimiz yanılabiliyor ve hangi hesabın hangi satıra denk eldiğini karıştırıp yanlış satırlara yanlış veriler girebiliyoruz. Bu sorunun çözümü için benim düşündüğüm bir yol var. :?
Oda şu: :bravo:
Diyelim 100 kasa hesabının karşısındaki hücreye bir değer gireceğim, benim seçtiğim hücrenin bulunduğu tüm satırın yüksekliği 30 olacak hizalama dikey ortalanmış ve yazılar kalın olacak. Ve bu sayede bende satırın denk geldiği yeri rahat bulabileceğim aynı şekilde bir alt satıra geçtiğim zamanda üst satırdaki tüm yapılanlar normale dönecek, ama seçili olan satırın yüksekliği yine örneğin 30 Olacak.
Bu kod nasıl olmalıdır acaba. Bu konuda yardımlarınızı dört gözle bekliyorum. Teşekkür ederim.
:hey:

 

[zafer]

Merhaba

Sayfanızın Modulüne yerleştiriniz.
Hangi satırı seçtiyseniz sarı renk olur

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub

Kaynak :Sn.Raider

 

[danersin]

Bu linkide tavsiye ederim.

http://www.excel.web.tr/viewtopic.php?t=1046

 

[lityum]

teşekkür

teşekkür ederim. çok yardımcı oldu.
ellerinize sağlık