[Çözüldü]  Girilen Veriye Göre Satır Yüksekliği

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Girilen Veriye Göre Satır Yüksekliği

İleti#1)  Metin1981 » 23 Şub 2019 10:45

Ekli örnek dosyada ana sayfada R200:R250 hücre aralığına veri grip Kayıt butonuna bastığımda veriler birimfiyat,sonuç,verim,maliyet ve metraj sayfalarına kopyalanıyor.Benim yapmak istediğim anasayfada R200:R250 satır aralığındaki herhangi bir hücre aralığına veri girdiğimde kaydet butonuna bastığımda diğer sayfalarda R200:R250 hücre aralığına kopyalanan verilerin girilen veri kadar satırlarının genişlemesi ve veri olmayan satırların ise gizlenmesini yapmak istiyorum.Yardımcı olur musunuz ?.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#2)  tasad » 24 Şub 2019 11:59

Kayıt kodunun en sonuna kaydedin,yani end sub dan önce.
Kod: Tümünü seç
For Each ss In Worksheets
If ss.Name <> "anasayfa" Then
ss.Rows("200:250").Hidden = False
ss.Range("r200:r250").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End If
Next
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 484
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#3)  Metin1981 » 24 Şub 2019 12:40

Sayın Tasad çok teşekkür ederim.Girilen veriye göre satırlar gizleniyor.Fakat satır girilen veriye göre girilen veri kadar genişlemiyor. Hücre Biçimlendirme yatay:İkiyana yazsa dikey:orta yaptığım halde .Ana sayfada ilgili satıra girilen veri kadar satır yüksekliği ayarlanacak.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#4)  tasad » 25 Şub 2019 07:50

Dosya ekde.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 484
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#5)  Metin1981 » 25 Şub 2019 08:41

Sayın Tasad çok teşekkür ederim.Hücre aralığının yazı puntosunu 16 yaptığımda satırın içerisine sığmıyor.Kodun içerisine yazı puntosunu yazdığımızda satır ona göre açılabilir mi? Yani ekli koda yapmış olduğunuz satır yüksekliği gibi birde yazı puntosu büyüklüğü gibi
Kod: Tümünü seç
ws.Cells(i, "r").Rows.RowHeight = CLng(20.75 * genis)
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#6)  tasad » 25 Şub 2019 09:00

Koddaki kısımları aşağıdaki ile değiştirin.
Kod: Tümünü seç
ws.Cells(i, "r").Rows.RowHeight = CLng(30 * genis)
ws.Cells(i, "r").Font.Size = 16
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 484
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#7)  Metin1981 » 25 Şub 2019 09:26

Sayın Tasad çok teşekkür ederim.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#8)  Metin1981 » 25 Şub 2019 09:35

Sayın Tasad kodun içerisine hücre biçimlendirmesini yatay:İkiyana yazsa dikey:orta yapabilir mi ?
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#9)  Metin1981 » 25 Şub 2019 14:26

Sayın Tasad kodun içerisine hücre biçimlendirmesini yatay:İkiyana yazsa dikey:orta yapabilir mi ?
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#10)  tasad » 25 Şub 2019 16:06

6.mesajda eklediğim kodların altına ekleyip deneyin.Eğer çalışmaz ise başkada bir çözüm bilmiyorum maalesef.
Kod: Tümünü seç
ws.Cells(i, "r").HorizontalAlignment = xlJustify
ws.Cells(i, "r").VerticalAlignment = xlJustify
ws.Cells(i, "r").HorizontalAlignment = xlCenter
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 484
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#11)  Metin1981 » 25 Şub 2019 17:27

Sayın Tasad çok teşekkür ederim.Ekli kod
YATAY=İki Yana Yasla
DİKEY=Orta

Şeklinde yapıyor.Dikeyi Üst olarak yaparsak tamam olacak.

Kod: Tümünü seç
ws.Cells(i, "r").HorizontalAlignment = xlJustify
ws.Cells(i, "r").VerticalAlignment = xlCenter
ws.Cells(i, "r").HorizontalAlignment = Justify
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#12)  tasad » 25 Şub 2019 20:35

Aşağıdaki kodları deneyin.
Kod: Tümünü seç
ws.Cells(i, "r").HorizontalAlignment = xlJustify
ws.Cells(i, "r").VerticalAlignment = xlTop
ws.Cells(i, "r").HorizontalAlignment = Justify
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 484
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Girilen Veriye Göre Satır Yüksekliği

İleti#13)  Metin1981 » 12 Mar 2019 09:03

Sayın Tasad çok teşekkür ederim.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Google [Bot], Sogou ve 0 misafir

Bumerang - Yazarkafe