1 sayfadan 1. sayfa

Listede ki kişi sayısı kadar satır ekleme veya gizleme

İletiTarih: 18 Arl 2019 19:37
düşünceli
http://www.excelvba.net/viewtopic.php?f=10&t=34510&p=248767#p248767 Bu konuyu makro bölümüne taşırmısınız?

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 19 Arl 2019 10:41
şahin
Ekte

rnek.rar

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 19 Arl 2019 19:01
düşünceli
Şahin bey çok teşekkür ederim. Emeğinize, yüreğinize sağlık. Konu çözüme Kavuşmuştur.

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 20 Arl 2019 20:35
düşünceli
düşünceli yazdı:Sayfa 1 de bulunan kişi sayısı farklı olan 4 adet listem var.
Bu Listeleri, Sayfa 2 de bulunan 4 adet Seçenek Düğmesiyle Sayfa 2 ye 'EĞER' formülü ile çağırıyorum.
Bu aşamada, listede bulunan kişi sayısı kadar alttoplam üstüne bir boş satır bırakacak kadar liste verilerinin getirilmesi mümkün (kod ile) olabilir mi?


http://www.excelvba.net/viewtopic.php?f=10&t=34510&p=248847#p248847

Bu konu hakkında çözüme ulaştım. Çözümlü dosya bu konuda mevcuttur.Fakat, kendi dosyama uyarlarken aşağıda ki hatayı (tamamen sarırenk oluyor) alıyorum. Asıl dosyam ektedir. Destek olursanız sevinirim.

Kod: Tümünü seç
sut = Sayfa3.Range("A3:XFD3").Find(What:=secim, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Column

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 20 Arl 2019 21:32
düşünceli
Şahin bey merhaba,konu incelediğinizi görünce selam vermek istedim

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 21 Arl 2019 12:09
şahin
Son gönderdiğiniz örnek farklı, Liste1,Liste2..... sayfalarından mı çekecek veriyi (A listesi, B listesi ?

Cevap: Cevap: Listede ki kişi sayısı kadar satır ekleme veya

İletiTarih: 21 Arl 2019 13:04
düşünceli
şahin yazdı:Son gönderdiğiniz örnek farklı, Liste1,Liste2..... sayfalarından mı çekecek veriyi (A listesi, B listesi ?


Evet Şahin Bey. Aynen öyle. Aşağıda ki şekilde uyarlayıyorum ama kodun ilk 2,3 ve4. satırları sarırenk olacak şekilde hata alıyorum.
Kod: Tümünü seç
Sub listeGetir(secim)

sut = Sayfa3.Range("A5:XFD5").Find(What:=secim, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Column


Sayfa2.Range("H12:I" & Sayfa2.Range("H100000").End(3).Row).Clear
Sayfa2.Range("H12:I" & Sayfa3.Cells(100000, sut).End(3).Row).Value2 = _
    Sayfa3.Range(Sayfa3.Cells(6, sut), Sayfa3.Cells(Sayfa3.Cells(100000, sut).End(3).Row, sut + 1)).Value2

With Sayfa2.Range("H12:I" & Sayfa2.Range("H100000").End(3).Row).Borders()
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
Sayfa2.Range("H" & Sayfa3.Cells(100000, sut).End(3).Row + 2 & ":" & "I" & Sayfa3.Cells(100000, sut).End(3).Row + 2).Merge
Sayfa2.Range("H" & Sayfa3.Cells(100000, sut).End(3).Row + 2 & ":" & "I" & Sayfa3.Cells(100000, sut).End(3).Row + 2).Font.Color = vbRed
Sayfa2.Range("H" & Sayfa3.Cells(100000, sut).End(3).Row + 2) = "ALT TOPLAM : " & Sayfa3.Cells(100000, sut).End(3).Row - 5
End Sub
Sub SeçenekDüğmesi64_Tıklat()
Module1.listeGetir (Sayfa2.Shapes("Seçenek Düğmesi 64").TextFrame.Characters.Text)
End Sub

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 22 Arl 2019 12:43
düşünceli
Gücel [komik]

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 24 Arl 2019 15:28
düşünceli
Güncel

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 26 Arl 2019 19:22
düşünceli
Güncel...

Cevap: Cevap: Listede ki kişi sayısı kadar satır ekleme veya

İletiTarih: 31 Arl 2019 11:41
düşünceli
şahin yazdı:Son gönderdiğiniz örnek farklı, Liste1,Liste2..... sayfalarından mı çekecek veriyi (A listesi, B listesi ?


Dosyada hata aldığım kısımları yaptım. Çözemediğim 2 husus kaldı.
Dosyada sayıları farklı 4 ayrı liste var.
LİSTE 1: 148 kişi
LİSTE 2: 63 Kişi
LİSTE 3: 28 Kişi
LİSTE 4: 24 Kişi
Benim eksik sorum üzerine sizin uyarladığınız Kodla seçilen listeler ilgili sayfaya geliyor. Her gelen liste verinin alındığı satıra kadar olan kısmı temizleyerek seçilen listeyi getiriyor. Bu durum, çalışma sayfasının geri kalan kısmında işlem yapmadığı için tam anlamıyla işlem yapmamış oluyor.
Yapmaya Çalıştığım :
1 ncisi, veriyi aldığım sayfada H sütunundan CD sütununa kadar veri ve büyük bölümünde ise formül var. 158. satırda ise =ALTTOPLAM formülü bulunuyor. Her yeni alınan listenin altında bir boşluk bırakarak ve diğer formülleri bozmadan =ALTTOPLAM satırının gelmesi.
2 ncisi, bütün listelerin artabileceği veya eksilebileceği düşünülerek yapılabilmesi.

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 05 Oca 2020 21:51
düşünceli
Güncel

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 08 Oca 2020 21:43
düşünceli
Güncel...

Cevap: Cevap: Cevap: Listede ki kişi sayısı kadar satır ekle

İletiTarih: 09 Oca 2020 16:03
Miraç CAN
düşünceli yazdı:
şahin yazdı:Son gönderdiğiniz örnek farklı, Liste1,Liste2..... sayfalarından mı çekecek veriyi (A listesi, B listesi ?


Dosyada hata aldığım kısımları yaptım. Çözemediğim 2 husus kaldı.
Dosyada sayıları farklı 4 ayrı liste var.
LİSTE 1: 148 kişi
LİSTE 2: 63 Kişi
LİSTE 3: 28 Kişi
LİSTE 4: 24 Kişi
Benim eksik sorum üzerine sizin uyarladığınız Kodla seçilen listeler ilgili sayfaya geliyor. Her gelen liste verinin alındığı satıra kadar olan kısmı temizleyerek seçilen listeyi getiriyor. Bu durum, çalışma sayfasının geri kalan kısmında işlem yapmadığı için tam anlamıyla işlem yapmamış oluyor.
Yapmaya Çalıştığım :
1 ncisi, veriyi aldığım sayfada H sütunundan CD sütununa kadar veri ve büyük bölümünde ise formül var. 158. satırda ise =ALTTOPLAM formülü bulunuyor. Her yeni alınan listenin altında bir boşluk bırakarak ve diğer formülleri bozmadan =ALTTOPLAM satırının gelmesi.
2 ncisi, bütün listelerin artabileceği veya eksilebileceği düşünülerek yapılabilmesi.

Aklıma ilk gelen pratik yöntem, ALTTOPLAM satırıyla LİSTESONU arasında ki boş satırları gizlemeniz.
Aksi halde ilgili işlemleri döngü kullanarak, ya kullandığınız formülleri (Makro Kaydet ile kolayca çözebilirsiniz) makroyla ilgili satırın sütunlarına yazdırmak ya da formüllerle yaptığınız hesaplamaları makrolara yazarak hesaplatıp, ilgili hücrelere yazdırmak.

Cevap: Listede ki kişi sayısı kadar satır ekleme veya gizlem

İletiTarih: 10 Oca 2020 16:27
düşünceli
... formüllerle yaptığınız hesaplamaları makrolara yazarak hesaplatıp, ilgili hücrelere yazdırmak.


Bahsettiğiniz bu husus çokça merak edilen bir durum aslında. Bu durumda, kod bozlumaları da engellenmiş olur. Konu ile alakalı yol gösrerici bir çalışmanız var ise paylaşır mısınız. Veya böyle bir çalışma yapar mısınız?

Cevap: Cevap: Listede ki kişi sayısı kadar satır ekleme veya

İletiTarih: 11 Oca 2020 09:16
Miraç CAN
düşünceli yazdı:
... formüllerle yaptığınız hesaplamaları makrolara yazarak hesaplatıp, ilgili hücrelere yazdırmak.


Bahsettiğiniz bu husus çokça merak edilen bir durum aslında. Bu durumda, kod bozlumaları da engellenmiş olur. Konu ile alakalı yol gösrerici bir çalışmanız var ise paylaşır mısınız. Veya böyle bir çalışma yapar mısınız?

İhtiyaç duyduğunuz fonksiyonların VBA'daki kullanımları hakkında arama yaparak, örneklerden faydalanarak derleyebilirsiniz.
Takıldığınız yerlerde yazın, çözüme yardımcı olacak insanlar elbette olacaktır.
Kolay gelsin.