-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Hücre yüksekliğinin otomatik ayarlanması
- Konbuyu başlatan canbolad
- Başlangıç tarihi
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Çok ilginç kodlarda hata verecek bir durumda söz konusu değil, peki çıkan hata mesajında debug deyince hangi satırı hatalı olarak gösteriyor.
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Kodta ısrar edilirken, alternatif çözüm yöntemleride gözardı etmemek gerekir diye düşünüyorum. İşte bir çözüm yöntemi : Girilecek metnin uzunluğuna göre ilgili satırda açılım ve deaçılım olacak. Kod örnek niteliğindedir. Bunu kendinize adapte etmeye çalışın.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets(2).[A1] = [A1]
If Len([A1]) > 10 Then Sheets(2).Rows("1:1").RowHeight = 20
If Len([A1]) < 100 Then Sheets(2).Rows("1:1").RowHeight = 50
If Len([A1].Value) = 0 Then Sheets(2).Rows("1:1").RowHeight = 13
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets(2).[A1] = [A1]
If Len([A1]) > 10 Then Sheets(2).Rows("1:1").RowHeight = 20
If Len([A1]) < 100 Then Sheets(2).Rows("1:1").RowHeight = 50
If Len([A1].Value) = 0 Then Sheets(2).Rows("1:1").RowHeight = 13
Application.EnableEvents = True
End Sub
- Katılım
- 13 Ekim 2004
- Mesajlar
- 16,060
- Excel Vers. ve Dili
- Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sanıyorum hatayı anladım. Yine "i" ve "ı" sorunu, kod içinde [i17] yazan yeri [I17] olarak düzeltin. Yani küçük "i" yerine büyük "I" yazmalısınız.
Sayın Seyit Tiken;
Satır yüksekliği ile ilgili aşağıda verdiğiniz kod işimi kısmen gördü ancak ben bu işlemi tüm satırlarda yapmak istiyorum bunun için nasıl bir değişiklik yapmam gerekir.
Teşekkürler
Köksal YETKİN
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets(2).[A1] = [A1]
If Len([A1]) > 10 Then Sheets(2).Rows("1:1").RowHeight = 20
If Len([A1]) < 100 Then Sheets(2).Rows("1:1").RowHeight = 50
If Len([A1].Value) = 0 Then Sheets(2).Rows("1:1").RowHeight = 13
Application.EnableEvents = True
End Sub
Satır yüksekliği ile ilgili aşağıda verdiğiniz kod işimi kısmen gördü ancak ben bu işlemi tüm satırlarda yapmak istiyorum bunun için nasıl bir değişiklik yapmam gerekir.
Teşekkürler
Köksal YETKİN
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets(2).[A1] = [A1]
If Len([A1]) > 10 Then Sheets(2).Rows("1:1").RowHeight = 20
If Len([A1]) < 100 Then Sheets(2).Rows("1:1").RowHeight = 50
If Len([A1].Value) = 0 Then Sheets(2).Rows("1:1").RowHeight = 13
Application.EnableEvents = True
End Sub
Sn. Seyit Tiken'in Dikkatine
Ek de dosyamı gönderiyorum. Amaç şu; B3 den itibaren her bir kayıt, veri girişine duyarlı olarak satır yüksekliğini otomatik artmasını sağlamak. Ben dosyada sizin dediğinz gibi B8'e kadar kod çoğaltım ama düşünün ki 100-150 kayıt girilmiş olsa bu sayı kadar kod düzenlemek gerekecek. Temelde kod çok güzel çalışıyor tam istediğim gibi tek sorun her satır için ayrı kod yazmak. Bunu sorunu for-next ile çözebilir miyiz? Yani satır ve sütün sayısını bir değişkene atayarak bir döngü yapılırsa bu da çözülmüş olur mu?
İlginize Teşekkür ederim...
Ek de dosyamı gönderiyorum. Amaç şu; B3 den itibaren her bir kayıt, veri girişine duyarlı olarak satır yüksekliğini otomatik artmasını sağlamak. Ben dosyada sizin dediğinz gibi B8'e kadar kod çoğaltım ama düşünün ki 100-150 kayıt girilmiş olsa bu sayı kadar kod düzenlemek gerekecek. Temelde kod çok güzel çalışıyor tam istediğim gibi tek sorun her satır için ayrı kod yazmak. Bunu sorunu for-next ile çözebilir miyiz? Yani satır ve sütün sayısını bir değişkene atayarak bir döngü yapılırsa bu da çözülmüş olur mu?
İlginize Teşekkür ederim...
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Bu şekilde deneyin.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [B3:B300]) Is Nothing Then Exit Sub
If Len(Target) > 10 Then Target.RowHeight = 30
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [B3:B300]) Is Nothing Then Exit Sub
If Len(Target) > 10 Then Target.RowHeight = 30
End Sub
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Satır yüksekliği ayarı değişikliği sözkonusu olduğunda, kod bölümüne gidip değişiklik yapmaya gerek kalmadan, bir hücre değerinde de yapılabilir, Örnek :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [B3:B300]) Is Nothing Then Exit Sub
If Len(Target) > 10 Then Target.RowHeight = [A1]
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [B3:B300]) Is Nothing Then Exit Sub
If Len(Target) > 10 Then Target.RowHeight = [A1]
End Sub
evet hocam öncesinde A1 hücresinin değeri verilip daha sonra A1 hücresini refere edilebiliyor. Verdiğiniz koddan bunu anladım.
Ben bir önceki kodunuz da şu değişikleri yaparak hedefi onikiden vurdum. Tabiii sayenizde Çok mersi...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [A3:A500]) Is Nothing Then Exit Sub
If Len(Target) > 1 Then Target.RowHeight = 30
If Len(Target.Value) = 0 Then Target.RowHeight = 13
End Sub
Ben bir önceki kodunuz da şu değişikleri yaparak hedefi onikiden vurdum. Tabiii sayenizde Çok mersi...
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, [A3:A500]) Is Nothing Then Exit Sub
If Len(Target) > 1 Then Target.RowHeight = 30
If Len(Target.Value) = 0 Then Target.RowHeight = 13
End Sub
merhabalar. yeni üyeyim ve ben de konuyu ilk şimdi okuyorum. bende de aynı object hatası verdi. üstelik yukarıda kaydettiğiniz dosyada da aynı hatayı verdi.
özür dilerim. yazının devamını okumamıştım. Hata ortadan kalktı, çok teşekkür ediyorum ben de. kendi ihale dosyası programımı kendim hazırlayacağım...
çok çok sağolun EXCEL.WEB.TR