Çözüldü Makro ile Otomatik Metin Kaydırma
Çözüm
@Ömer BARAN
ekledim fakat calismiyor yada bu koddan sonra da tekrar hücreleri düzenleyen bir kod var o aktif oldugundan B sütünunda hücre icerigi tam gözükmüyor: B20 de bir örnek koymustum dosyadan kontrol edebilirsiniz.
ekledim fakat calismiyor yada bu koddan sonra da tekrar hücreleri düzenleyen bir kod var o aktif oldugundan B sütünunda hücre icerigi tam gözükmüyor: B20 de bir örnek koymustum dosyadan kontrol edebilirsiniz.
Maalesef olmadi üstad. Baska izleyebilecegim bir yol var mi ?
@Ömer BARAN evet hocam calisiyor ama suan asil dosyaya daha aktaramadim bu sebeple cevap yazmadim size. Ama masallah her zamanki gibi elinizden hicbir is kurtulmuyor hemen islemi cözüyorsunuz.
@Ömer BARAN hocam bu kodlari ekledigim de asagida ki gibi sonuc aluyorum
eger en altta bulunan bu kodu silersem de bu sekilde sonuc aliyorum
eger en altta bulunan bu kodu silersem de bu sekilde sonuc aliyorum
@mtecimer
Bir de şöyle deneyin bakalım.
İşlem sonucunu iletirsiniz.
Kodun ilgili kısmını aşağıdakiyle değiştirin.
Dikkat:
-- Metin kaydırma 20 ve devamındaki satırlarda olduğu,
-- Birleştirilmiş hücrelerin B, C, D sütunu olduğu,
-- Sayfada S sütununun BOŞ olduğu,
varsayıldı.
Koddaki f.Rows("20:" & fsonn + 3).AutoFit satırı pasif hale getirilecek.
Satır no, sütun adları gerçek belgeyle farklı ise kodda küçük değişiklikler gerekir.
Bir de şöyle deneyin bakalım.
İşlem sonucunu iletirsiniz.
Kodun ilgili kısmını aşağıdakiyle değiştirin.
Dikkat:
-- Metin kaydırma 20 ve devamındaki satırlarda olduğu,
-- Birleştirilmiş hücrelerin B, C, D sütunu olduğu,
-- Sayfada S sütununun BOŞ olduğu,
varsayıldı.
Koddaki f.Rows("20:" & fsonn + 3).AutoFit satırı pasif hale getirilecek.
Satır no, sütun adları gerçek belgeyle farklı ise kodda küçük değişiklikler gerekir.
VBA:
You must log in to view
(29 satır)
Çözüm
@Ömer BARAN hocam satir yükseklikleri otomatik geliyor ama acilan satirlarda sonra ki islemde veri olmazsa acildigi gibi kaliyor buna nasil bir cözüm bulabiliriz ?
birde satir yüksekligi 15 e düsmüs onlari en asagi 16,5 yapabilirmiyiz?
birde satir yüksekligi 15 e düsmüs onlari en asagi 16,5 yapabilirmiyiz?
Son cevabımda verdiğim kodun en üstüne yani
With f.Range("B20:H" & fsonn)
satırının üstüne,
f.Rows("20:" & Rows.Count - 20).AutoFit
şeklinde bir satır ekleyerek deneyin.
With f.Range("B20:H" & fsonn)
satırının üstüne,
f.Rows("20:" & Rows.Count - 20).AutoFit
şeklinde bir satır ekleyerek deneyin.
@Ömer BARAN hocam bu kodla beraber satirlar eski haline geliyor tesekkürler.
Ilave bu soruyu da koymustum ama gözden kacti sanirim buna bir cözüm bulabilirmisiniz ?
"birde satir yüksekligi 15 e düsmüs onlari en asagi 16,5 yapabilirmiyiz?"
Ilave bu soruyu da koymustum ama gözden kacti sanirim buna bir cözüm bulabilirmisiniz ?
"birde satir yüksekligi 15 e düsmüs onlari en asagi 16,5 yapabilirmiyiz?"
Bence bunun için makro koduna lüzum yok.
1) Kullanılmayan bir sütunu seçin,
2) Yazı boyutunu değiştirin (duruma göre büyütün/küçültün) ,
3) Herhangi bir satırda fareyle 2 satır numarasının arasına gelip çift tıklayın,
4) Satır yüksekliği istenilen yüksekliğe erişinceye kadar ilk adıma dönerek işlemi tekrarlayın.
Her seferinde satir yükseklikleri icerige göre degistiginden bunu elle yapmak baya süre kaybina yol acacak. Satirin yüksekligini en az 16,5 yapmanin yöntemi yokmudur bu dizilimde ?
Yazdığım işlemi yaptınız mı?
Kullanılmayan herhangi bir sütundan söz etmiştim.
Mesela şu belgede ben A sütununun yazı tipi ve boyutunu değiştirdim.
Diğer sütunlarda yazı boyutu küçültülse de
satır yüksekliği çift tıklama ile otomatik ayarlansa da yükseklik şu anki halinden daha küçük olmaz.
Kullanılmayan herhangi bir sütundan söz etmiştim.
Mesela şu belgede ben A sütununun yazı tipi ve boyutunu değiştirdim.
Diğer sütunlarda yazı boyutu küçültülse de
satır yüksekliği çift tıklama ile otomatik ayarlansa da yükseklik şu anki halinden daha küçük olmaz.
@Ömer BARAN hocam kusura bakmayin beyin durdu biran, simdi daha iyi anladim. Hakkinizi helal edin yordum biraz sizi. Elinize emeginize saglik.
- Durum