Makro ile Otomatik Metin Kaydırma

[mtecimer]

Excel Versiyonu

Excel 365

Excel Sürümü

64 Bit

Excel Dili

Diğer

Merhaba,

ekteki dosyada "F20:" sütünuna göre otomatik metin kaydirma mevcut ama bu islemin aynisini "B20:" sütünda yaptirmak istiyoruz.

 

Aylık Personel Puantaj Raporlama

Değişen Kayıtlar İçin Log Tutma

[Ömer BARAN]

@mtecimer
Yanlış düşünmüyorsam,
FATURA sayfasının kod bölümünde bulunan FATURA_DETAY isimli koddaki
f.Range("B" & fsat & ":H" & fsat).HorizontalAlignment = xlGeneral
satırının hemen altına, aşağıdaki kod satırını yapıştırın.
f.Range("B" & fsat & ":H" & fsat).WrapText = True

 

[mtecimer]

@Ö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.

 

[Ömer BARAN]

@mtecimer

Kodların bütününe bakmam pek mümkün değil.

Bir de FATURA_DETAY kodundaki With.... End with arasına son satır olarak
aşağıdaki gibi .WrapText = True şeklinde ekleme yaparak deneyin.

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

 

[mtecimer]

Maalesef olmadi üstad. Baska izleyebilecegim bir yol var mi ?

 

[Ömer BARAN]

@mtecimer

Bir de şöyle yapın:
-- Bahsettiğim with ..... end with kod blokundan birkaç satır altta olan
f.Rows("20:" & fsonn + 3).AutoFit satırını silin.
-- Bu with ..... end with kod blokunu silip, bunun yerine aşağıdaki kodları yapıştırın.

Görüntülemek için giriş yapmanız gerekmektedir.
(16 satır)

 

[Ömer BARAN]

@mtecimer
Önerdiğim değişiklikleri yaparak deneme yaptınız mı?

 

[mtecimer]

@Ö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.

 

[mtecimer]

@Ömer BARAN hocam bu kodlari ekledigim de asagida ki gibi sonuc aluyorum

eger en altta bulunan bu kodu silersem de bu sekilde sonuc aliyorum

 

[Ömer BARAN]

@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.

Görüntülemek için giriş yapmanız gerekmektedir.
(29 satır)

 

[mtecimer]

@Ö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?

 

[Ömer BARAN]

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.

 

[mtecimer]

@Ö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?"

 

[Ömer BARAN]

"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.

 

[mtecimer]

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 ?

 

[Ömer BARAN]

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.

 

[mtecimer]

@Ömer BARAN hocam kusura bakmayin beyin durdu biran, simdi daha iyi anladim. Hakkinizi helal edin yordum biraz sizi. Elinize emeginize saglik.