[Yardım]  Buton İle Girilen Veriye Göre Satır Açılması ve Daralması

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

Buton İle Girilen Veriye Göre Satır Açılması ve Daralması

İleti#1)  Metin1981 » 10 May 2018 20:14

İyi akşamlar,

Ekli örnek dosyada sarı renkli satırlardaki B:N hücrelerindeki satırlara veri girildiğinde girilen veri kadar butona bastığımızda satır aralığı açılıp kapabilir mi ?Ayrıca ilgili hücrelerde hiç veri yoksa satır gizlene bilir mi?
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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 685
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#2)  Metin1981 » 11 May 2018 07:41

Günaydınlar,
Konuyla ilgili yardımlarınızı bekliyorum.Saygılar sunuyorum
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 685
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#3)  Ali ÖZ » 11 May 2018 10:56

Dosya açılmıyor,zip yaparak eklerseniz bakabilirim.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#4)  Metin1981 » 11 May 2018 11:08

Ali bey Merhabalar;
dosya ektedir
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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 685
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

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

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#5)  Ali ÖZ » 11 May 2018 11:46

Bana sorarsanız butona gerek yok.Bu şekilde deneyin.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Intersect(Target, Range("b1:n65536")) Is Nothing Then Exit Sub
  If Target.Value = "" Then Target.RowHeight = 0
  satır = 20
  ilk = 5
  uzunluk = Len(Target)
  If uzunluk > satır Then
    fark = uzunluk / satır
    If fark > 82 Then
      MsgBox "Maximum satır yüksekliği aşıldı"
      Target.RowHeight = 409.5
      Exit Sub
    End If
      Target.RowHeight = fark * ilk
  End If
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#6)  Metin1981 » 11 May 2018 12:14

Ali bey çok teşekkür ederim.Yalnız şöyle bir şey olabilir mi ?.
Ekli dosyada veri syafasından G8,G9,G10 ve G11 hücrelerine veri girdiğimde girilen veriler A.B,C,D sayfaları daki b4,b5,b6,b7 hücrelerine yazılıp ,veri sayfasında girilen veri kadar satır genişleyip daralabilir mi ?
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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 685
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#7)  Ali ÖZ » 11 May 2018 12:34

Veri sayfasının kod bölümüne yapıştırın.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Intersect(Target, Range("g1:g65536")) Is Nothing Then Exit Sub
  For i = 2 To Sheets.Count
    Sheets(i).Range("b" & Target.Row - 4).Value = Target.Value
    If Target.Value = "" Then Sheets(i).Range("a" & Target.Row-4).RowHeight = 0
      satır = 20
      ilk = 5
      uzunluk = Len(Target)
      If uzunluk > satır Then
        fark = uzunluk / satır
        If fark > 82 Then
          MsgBox "Maximum satır yüksekliği aşıldı"
          Sheets(i).Range("a" & Target.Row-4).RowHeight = 409.5
          Exit Sub
        End If
        Sheets(i).Range("a" & Target.Row-4).RowHeight = fark * ilk
    End If
  Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#8)  Metin1981 » 11 May 2018 12:56

Ali bey çok teşekkür ederim.Sizi uğraştırdığım için çok çok özür diliyorum.Birde şöyle bir şey olabilir mi?
Veri sayfasından ilgili sayfalara Bağ Yapıştır yaptığımda veri sayfasından bir buton ile tıklama yaptığımız da yine aynı işlemi yapan bir makro oluşturabilir misiniz ?
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 685
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#9)  Ali ÖZ » 11 May 2018 15:09

Alanlar sabit mi ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9543
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#10)  Metin1981 » 11 May 2018 15:19

Sabit değil Ali bey.Örnekte veri girişinde kırmızı renkli hücreye giriş yaptım .Burdan diğer sayfalara bağ kurdum.Butona basıldığında veri girişi sayfasında girdiğim veri kadar sayfalarda satır açılacak,daralacak.
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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 685
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: Buton İle Girilen Veriye Göre Satır Açılması ve Daral

İleti#11)  Metin1981 » 16 May 2018 13:05

Ali bey hayırlı günler;
Aşağıda yapmış olduğunuz kod işimi görüyor. Şöyle bir sıkıntı var. Ekli örnek dosyada veri sayfası haricindeki tüm sayfa ve satırlarda çalışıyor.Bu kodu sadece A ve B sayfalarında
VERİ SAYFASINDA G8 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 6 SATIRI B SAYFASINDA 4 SATIRI
VERİ SAYFASINDA G9 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 10 SATIRI B SAYFASINDA 6 SATIRI
VERİ SAYFASINDA G10 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 12 SATIRI B SAYFASINDA 8 SATIRI
VERİ SAYFASINDA G11 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 14 SATIRI B SAYFASINDA 10 SATIRI
VERİ SAYFASINDA G12 HÜCRESİNDEN GİRİLEN VERİ A SAYFASINDA 16 SATIRI B SAYFASINDA 12 SATIRI
VERİ GİRİLİNCE GİRİLEN VERİ KADAR GENİŞLEYİP DARALABİLİR Mİ
HİÇ VERİ OLMAYINCA YİNE İLGİLİ SATIRLAR GİZLENEBİLİR Mİ?







Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Intersect(Target, Range("g1:g65536")) Is Nothing Then Exit Sub
  For i = 2 To Sheets.Count
    Sheets(i).Range("b" & Target.Row - 4).Value = Target.Value
    If Target.Value = "" Then Sheets(i).Range("a" & Target.Row-4).RowHeight = 0
      satır = 20
      ilk = 5
      uzunluk = Len(Target)
      If uzunluk > satır Then
        fark = uzunluk / satır
        If fark > 82 Then
          MsgBox "Maximum satır yüksekliği aşıldı"
          Sheets(i).Range("a" & Target.Row-4).RowHeight = 409.5
          Exit Sub
        End If
        Sheets(i).Range("a" & Target.Row-4).RowHeight = fark * ilk
    End If
  Next
End Sub
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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 685
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 3 misafir

cron
Bumerang - Yazarkafe