- Katılım
- 15 Mart 2005
- Mesajlar
- 42,269
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
#15 nolu mesajda Burhan beyin paylaştığı kodu deneyebilirsiniz.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Otomatik satır yüksekliği
- Konbuyu başlatan burhancavus61
- Başlangıç tarihi
- Katılım
- 15 Mart 2005
- Mesajlar
- 42,269
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Kod içinde aşağıdaki satırları düzeltmelisiniz.
Bu satır kodun çalışacağı alanı belirtiyor.
If Intersect(Target, Range("A1:L" & Rows.Count)) Is Nothing Then Exit Sub
Bu satır ise birlşetirilmiş hücreleri ifade ediyor.
Genislik = Range("A1:L1000").Columns.Width
Bu satır kodun çalışacağı alanı belirtiyor.
If Intersect(Target, Range("A1:L" & Rows.Count)) Is Nothing Then Exit Sub
Bu satır ise birlşetirilmiş hücreleri ifade ediyor.
Genislik = Range("A1:L1000").Columns.Width
- Katılım
- 6 Ağustos 2015
- Mesajlar
- 2
- Excel Vers. ve Dili
- Office Professional Pro 2013 Türkçe
Teşekkür ederim.