Makro ile Otomatik Metin Kaydırma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

mtecimer

Kullanıcı
Katılım
30 Haz 2019
Mesajlar
151
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Diğer

Ekli dosyalar

Çözüm
Ö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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
Tarihe göre sırala Oylamaya göre sırala
@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
 
Oyla 0 Olumsuz oyla
@Ö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.
 
Oyla 0 Olumsuz oyla
@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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
 
Oyla 0 Olumsuz oyla
@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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(16 satır)
 
Oyla 0 Olumsuz oyla
@Ömer BARAN hocam bu kodlari ekledigim de asagida ki gibi sonuc aluyorum
Unbenannt.webp


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

Unbenannt2.webp
 
Oyla 0 Olumsuz oyla
@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.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(29 satır)
 
Oyla 0 Olumsuz oyla
Çö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 ?
1.webp
2.webp


birde satir yüksekligi 15 e düsmüs onlari en asagi 16,5 yapabilirmiyiz?
 
Oyla 0 Olumsuz oyla
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.
 
Oyla 0 Olumsuz oyla
@Ö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?"
 
Oyla 0 Olumsuz oyla
mtecimer' Alıntı:
"birde satir yüksekligi 15 e düsmüs onlari en asagi 16,5 yapabilirmiyiz?"
Genişletmek için tıklayın ...

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.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
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.
Genişletmek için tıklayı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 ?
 
Oyla 0 Olumsuz oyla
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.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt