[Yardım]  Listede ki kişi sayısı kadar satır ekleme veya gizleme

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

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

İleti#1)  düşünceli » 18 Arl 2019 19:37

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?
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#2)  şahin » 19 Arl 2019 10:41

Ekte

rnek.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 863
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

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

İleti#3)  düşünceli » 19 Arl 2019 19:01

Şahin bey çok teşekkür ederim. Emeğinize, yüreğinize sağlık. Konu çözüme Kavuşmuştur.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#4)  düşünceli » 20 Arl 2019 20:35

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

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

İleti#5)  düşünceli » 20 Arl 2019 21:32

Şahin bey merhaba,konu incelediğinizi görünce selam vermek istedim
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#6)  şahin » 21 Arl 2019 12:09

Son gönderdiğiniz örnek farklı, Liste1,Liste2..... sayfalarından mı çekecek veriyi (A listesi, B listesi ?
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 863
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#7)  düşünceli » 21 Arl 2019 13:04

ş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
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#8)  düşünceli » 22 Arl 2019 12:43

Gücel [komik]
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#9)  düşünceli » 24 Arl 2019 15:28

Güncel
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#10)  düşünceli » 26 Arl 2019 19:22

Güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#11)  düşünceli » 31 Arl 2019 11:41

ş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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#12)  düşünceli » 05 Oca 2020 21:51

Güncel
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#13)  düşünceli » 08 Oca 2020 21:43

Güncel...
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#14)  Miraç CAN » 09 Oca 2020 16:03

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.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 245
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

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

İleti#15)  düşünceli » 10 Oca 2020 16:27

... 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?
Kullanıcı avatarı
düşünceli
Siteye Alışmış
 
Kayıt: 04 Ağu 2017 13:11
Meslek: memur
Yaş: 47
İleti: 161
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

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

İleti#16)  Miraç CAN » 11 Oca 2020 09:16

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.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 245
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot] ve 4 misafir

Bumerang - Yazarkafe